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. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
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
|
|||
|
|||
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
|
|||
|
|||
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 | |
|
|