Msg box

[christypraveen]

Hi.

I need small help for msg box in Vba.

I have created so many macro button to search the item. I have used recording option to search the item. I need a VBA code for msg box when item not found...

my Vba is:

sub bottom 1_10

sheets(sheet2). select

Cells.Find (What:="search item name", After:=ActiveCell, Lookin:=xLFormulas, LookAt:=xLPart, SearchOrder:=xLByRows,Search Direction:=x1 Next, MatchCase:=False, Search Format:=False). Activate

end sub

help me VBA code for msg box when item not found using this code. Thanks in Advance

 

[mumps]

Try:

Sub bottom1_10()
    Sheets("Sheet2").Activate
    Dim fnd As Range
    Set fnd = Cells.Find(What:="search item name", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
    If fnd Is Nothing Then
        MsgBox "Item not found"
    Else
        fnd.Select
    End If
End Sub

 

[christypraveen]

Thank you

 

[mumps]

You are very welcome.