A Microsoft Office (Excel, Word) forum. OfficeFrustration

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » OfficeFrustration forum » Microsoft Excel » Worksheet Functions
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

Message box date format macro help



 
 
Thread Tools Display Modes
  #1  
Old June 16th, 2009, 06:58 AM posted to microsoft.public.excel.worksheet.functions
Aaron
external usenet poster
 
Posts: 45
Default 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
  #2  
Old June 16th, 2009, 07:18 AM posted to microsoft.public.excel.worksheet.functions
FSt1
external usenet poster
 
Posts: 2,788
Default 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

  #3  
Old June 16th, 2009, 08:16 AM posted to microsoft.public.excel.worksheet.functions
Aaron
external usenet poster
 
Posts: 45
Default 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.
 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 05:24 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.