Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Footer... Entering Serial Nos and incremnting daily
In the footer, is it possible to AUTOmatically place a serial number, say starting at 00035 on 18 November 2005, each time the date is changed, daily, the serial number increment by the same number of days. i.e 19/11/05.... 00036 20/11/05.... 00037 21/11/05.... 00038 22/11/05.... 00039 If it cannot be placed in the Footer is there any otherway? Thanks for any suggestions. |
#2
|
|||
|
|||
Footer... Entering Serial Nos and incremnting daily
Gunjani-
I would run the 1st macro on the 18th and then place the 2nd macro in the ThisWorkbook module: Sub StartFooter() ActiveSheet.PageSetup.CenterFooter = "00035" End Sub Sub Workbook_Open() Dim iDiff As Integer Dim sNewNum As String iDiff = Int(Now) - DateSerial(2005, 11, 18) sNewNum = CStr(Format(35 + iDiff, "00000")) ActiveSheet.PageSetup.CenterFooter = sNewNum End Sub --- HTH Jason Atlanta, GA "Gunjani" wrote: In the footer, is it possible to AUTOmatically place a serial number, say starting at 00035 on 18 November 2005, each time the date is changed, daily, the serial number increment by the same number of days. i.e 19/11/05.... 00036 20/11/05.... 00037 21/11/05.... 00038 22/11/05.... 00039 If it cannot be placed in the Footer is there any otherway? Thanks for any suggestions. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|