View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
vezerid vezerid is offline
external usenet poster
 
Posts: 751
Default 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