VBA to prevent macro if cells are not filled in.

[tomexcel1]

Hi All

Im using the below code to prevent a macro from running if all fields in a tabel are not filled in. I just cant seam to make it check a range of cells. the ranges i want checking are:

D8:D12
D14:G24
D26:D30
D32:D34

Can anyone Please help! Thanks in advance

Sub Check ()
If Range("G3") = Empty Then    MsgBox "Please fill in all fields!"
    Else
    MsgBox "OK"
    'Macro to run here
    End If
End Sub

 

[rlv01]

Here is one way

Sub Check()
    Dim RangesToCheck As Range, R As Range
    Set RangesToCheck = Application.Union(Range("D8:D12"), Range("D14:G24"), Range("D26:D30"), Range("D32:D34"))
    Debug.Print RangesToCheck.Address
    For Each R In RangesToCheck
        If R = "" Then
            MsgBox "Please fill in all fields!!", Buttons:=vbOKOnly + vbExclamation, Title:="Input Data Check"
        End If
        Exit Sub
    Next R
End Sub

Also, here is a very similar thread

https://www.mrexcel.com/forum/excel-questions/1050709-i-have-marco-i-need-some-help.html

 

[JonXL]

Also possible:

If [COUNTA(D8:D12,D14:G24,D26:D30,D32:D34)] <> 66 Then
'Not all filled
Else
'All filled
End If