Simple Macro Help **con't**

[ultratch47]

ok
this macro will require the need seperate two sets of data
IE. C2:C900 is one set
BLANK in between
C902:C1500 is another set
i need to just simply delete the second set with a macro line (i will create another macro for the other set later)

so macro will need to identify the FIRST blank in this row (since that blank seperating the sets is the only blank in this column) and delete the entire row below that one cell...

thanks

 

[Blue Dragon]

r = 1
Do Until r >= Range("C65535").End(xlUp).row or cells(r, 3) = ""
r = r + 1
loop

if r < Range("A65535").End(xlUp).row then blankrow = r

 

[north19701]

Sub DeleteSecondSet()
Columns(3).Select
b = Selection.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Row
a = Range("C65536").End(xlUp).Row
Range(Cells(b + 1, 3), Cells(a, 3)).Delete
End Sub

 

[ultratch47]

North

It highlights the entire B= code (and two lines below)

"identifier under cursor is not reckognized"

 

[north19701]

Sub DeleteSecondSet()
Columns(3).Select
b = Selection.Find(What:="", After:=[c1], LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Row
a = Range("C65536").End(xlUp).Row
Range(Cells(b + 1, 3), Cells(a, 3)).Delete
End Sub

it worked fine for me. here it is again, except i changed the Find after to cell c1 instead of activecell. you could give that a try.