Message box date format macro help
 

Sub proving()
Worksheets("Proving Equipment").Visible = True
Sheets("Proving Equipment").Select
If (n62 + 31) < o62 Then
MsgBox ("Proving Equipment Expires Within 1 Month"),
vbInformation, "Proving Kit Check"
Else
'MsgBox ("No Probs"), vbInformation, "Proving Kit Check"
End If
End Sub

I have date formatted n62 and 062, and in the cells I have 16/05/09
and 16/06/09 but when I pause the macro mid stream and hover over the
n62 and o62 it says =empty.

Needless to say it doesent work unless I swap the < sign around.

It always displays the first msg box unless i swap the < then it
displays the other message box. Changing the dates doesent trigger the
change.

I want to allow 31 days before the first msg box pops up.

TIA

Message box date format macro help
 

hi
see your other post.

Regards
FSt1

"Aaron" wrote:

Sub proving()
Worksheets("Proving Equipment").Visible = True
Sheets("Proving Equipment").Select
If (n62 + 31) < o62 Then
MsgBox ("Proving Equipment Expires Within 1 Month"),
vbInformation, "Proving Kit Check"
Else
'MsgBox ("No Probs"), vbInformation, "Proving Kit Check"
End If
End Sub

I have date formatted n62 and 062, and in the cells I have 16/05/09
and 16/06/09 but when I pause the macro mid stream and hover over the
n62 and o62 it says =empty.

Needless to say it doesent work unless I swap the < sign around.

It always displays the first msg box unless i swap the < then it
displays the other message box. Changing the dates doesent trigger the
change.

I want to allow 31 days before the first msg box pops up.

TIA

Message box date format macro help
 

On Jun 16, 6:18*pm, FSt1 wrote:
hi
see your other post.

Regards
FSt1

"Aaron" wrote:
Sub proving()
* *Worksheets("Proving Equipment").Visible = True
* *Sheets("Proving Equipment").Select
* *If (n62 + 31) < o62 Then
* *MsgBox ("Proving Equipment Expires Within 1 Month"),
vbInformation, "Proving Kit Check"
* *Else
* *'MsgBox ("No Probs"), vbInformation, "Proving Kit Check"
* *End If
* *End Sub

I have date formatted n62 and 062, and in the cells I have 16/05/09
and 16/06/09 but when I pause the macro mid stream and hover over the
n62 and o62 it says =empty.

Needless to say it doesent work unless I swap the < sign around.

It always displays the first msg box unless i swap the < then it
displays the other message box. Changing the dates doesent trigger the
change.

I want to allow 31 days before the first msg box pops up.

TIA

Awesome thank-you I will change it and see how I go.

Cheers,

Aaron.