VBA search help

[rockchalk33]

Hey all,

I have a Column A with multiple different names for trucks, for example "Shop"....What is wrong with my code below? I am visually seeing the truck labeled "Shop" in column A of Sheet11 but my message box continues to show that it does not exist...Can someone please help me.

Sub test2()


    Dim Truck_Name As Range
    Dim Search_Range As Range
    Set Search_Range = Sheet11.Range("A:A")
    Set Truck_Name = Search_Range.Find(What:="Shop", MatchCase:=True, LookAt:=xlWhole, searchdirection:=xlPrevious)
    
If Truck_Name Is Nothing Then
MsgBox ("This truck does not exist and must be entered as a new truck first")
Exit Sub
End If


End Sub

 

[alansidman]

Change your line of code

Set Search_Range = Sheets("Sheet11").Range("A:A")

Secondly, you have no else statement to tell Excel what to do if "Shop" is found.  Perhaps after the Exit Sub line you add

[CODE]Else: MsgBox ("Shop Found")

or some other action.

 

[rockchalk33]

Change your line of code

Set Search_Range = Sheets("Sheet11").Range("A:A")

Secondly, you have no else statement to tell Excel what to do if "Shop" is found.  Perhaps after the Exit Sub line you add

[CODE]Else: MsgBox ("Shop Found")

or some other action.

Awesome! That worked!