deleting rows of data

[divapaxo]

hi all

could someone please advise how you would write
to keep data in column "A" that starts with "HL"

here is the code i have written but the last part is incorrect and i don't know what to put

please help

Sub deleterows()

Dim j, lastrow As Long
Dim dest As Long
Dim x As Range
Worksheets("hostbalme").Activate

lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For j = lastrow To 1 Step -1

Set x = Cells(j, "A")
x.Select



If (x.Value, 2) = "HL" Then x.EntireRow.Delete



Next j
End

End Sub

 

[roaze2000]

Did you try the Autofilter?
You can record your macro, and slect the value you want to delete, delete the rows and desactivate the autofilter and then stop your macro, to see what VBA it used.

THan you just clean that up and your done.

 

[Von Pookie]

Duplicate.
See: http://www.mrexcel.com/board2/viewtopic.php?t=234834