POInv macro w/ if then statement

[Guest]

i have a macro that runs when i press the big button (macro is in module).
macro does the following:
- saves a copy of the purchase order based on the po number and date stamp
- saves a copy on the hard drive
- emails a copy to accounts payable
- prints a copy for the actual invoice
- cleans the purchase order back to original state
- increases the po number by 1
- saves the new blank po

the date cell contains "[Ctrl] ;" - i want them to use that so the date is
entered in a preformatted condition and cannot be incorrect

i used the following code at the start of the macro
If .Range("M7") <> "[Ctrl] ;" Then
with End If at the end of the macro, but it does not work.

is there any other way to enter the current date into the macro so that M7
self populates when the macro is run.

- the code =today() cannot be used because the copy stored on the hard drive
keeps updating itself when the file is opened.

regards

jat

 

[Roger Govier]

Hi

You could use something like
Range("M7") = Format(date, "dd mmm yyyy")

Date in VBA will return the current date.

If you made your PO a Template, rather than a .xls file, you could save
yourself the task of

- cleans the purchase order back to original state
- saves the new blank po

--
Regards

Roger Govier

i have a macro that runs when i press the big button (macro is in
module).
macro does the following:
- saves a copy of the purchase order based on the po number and date
stamp
- saves a copy on the hard drive
- emails a copy to accounts payable
- prints a copy for the actual invoice
- cleans the purchase order back to original state
- increases the po number by 1
- saves the new blank po

the date cell contains "[Ctrl] ;" - i want them to use that so the
date is
entered in a preformatted condition and cannot be incorrect

i used the following code at the start of the macro
If .Range("M7") <> "[Ctrl] ;" Then
with End If at the end of the macro, but it does not work.

is there any other way to enter the current date into the macro so
that M7
self populates when the macro is run.

- the code =today() cannot be used because the copy stored on the hard
drive
keeps updating itself when the file is opened.

regards

jat

 

[Guest]

i try the template format sometime this month;

regards,

jat

Hi

You could use something like
Range("M7") = Format(date, "dd mmm yyyy")

Date in VBA will return the current date.

If you made your PO a Template, rather than a .xls file, you could save
yourself the task of

- cleans the purchase order back to original state
- saves the new blank po

--
Regards

Roger Govier

i have a macro that runs when i press the big button (macro is in
module).
macro does the following:
- saves a copy of the purchase order based on the po number and date
stamp
- saves a copy on the hard drive
- emails a copy to accounts payable
- prints a copy for the actual invoice
- cleans the purchase order back to original state
- increases the po number by 1
- saves the new blank po

the date cell contains "[Ctrl] ;" - i want them to use that so the
date is
entered in a preformatted condition and cannot be incorrect

i used the following code at the start of the macro
If .Range("M7") <> "[Ctrl] ;" Then
with End If at the end of the macro, but it does not work.

is there any other way to enter the current date into the macro so
that M7
self populates when the macro is run.

- the code =today() cannot be used because the copy stored on the hard
drive
keeps updating itself when the file is opened.

regards

jat

 

[Guest]

code works, thank you

jat

Hi

You could use something like
Range("M7") = Format(date, "dd mmm yyyy")

Date in VBA will return the current date.

If you made your PO a Template, rather than a .xls file, you could save
yourself the task of

- cleans the purchase order back to original state
- saves the new blank po

--
Regards

Roger Govier

i have a macro that runs when i press the big button (macro is in
module).
macro does the following:
- saves a copy of the purchase order based on the po number and date
stamp
- saves a copy on the hard drive
- emails a copy to accounts payable
- prints a copy for the actual invoice
- cleans the purchase order back to original state
- increases the po number by 1
- saves the new blank po

the date cell contains "[Ctrl] ;" - i want them to use that so the
date is
entered in a preformatted condition and cannot be incorrect

i used the following code at the start of the macro
If .Range("M7") <> "[Ctrl] ;" Then
with End If at the end of the macro, but it does not work.

is there any other way to enter the current date into the macro so
that M7
self populates when the macro is run.

- the code =today() cannot be used because the copy stored on the hard
drive
keeps updating itself when the file is opened.

regards

jat