Need Macro Pop up for blank cells

[akash.scap]

Hello,

I have a sheet where specific cells are mandatory to be filled. I need a macro (pop up message) is any of the cells are left blank.

The cells mandatory to be filled are on sheet 1 - A24,A28,J24,M25...and so on

Please help

 

[Smitty]

What's the trigger to inform someone they didn't fill everything out?

 

[akash.scap]

Oh so sorry I forgot to add in the post. So basically once all the information is filled out, there is a macro that I run. If any of the field are missing then I want the pop up message. This will make the users fill out all the information and then run the macro..thank you for your help

 

[Smitty]

The easiest way would probably be to use WorksheetFunction.CountA(Your Range). I.E. If WorksheetFunction.CountA(Your Range) <> 0 Then 'Something's missing...

 

[Krishnakumar]

Hi,

try,

Sub ISRANGEVALID(ByVal ShtName As String, ByVal RangeAddress As String)
    Dim i As Long, x
    
    x = Split(RangeAddress, ",")
    With Worksheets(CStr(ShtName))
        For i = 0 To UBound(x)
            If Application.WorksheetFunction.CountA(.Range(CStr(x(i)))) = 0 Then
                MsgBox "Fill the range " & x(i) & " to proceed", vbCritical
                Exit Sub
            End If
        Next
    End With
    
End Sub

and call the macro

Sub YourMacro()
    'First validate the range
    ISRANGEVALID "Sheet1", "A24,A28,J24,M25"
    
    'Rest of your code
    
End Sub

HTH