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

f Not .Cells(i) = UserForm7.TextBox9.Text Then
.Cells(i).EntireRow.Delete
End If

--
If this post helps click Yes
--
Jacob Skaria

This only works if the contents are exact i am looking to make it work if one
word is typed in to the text box it will find it if it appears anywhere in
the cell text

"Jacob Skaria" wrote:

f Not .Cells(i) = UserForm7.TextBox9.Text Then
.Cells(i).EntireRow.Delete
End If

--
If this post helps click Yes
--
Jacob Skaria

Dear Miree

User Instr function


If Instr(.Cells(i),UserForm7.TextBox9.Text) = 0 Then
.Cells(i).EntireRow.Delete
End If


If this post helps click Yes
--------------
Jacob Skaria


"Miree" wrote:

This only works if the contents are exact i am looking to make it work if one
word is typed in to the text box it will find it if it appears anywhere in
the cell text

"Jacob Skaria" wrote:

f Not .Cells(i) = UserForm7.TextBox9.Text Then
.Cells(i).EntireRow.Delete
End If

--
If this post helps click Yes
--
Jacob Skaria

Look at VBA's help for InStr.

It's like =find() or =Search() in excel.

Miree wrote:

This only works if the contents are exact i am looking to make it work if one
word is typed in to the text box it will find it if it appears anywhere in
the cell text

"Jacob Skaria" wrote:

f Not .Cells(i) = UserForm7.TextBox9.Text Then
.Cells(i).EntireRow.Delete
End If

--
If this post helps click Yes
--
Jacob Skaria



--

Dave Peterson

That works perfectly thanks, i have a slightly more complicated problem along
these lines and you help would once again be much appreciated

using the same code would it be possible to delete line if value is not
equal to or inbetween text boxes 5 and 6 (box 5 always being less or the same
as 6)

"Jacob Skaria" wrote:

Dear Miree

User Instr function


If Instr(.Cells(i),UserForm7.TextBox9.Text) = 0 Then
.Cells(i).EntireRow.Delete
End If


If this post helps click Yes
--------------
Jacob Skaria


"Miree" wrote:

This only works if the contents are exact i am looking to make it work if one
word is typed in to the text box it will find it if it appears anywhere in
the cell text

"Jacob Skaria" wrote:

f Not .Cells(i) = UserForm7.TextBox9.Text Then
.Cells(i).EntireRow.Delete
End If

--
If this post helps click Yes
--
Jacob Skaria