Delete rows

[erdevee]

Is there a way to automatically delete rows in a worksheet based upon the entry in the left cell of the row?
Thanks

 

[JAYLO]

Put the cursor in the top cell of the column and replace the questionmark with your contents you are looking for.

Sub del_rows()
While ActiveCell.Value = "?"
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then
ActiveCell.Offset(1, 0).EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub

 

[verluc]

On 2002-04-09 08:00, JAYLO wrote:
Put the cursor in the top cell of the column and replace the questionmark with your contents you are looking for.

Sub del_rows()
While ActiveCell.Value = "?"
If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then
ActiveCell.Offset(1, 0).EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub

Can this also done with delete a column.So yes,what is then the macro?
Many thanks

 

[JAYLO]

Yes.
Change the OFFSET from 1,0 to 0,1 and the entirerow to entirecolumn

Jay

 

[verluc]

On 2002-04-09 08:09, JAYLO wrote:
Yes.
Change the OFFSET from 1,0 to 0,1 and the entirerow to entirecolumn

Jay

Yes,I have done it.But the question in case is that I want to delete every time column 11(column K)
Can this put in this macro,and how?
Many thanks
Can

 

[invisigirl]

Hey, not to budge in on this thread, but can you use this to delete, say, three or four rows, including the one in which the specified data is found?