Warning message boxes

Frankie needs HELP · Apr 10th, 2002, 07:19 AM

Anyone got any ideas:

In my 7 column spreadsheet I want a warning sign to appear IF in column E there is no dates (meaning that no one has been admitted).

Cosmos75 · Apr 10th, 2002, 12:08 PM

Does column 7 contain and formulas or data?

If you want to use a formula you can use

=IF(MID(CELL("format",E1),1,1)<>"D","WARNING","")

or you can just use that in a macro..

WARNING!: If the cells are formatted with the date format but are empty, it will not show a warning.

NOTE: A word of warning. I tried to change the format of the reference cell to see if the formula updated. It didn't I have to double-click in the cell and hit enter (basically like re-entering it) for it to return the right value.

Macro?: Try this reworking this macro, I haven't got this part to work,

If CELL("format",E & i & ),1,1) <> "D" Then

not sure how to write that code, hopefully you do. If so, post it back here so that I can learn something

If CELL("format",E & i & ),1,1) <> "D" Then

Sub Warning()

For i = 1 To 10
If CELL("format",E & i & ),1,1) <> "D" Then
Range("G" & i).Value = "Warning"
End If

End Sub

[ This Message was edited by: Cosmos75 on 2002-04-10 11:39 ]

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 10th, 2002, 07:19 AM	#1
Frankie needs HELP New Member Join Date: Apr 2002 Posts: 43	Anyone got any ideas: In my 7 column spreadsheet I want a warning sign to appear IF in column E there is no dates (meaning that no one has been admitted).

Apr 10th, 2002, 12:08 PM	#2
Cosmos75 Board Regular Join Date: Feb 2002 Location: Tulsa, OK Posts: 354	Does column 7 contain and formulas or data? If you want to use a formula you can use =IF(MID(CELL("format",E1),1,1)<>"D","WARNING","") or you can just use that in a macro.. WARNING!: If the cells are formatted with the date format but are empty, it will not show a warning. NOTE: A word of warning. I tried to change the format of the reference cell to see if the formula updated. It didn't I have to double-click in the cell and hit enter (basically like re-entering it) for it to return the right value. Macro?: Try this reworking this macro, I haven't got this part to work, If CELL("format",E & i & ),1,1) <> "D" Then not sure how to write that code, hopefully you do. If so, post it back here so that I can learn something If CELL("format",E & i & ),1,1) <> "D" Then Sub Warning() For i = 1 To 10 If CELL("format",E & i & ),1,1) <> "D" Then Range("G" & i).Value = "Warning" End If End Sub [ This Message was edited by: Cosmos75 on 2002-04-10 11:39 ]