Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to go to last cell in a column
Currently, I have this simple macro to find the next empty row to paste
input from a user. Range("B65536").End(xlUp).Offset(1, -1).Select ActiveSheet.Paste Works fine. But, I'd like to have it go to a range name, which would be the column header, then go to row 65536, then up. Something like this: Application.Goto Reference:="Column Header" Range("65536").End(xlUp).Offset(1, -1).Select '*** took B out of the range reference*** ActiveSheet.Paste I know it won't work like this, since I took the "B" out of the Range. But, I want to eliminate the column letter reference, in case of a redesign later, where I move columns. Can I have it as simple as the original macro above, but without the column letter? Thanks, J.O. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to go to last cell in a column
excelnut1954 wrote:
Currently, I have this simple macro to find the next empty row to paste input from a user. Range("B65536").End(xlUp).Offset(1, -1).Select ActiveSheet.Paste Works fine. But, I'd like to have it go to a range name, which would be the column header, then go to row 65536, then up. Something like this: Application.Goto Reference:="Column Header" Range("65536").End(xlUp).Offset(1, -1).Select '*** took B out of the range reference*** ActiveSheet.Paste I know it won't work like this, since I took the "B" out of the Range. But, I want to eliminate the column letter reference, in case of a redesign later, where I move columns. Can I have it as simple as the original macro above, but without the column letter? Thanks, J.O. Is there data in every cell to the left of the one you want to paste in? I don't use named ranges, but how about finding the intersect of range("a65536").end(xlup).entirerow and named_range.entirecolumn? Nik |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to go to last cell in a column
Thanks for the replies. I'll work on these, and see if either one will
work for what I'm doing. Thanks again!! J.O. Don Guillett wrote: Sub pastetolast() lr = Cells(Rows.Count, "b").End(xlUp).Row + 1 Range("i1").Copy Range("b" & lr) End Sub -- Don Guillett SalesAid Software "excelnut1954" wrote in message oups.com... Currently, I have this simple macro to find the next empty row to paste input from a user. Range("B65536").End(xlUp).Offset(1, -1).Select ActiveSheet.Paste Works fine. But, I'd like to have it go to a range name, which would be the column header, then go to row 65536, then up. Something like this: Application.Goto Reference:="Column Header" Range("65536").End(xlUp).Offset(1, -1).Select '*** took B out of the range reference*** ActiveSheet.Paste I know it won't work like this, since I took the "B" out of the Range. But, I want to eliminate the column letter reference, in case of a redesign later, where I move columns. Can I have it as simple as the original macro above, but without the column letter? Thanks, J.O. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro from cell specific to whole column | Excel Discussion (Misc queries) | |||
MACRO HELP, PASTE CELL TO COLUMN | Excel Discussion (Misc queries) | |||
Macro to go to next blank cell in column | Excel Discussion (Misc queries) | |||
Need the formula or macro. If i enter today date in the cell (Row 1,Column 2) and on tab out, the column 1 cell should be filled with "corresponding Day" of the date | Excel Discussion (Misc queries) | |||
Need Formula or macro. If i enter today date in the cell (Row 1,Column 2) and on tab out, the column 1 cell should be filled with "corresponding Day" of the date | Excel Discussion (Misc queries) |