Requiring data in certain cells
Assuming the cells you want to have mandatory input are A1, B8 and G9.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1,B8,G9")) Is Nothing Then
Application.EnableEvents = False
If Range("A1") = "" Or Range("B8") = "" Or Range("G9") = "" Then
Target = ""
MsgBox "you cannot enter a value unless ALL cells A1, B8 and G9
are filled"
End If
Application.EnableEvents = True
End If
End Sub
To install: Right click on the sheet tab. Choose View Code...
Paste the above code in the VBA IDE code window for the sheet.
HTH
Kostis Vezerides
On Oct 19, 6:22 pm, jerminski73
wrote:
I have a sheet that has fields that need data to be entered into, If no data
is entered then the rest of the sheet is useless. Is there a way to pop up a
"validation" type box that will stop any forward entry until these cells have
new or different data entered? I already have basic data in these fields but
want the data to be changed in order to continue.
Thank you
|