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 |
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 |
All times are GMT +1. The time now is 12:16 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com