Can this also done with delete a column.So yes,what is then the macro?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
Yes,I have done it.But the question in case is that I want to delete every time column 11(column K)On 2002-04-09 08:09, JAYLO wrote:
Yes.
Change the OFFSET from 1,0 to 0,1 and the entirerow to entirecolumn
Jay