Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Compare 2 Ranges, Copy/Paste Row on Match
I'm trying to compare the values in 2 ranges and if found, copy the
entire row to a new worksheet. This is what I've come up with but it's not working: '---- Set ws = Worksheets.Add count = 1 For Each i In rng1 For Each x In rng2 If i.Value = x.Value Then i.EntireRow.Copy ws.Rows(count) count = count + 1 End If Next x Next i '--- Thanks, -- Dan |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Compare 2 Ranges, Copy/Paste Row on Match
Your code is comparing every value in rng1 with every value in rng2. I think
you only want to compare items in same row For Each i In rng1 If i.Value = i.offset(rowoffset:= 0, columnoffset:= 6).Value Then i.EntireRow.Copy ws.Rows(count) count = count + 1 End If Next i or something like this for rowcount = 1 to Lastrow If cells(rowcount, "i") = cells(rowcount,"x") then cells(rowcount, "i").EntireRow.Copy ws.Rows(count) end if next rowcount "Dan R." wrote: I'm trying to compare the values in 2 ranges and if found, copy the entire row to a new worksheet. This is what I've come up with but it's not working: '---- Set ws = Worksheets.Add count = 1 For Each i In rng1 For Each x In rng2 If i.Value = x.Value Then i.EntireRow.Copy ws.Rows(count) count = count + 1 End If Next x Next i '--- Thanks, -- Dan |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Compare Col A and Col M, if Match, Copy Col N to Col E | Excel Worksheet Functions | |||
Compare col and match then copy and paste | Excel Discussion (Misc queries) | |||
Compare ranges n copy at bottom of first range | Excel Programming | |||
compare two ranges in different workbooks and copy data to a new workbook | Excel Programming | |||
How do i compare values from two sheet and copy & paste if values match? | Excel Programming |