Delete a row in a named range using userform delete button

[charly1988]

I have item sheet which has a named range call "ItemList" and it has 3 fields "productID, productName and productDescription" . All i want is delete a row in the named range using productID from userform. I have a delete button in my userform.

 

[Domenic]

Assuming that the productID for which to search is coming from a textbox on the userform, try...

    Dim foundCell As Range
    Set foundCell = Range("ItemList").Columns(1).Find(what:=TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)
    If Not foundCell Is Nothing Then
        foundCell.EntireRow.Delete
    End If

However, if the named range has worksheet scope, replace...

Set foundCell = Range("ItemList").Columns(1).Find(what:=TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)

with

Set foundCell = ThisWorkbook.Worksheets("Sheet1").Range("ItemList").Columns(1).Find(what:=TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)

Hope this helps!

 

[charly1988]

Assuming that the productID for which to search is coming from a textbox on the userform, try...

    Dim foundCell As Range
    Set foundCell = Range("ItemList").Columns(1).Find(what:=TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)
    If Not foundCell Is Nothing Then
        foundCell.EntireRow.Delete
    End If

However, if the named range has worksheet scope, replace...

Set foundCell = Range("ItemList").Columns(1).Find(what:=TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)

with

Set foundCell = ThisWorkbook.Worksheets("Sheet1").Range("ItemList").Columns(1).Find(what:=TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)

Hope this helps!

works so perfectly. Thank you very much sir. Hats off for your help

 

[Domenic]

You're very welcome, I'm glad I could help.

Cheers!

 

[charly1988]

You're very welcome, I'm glad I could help.

Cheers!

Could you please help me with update button also..?

 

[Domenic]

For your new question, please start a new thread, and one or more of the many volunteers here on the Board will be happy to help.

Cheers!