Hi,
I'd be indebted to anyone who can help me with some Macro problems i'm having.
I have a Macro, which works perfectly, for deleting any row where a cell in the active column does not contain a value:
Sub del_1()
Do While Not IsEmpty(ActiveCell)
If Not ActiveCell.Value Like "*MrExcel*" THEN
ActiveCell.EntireRow.Delete shift = xlDown
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
What I am now trying to do, is modify it, so that i can run a macro which deletes all rows where the cell in the active column does not contain a number of different values, not just the single value.
For example, i'd like to delete all rows without 'MrExcel', or 'Macro', or 'Forum' in the cells in the active column.
Any help would be massively appreciated.
Many thanks,
D.
I'd be indebted to anyone who can help me with some Macro problems i'm having.
I have a Macro, which works perfectly, for deleting any row where a cell in the active column does not contain a value:
Sub del_1()
Do While Not IsEmpty(ActiveCell)
If Not ActiveCell.Value Like "*MrExcel*" THEN
ActiveCell.EntireRow.Delete shift = xlDown
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
What I am now trying to do, is modify it, so that i can run a macro which deletes all rows where the cell in the active column does not contain a number of different values, not just the single value.
For example, i'd like to delete all rows without 'MrExcel', or 'Macro', or 'Forum' in the cells in the active column.
Any help would be massively appreciated.
Many thanks,
D.