Please modify my current code! If any of the cell from A3 to F3 is "" then exit sub

[pedie]

If any of the cell from A3 to F3 is "" then exit sub, how do we set this up?
Thanks
Pedie

Current

Sub CommandButton2_Click()

If Range("b3") = "" Then
MsgBox "You must assign a Detail Number in cell B3"
Range("b3").Select
        Exit Sub
Else
Run "Report"

End If

End Sub

 

[VoG]

Try

If WorksheetFunction.CountA(Range("A3:F3")) <> 6 Then Exit Sub

 

[MrKowz]

Something like this?

Sub CommandButton2_Click()
Dim i As Long
For i = 1 To 6
    If Cells(3, i).Value = "" Then
        MsgBox "You must assign a Detail Number in cell " & Cells(3, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False)
        Cells(3, 1).Select
        Exit Sub
    End If
Next i
Run "Report"
End Sub

 

[schielrn]

Here is one of many ways to do this:

If WorksheetFunction.Countblank(Range("A3:F3")) > 0 Then exit sub

Hope that helps.

 

[doofusboy]

This should work:

Sub CommandButton2_Click()
Dim r As Range
    For Each r In Range("A3:F3")
        If r.Value = "" Then
            MsgBox "You must assign a Detail Number in cell " & r.Address
            r.Select
            Exit Sub
        End If
    Next r
    Run "Report"
End Sub

 

[pedie]

Thank you everyone for helping!
I really appriciate it. Thanks alot again!