Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with code needed
Hi all, i was kindly helped with some code to compare and past by Tom
Ogilvy and wouold like to know if it could be used to to compare the two ranges and delete entire line, if so how would i change it, i have tried but cannot do it. Sub ABC() Dim sh1 as worksheet, sh2 as worksheet, sh3 as worksheet Dim rng1 as Range, rng2 as Range Dim rw as Long, cell as Range set sh1 = worksheets("19_10_06") set sh2 = worksheets("Oct_06") set sh3 = worksheets("gAMS") rw = 2 set rng1 = sh1.Range(sh1.Cells(2,1),sh1.Cells(2,1).End(xldown )) set rng2 = sh2.Range(sh2.Cells(2,1),sh2.Cells(2,1).End(xldown )) for each cell in rng1 if application.countif(rng2,cell.value) = 0 then cell.EntireRow.copy sh3.cells(rw,1) rw = rw + 1 end if Next End sub Les Stout *** Sent via Developersdex http://www.developersdex.com *** |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
VBA code needed | New Users to Excel | |||
Code Needed | New Users to Excel | |||
VBA code help needed | Excel Discussion (Misc queries) | |||
Code Fix Needed | Excel Programming | |||
code needed | Excel Programming |