I would like to store the cell range of a specific cell that has the same value as a cell from another sheet. Here is my code below. I want my code to work where if the command button is clicked, it will delete a cell and shift up depend on if a checkbox is checked. Dim Val1 As Range Private Sub CommandButton1_Click() If TextBox1.Value = True Then With Sheets("Inventory").Range("D3:D501") Set Val1 = .Cell.Find(What:=Lookup!C3) End With Sheets("Inventory").Range("D3:D501").Delete Shift:=xlUp End If End Sub

If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.

Find a specific value in a column on another sheet using vba

Thread starter MistakesWereMade
Start date Jun 18, 2019
Tags

cell code end range val1

MistakesWereMade

Board Regular

Jun 18, 2019

I would like to store the cell range of a specific cell that has the same value as a cell from another sheet. Here is my code below.

I want my code to work where if the command button is clicked, it will delete a cell and shift up depend on if a checkbox is checked.

Code:

Dim Val1 As Range

Private Sub CommandButton1_Click()


If TextBox1.Value = True Then


    With Sheets("Inventory").Range("D3:D501")


        Set Val1 = .Cell.Find(What:=Lookup!C3)


    End With


Sheets("Inventory").Range("D3:D501").Delete Shift:=xlUp


End If


End Sub