Hi Mahesh,
Thanks for your reply.
I have added extra numbers below that. And this macro is not accepting.
And also is it possible to make the matching cells as one color instead of
moving to next column.
/Suresh
On Thu, Sep 29, 2011 at 1:19 AM, Mahesh parab <mahes...@gmail.com> wrote:
> Hi Suresh
>
> find attach
>
> Try :
> Sub Mtest()
> Dim Rng1 As Range, cell As Range, cell2 As Range
> Dim Temp As Variant
> Dim Sum As String
> Dim i As Integer
> Set Rng1 = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
> For Each Temp In Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row)
> On Error Resume Next
> For Each cell In Rng1
> For i = 1 To Rng1.Cells.Count
> Set cell2 = Rng1.Cells(i)
> Sum = (cell.Value + cell2.Value)
> If Sum = Temp Then
> If cell.Address <> cell2.Address Then
> cell.Copy Destination:=Sheets("Sheet2").Range("F" &
> Rows.Count).End(xlUp).Offset(1)
> cell.ClearContents
> cell2.Copy Destination:=Sheets("Sheet2").Range("F" &
> Rows.Count).End(xlUp).Offset(1)
> cell2.ClearContents
> 'cell.Cut Destination:=Sheets("Sheet2").Range("F" &
> Rows.Count).End(xlUp).Offset(1)
> 'cell2.Cut Destination:=Sheets("Sheet2").Range("G" &
> Rows.Count).End(xlUp).Offset(1)
> Temp.Cut Destination:=Sheets("Sheet2").Range("E" &
> Rows.Count).End(xlUp).Offset(1)
> End If
> End If
> Next i
> Columns("A").SpecialCells(xlCellTypeBlanks).Delete shift:=xlShiftUp
> Next cell
> Next Temp
> End Sub
>
>
> HTH
> Mahesh
>
> On Wed, Sep 28, 2011 at 9:01 PM, suresh k <brave.sur...@gmail.com> wrote:
>
>> Hi All,
>>
>> Any macro man can help me on this.
>>
>> I have attached the excel with my query.
>>
>> /Suresh
>>
>> --
>>
>> ----------------------------------------------------------------------------------
>> Some important links for excel users:
>> 1. Follow us on TWITTER for tips tricks and links :
>> http://twitter.com/exceldailytip
>> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
>> 3. Excel tutorials at http://www.excel-macros.blogspot.com
>> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
>> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>>
>> To post to this group, send email to excel-macros@googlegroups.com
>>
>> <><><><><><><><><><><><><><><><><><><><><><>
>> Like our page on facebook , Just follow below link
>> http://www.facebook.com/discussexcel
>>
>
>
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
