Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding date to bottom of worksheet
Hello all,
I'm trying to add the current date and some text to the bottom of a worksheet though the worksheet will have changing numbers of rows. Anyone know how to do this? Regards Chris |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding date to bottom of worksheet
On Aug 13, 1:08*pm, CELCAT wrote:
Hello all, I'm trying to add the current date and some text to the bottom of a worksheet though the worksheet will have changing numbers of rows. Anyone know how to do this? Regards Chris Chris, Can you define "the bottom of a worksheet"? (UsedRange will return the used range of a worksheet (which you can leverage to get the last row), going to the last row of a specified column and then doing .End (xlUp) will get you to the "last" non-empty cell in a column, and there are other ways depending on what you are trying to accomplish). Without knowing your definition of "bottom" it's hard to tell what will be most useful to you. Best, Matthew Herbert |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding date to bottom of worksheet
Hi Matthew,
Thanks for the quick response. Sorry for not being clearer. I'm importing a stored proceedure from SQL and it's populating the worksheet but I'd like to add the date on one line and some text under it leaving a 1 row space after the last row of data. The trouble I have is that the amount of data will very so the last row will keep changing. Does that make sense? Regards Chris "Matthew Herbert" wrote: On Aug 13, 1:08 pm, CELCAT wrote: Hello all, I'm trying to add the current date and some text to the bottom of a worksheet though the worksheet will have changing numbers of rows. Anyone know how to do this? Regards Chris Chris, Can you define "the bottom of a worksheet"? (UsedRange will return the used range of a worksheet (which you can leverage to get the last row), going to the last row of a specified column and then doing .End (xlUp) will get you to the "last" non-empty cell in a column, and there are other ways depending on what you are trying to accomplish). Without knowing your definition of "bottom" it's hard to tell what will be most useful to you. Best, Matthew Herbert |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding date to bottom of worksheet
Give this macro a try...
Sub AddDateAtBottom() Dim LastUsedRow As Long With ActiveSheet LastUsedRow = .Cells.Find(What:="*", SearchOrder:=xlRows, _ SearchDirection:=xlPrevious).Row .Cells(LastUsedRow + 2, "A").Value = Date .Cells(LastUsedRow + 3, "A").Value = "Some additional text" End With End Sub -- Rick (MVP - Excel) "CELCAT" wrote in message ... Hi Matthew, Thanks for the quick response. Sorry for not being clearer. I'm importing a stored proceedure from SQL and it's populating the worksheet but I'd like to add the date on one line and some text under it leaving a 1 row space after the last row of data. The trouble I have is that the amount of data will very so the last row will keep changing. Does that make sense? Regards Chris "Matthew Herbert" wrote: On Aug 13, 1:08 pm, CELCAT wrote: Hello all, I'm trying to add the current date and some text to the bottom of a worksheet though the worksheet will have changing numbers of rows. Anyone know how to do this? Regards Chris Chris, Can you define "the bottom of a worksheet"? (UsedRange will return the used range of a worksheet (which you can leverage to get the last row), going to the last row of a specified column and then doing .End (xlUp) will get you to the "last" non-empty cell in a column, and there are other ways depending on what you are trying to accomplish). Without knowing your definition of "bottom" it's hard to tell what will be most useful to you. Best, Matthew Herbert |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Adding date to bottom of worksheet
Thanks Rick, works fine.
Thanks also to Matthew for your assistance "Rick Rothstein" wrote: Give this macro a try... Sub AddDateAtBottom() Dim LastUsedRow As Long With ActiveSheet LastUsedRow = .Cells.Find(What:="*", SearchOrder:=xlRows, _ SearchDirection:=xlPrevious).Row .Cells(LastUsedRow + 2, "A").Value = Date .Cells(LastUsedRow + 3, "A").Value = "Some additional text" End With End Sub -- Rick (MVP - Excel) "CELCAT" wrote in message ... Hi Matthew, Thanks for the quick response. Sorry for not being clearer. I'm importing a stored proceedure from SQL and it's populating the worksheet but I'd like to add the date on one line and some text under it leaving a 1 row space after the last row of data. The trouble I have is that the amount of data will very so the last row will keep changing. Does that make sense? Regards Chris "Matthew Herbert" wrote: On Aug 13, 1:08 pm, CELCAT wrote: Hello all, I'm trying to add the current date and some text to the bottom of a worksheet though the worksheet will have changing numbers of rows. Anyone know how to do this? Regards Chris Chris, Can you define "the bottom of a worksheet"? (UsedRange will return the used range of a worksheet (which you can leverage to get the last row), going to the last row of a specified column and then doing .End (xlUp) will get you to the "last" non-empty cell in a column, and there are other ways depending on what you are trying to accomplish). Without knowing your definition of "bottom" it's hard to tell what will be most useful to you. Best, Matthew Herbert |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Adding Sum to bottom of Col C for all Sheets in Array | Excel Programming | |||
End (bottom) of worksheet | Excel Worksheet Functions | |||
Adding in row at bottom of range | Excel Programming | |||
Adding a worksheet from a date named workbook and save as current | Excel Programming | |||
Adding info in the row at the bottom using macro? | Excel Discussion (Misc queries) |