Thread: Situation where all data must be entered.

Given: cells A1:A10 has a value/text.

Formula written in A11....=if(countif(A1:A10)>0;"yes";"no"). *This is basically an "alert" to say that all cells have been filled.

I would like to write this format into VBA, except in place of "no", I would like a pop-up message informing me that information is missing.

Any help would be greatly appreciated.

try code:

Sub aa()
Dim myrange As Range

Set myrange = Range("a1:a10")
If Application.WorksheetFunction.CountA(myrange) < 10 Then
MsgBox "there are empty cells"
End If
End Sub

or maybe this in sheet module

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Range("a1:a10")
If Application.WorksheetFunction.CountA(Target) < 10 Then
MsgBox "there are empty cells"
End If
End Sub

Can't seem to run it. *confused*

try this in attachment

ok. I see it got working.

But what did I do wrong?

In your attachment there is any code

oh. okkk. i thought it was attached *hmmmm*

ok, after a week of delay, I'm finally settling down to thoroughly try out this macro.

It works ok, but I wish that when i start filling out the cells, the popup message comes up every time I hit enter after each cell.

I would like it to operate as if you're filling out a online form.

Is this possible?