Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
delete if contains
I curently have this macro which works fine, I now need to adapt it for
TextBox9 and only delete line if it does not contain words typed into text box Sub Filter() Dim rng As Range Dim i As Long Set rng = ActiveSheet.Range(Cells(1, "DY"), Cells(Rows.Count, "DY").End(xlUp)) With rng For i = .Rows.Count To 1 Step -1 If Not .Cells(i) = UserForm7.ComboBox2.Value Then .Cells(i).EntireRow.Delete End If Next i End With End Sub Any help pwill be much appreciated Thanks |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to delete sheets and saves remaining file does not properly delete module | Excel Programming | |||
Macro to delete sheets and saves remaining file does not properly delete module | Excel Programming | |||
Macro to delete sheets and saves remaining file does not properly delete module | Excel Programming | |||
Macro to delete sheets and saves remaining file does not properly delete module | Excel Programming | |||
Delete every 3rd row, then delete rows 2-7, move info f/every 2nd row up one to the end and delete the row below | Excel Programming |