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