Run macro only if 2 criteria apply

[ipbr21054]

Hi,

I am currently using the following code supplied.
It works fine as it should but i have noticed that if the cell B13 has no value the macro still runs.
Please can you advise an edit to add to the supplied code so not only must cell B13 be active BUT it must also contain a value

Sub HondaEpcNumber_Click()    If ActiveCell.Address(0, 0) = "B13" Then
        HondaParts.MyPartNumber.Value = ActiveCell.Value
        HondaParts.Show
    Else
        MsgBox "You didn`t enter a Honda Part Number In Cell B13", vbExclamation, "Honda Number - My Number Look Up"
    End If
End Sub

 

[nikio8]

If ActiveCell.Address(0, 0) = "B13" And Cells(13, "B") <> Null Then
If ActiveCell.Address(0, 0) = "B13" And Cells(13, "B") <> "" Then



I am not 100% which is better, Null is when it has never been used. "" could be deleted value.

Or even better

Sub HondaEpcNumber_Click()


If Cells(13, "B") <> "" Then
        HondaParts.MyPartNumber.Value = Cells(13, "B")
        HondaParts.Show
    Else
        MsgBox "You didn`t enter a Honda Part Number In Cell B13", vbExclamation, "Honda Number - My Number Look Up"
    End If
End Sub

 

[ipbr21054]

hi

thanks,works well.

I used this one

[COLOR=#333333]Sub HondaEpcNumber_Click()[/COLOR]

If Cells(13, "B") <> "" Then
        HondaParts.MyPartNumber.Value = Cells(13, "B")
        HondaParts.Show
    Else
        MsgBox "You didn`t enter a Honda Part Number In Cell B13", vbExclamation, "Honda Number - My Number Look Up"
    End If [COLOR=#333333]End Sub[/COLOR]