Thread
:
mandatory field
View Single Post
#
6
Posted to microsoft.public.excel.misc
Don Guillett
external usenet poster
Posts: 10,124
mandatory field
Assumes col A has an entry by which to count the number of rows
mtotal =
Application.CountA(Sheets("sheet9").Range("c2,d2,h 2,j2").EntireColumn)
needed = Application.CountA(Sheets("sheet9").Columns(1)) * 4
If mtotal < needed Then
Cancel = True
MsgBox needed
End If
--
Don Guillett
SalesAid Software
"flow23" wrote in message
...
well thats the problem, the user can go on creating rows and rows of data.
but in the end when he/she saves, the columns for those rows should have
some data.
"Don Guillett" wrote:
Particular sheet____________
Particular row_____________
Put this in the ThisWorkbook module
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If Application.CountA(Sheets("sheet9").Range("c2,d2,h 2,j2")) < 4 Then
Cancel = True
MsgBox "Not finished"
End If
End Sub
--
Don Guillett
SalesAid Software
"flow23" wrote in message
...
I have a sheet for user to input data. However filed in column C,D,H and
J
are mandatory.
The file shouldnt save if data isnt entered into any of these columns.
any help
Reply With Quote
Don Guillett
View Public Profile
Find all posts by Don Guillett