Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
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 Aaron. |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Message box date format macro help
hi
this line.. If (n62 + 31) < o62 Then i'm not sure if VB is reading these as cell addess much less values in the celll address ie syntax problem. try this instead... If [O62] - [N62] < 31 Then or if range("O62").value - range("N62").value 31 then both work. 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 Aaron. |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Message box date format macro help
oops. the second line should have the sign reversed ie.
if range("O62").value - range("N62").value < 31 then sorry regards FSt1 "FSt1" wrote: hi this line.. If (n62 + 31) < o62 Then i'm not sure if VB is reading these as cell addess much less values in the celll address ie syntax problem. try this instead... If [O62] - [N62] < 31 Then or if range("O62").value - range("N62").value 31 then both work. 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 Aaron. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
date format problem using Macro | Excel Discussion (Misc queries) | |||
A macro disabled message comes up but there is no macro. | Excel Discussion (Misc queries) | |||
Macro to Change Changing Date Format Data to Text | Excel Discussion (Misc queries) | |||
date format changes when I save to CSV via a macro, but not manual | Excel Discussion (Misc queries) | |||
date format changes when I save to CSV via a macro | Excel Discussion (Misc queries) |