find and delete row from certain value

[SimpleSimon88]

Hi, I'm struggling to find how to find a value in a range and delete that row.

Example:
search("textbox1.value"),sheets("sheet1").Range("A1:A5000").delete

Any ideas?

Si

 

[DILIPandey]

Hi Si,

What type of text box you are using here ?
form control or activex ?


Regards,
DILIPandey

 

[DILIPandey]

Anyways, give below code a try:-

Range("a1:a5000").Replace What:=Sheets("Sheet1").TextBox1.Text, Replacement:=""

Regards,
DILIPandey

 

[SimpleSimon88]

Hi fella!
Its a userform textbox and (preferably) would like to delete entire row.
I've found a basic loop but not really confident with loops yet.
It's userform1.textbox1.value

Si

 

[DILIPandey]

Dear Si,

You can use below code:-

Sub DILIPandey()
'checking and deleting rows based on a textbox's value
    For Each cell In Range("a1:a500")
        cell.Select
        If cell.Value = Sheets("Sheet1").TextBox1.Text Then
            ActiveCell.EntireRow.Delete
        End If
    Next
End Sub

where you can replace Sheets("Sheet1").TextBox1.Text with your userform's value


Regards,
DILIPandey