vba on command button to check blank cells?Closed

Question

Hello, 

I have the following code on click of a command button, but i want it to check to see if certain cells are blank and error message if there are blank cells before sending the worksheet in an email.

Private Sub CommandButton1_Click()
ActiveWorkbook.SendMail Recipients:="jon@jonjon.com", Subject:=Range("G23").Value & "-" & Range("G37").Value & "  -  " & Range("G19").Value
End Sub

Can anyone help? Thanks in advance

JR

rizvisa1 · Answer

if the cell if they are blank or not before sending the mail


Private Sub CommandButton1_Click()
    
    If (Range("G23") = "") Then
        MsgBox "G23 is blank"
        Exit Sub
    End If
    
    ActiveWorkbook.SendMail Recipients:="jon@jonjon.com", Subject:=Range("G23").Value & "-" & Range("G37").Value & " - " & Range("G19").Value

End Sub

Vba on command button to check blank cells?

1 response

Similar discussions

Subscribe To Our Newsletter!