Displaying an error message

[pells]

Is it possible to display an error message box if the following criteria is met on my active sheet:

If cell range A1:A88 has something in any of the cells and if cells H1:H88 is blank, then show the error message, otherwise, do nothing?

Many thanks for taking the time to read my post and any responses with help or guidance would be much appreciated.

 

[Sektor]

Sub ErrMsg()
    If WorksheetFunction.CountA(Range("A1:A88")) > 0 And WorksheetFunction.CountA(Range("H1:H88")) = 0 Then
       MsgBox "Error message", vbCritical, "Error"
    End If
End Sub

 

[RoryA]

You could add data validation to a1:a88 using a Custom allow with the formula:
=NOT(AND(COUNTA(A4:A91)>0,COUNTA(H4:H91)=0))
and then set the alert to Warning rather than stop.

 

[Andrew Poulsom]

Maybe this formula gives you what you want:

=IF(SUMPRODUCT(--(LEN(A1:A88)>0),--(LEN(H1:H88)=0)),"Error","")

 

[MrKowz]

Perhaps something like this?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A88")) Is Nothing Then
    If Len(Target.Offset(0, 7).Value) = 0 Then
        MsgBox "Please enter a value in column H"
        Target.Offset(0, 7).Select
    End If
End If
End Sub

To use this code, right click on the sheet tab you want this to run on, and click view code. Paste the above code in the window that pops up.

 

[pells]

This works perfectly - many thanks for all your help!

 

[MrKowz]

This works perfectly - many thanks for all your help!

Glad you have a working solution. Thank you for the feedback.