Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro Error Please help
It works for me if you correct for the word wrap. The
following line should all be in one row: Set ColAValues = ActiveSheet.Range("A1:A" & ActiveSheet.Range("A65536").End(xlUp).Row) If the above code was not corrected for word wrap it should have been highlighted with red font. Was this not the case with you ??? Although there seems nothing wrong with the code, you can remvove all ActiveSheet references since the active sheet is the default when a range is not qualified. Suggested is as follows. Correct for the word wrap. Sub Sample() Set ColAValues = Range("A1:A" & Range("A65536").End (xlUp).Row) ColBLastRow = Range("B65536").End(xlUp).Row For i = ColBLastRow To 1 Step -1 CurrentValue = Cells(i, 2).Value For Each Cell In ColAValues If Cell.Value = CurrentValue Then Cells(i, 2).Delete shift:=xlUp End If Next Cell Next i End Sub Regards, Greg -----Original Message----- Hello, When I add this Macro script to excel work sheet I get a Syntax error could someone please help me identify whats wrong with this script. Sub Sample() Set ColAValues = ActiveSheet.Range("A1:A" & ActiveSheet.Range("A65536").End(xlUp).Row) ColBLastRow = ActiveSheet.Range("B65536").End(xlUp).Row For i = ColBLastRow To 1 Step -1 CurrentValue = ActiveSheet.Cells(i, 2).Value For Each Cell In ColAValues If Cell.Value = CurrentValue Then ActiveSheet.Cells(i, 2).Delete shift:=xlUp End If Next Cell Next i End Sub Its supposed to check columns B and delete any value it finds that match in Column A Heres an example... ___A___B__ 1.| N | H | 2.| B | I | 3.| C | J | 4.| D | K | 5.| E | L | 6.| F | M | 7.| G | N |<--- N found deleting duplicate in cell A1 Thanks, Brian --- Message posted from http://www.ExcelForum.com/ . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
I tried to get around the problem of the pivot table field settingdefaulting to Count instead of Sum by running a macro of change the settingfrom Count to Sum. However, when I tried to run the Macro, I got error messageof run time error 1004, unable | Excel Worksheet Functions | |||
I tried to get around the problem of the pivot table field settingdefaulting to Count instead of Sum by running a macro of change the settingfrom Count to Sum. However, when I tried to run the Macro, I got error messageof run time error 1004, unable | Excel Discussion (Misc queries) | |||
Excel 2003 Macro Error - Runtime error 1004 | Excel Discussion (Misc queries) | |||
Macro 'Automation error' with ChemOffice Excel macro | Excel Programming | |||
Macro Security Error No Macro | Excel Programming |