| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Determine last col with data
Need a macro to determine the last col to the right(blanks in between) anc
copy last col to sheet1 Thanks |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Determine last col with data
Sorry for the misunderstanding.
I need a macro to find and copy the last col on a worksheet(There will be blanks between Col A and the last col on the right "Ron de Bruin" wrote in message ... You can use a function for that Ian Function Lastcol(sh As Worksheet) On Error Resume Next Lastcol = sh.Cells.Find(What:="*", _ After:=sh.Range("A1"), _ Lookat:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Column On Error GoTo 0 End FunctionOn this page tou can find some example codehow you can use ithttp://www.rondebruin.nl/copy1.htm -- Regards Ron de Bruin (Win XP Pro SP-1 XL2002 SP-2) www.rondebruin.nl "Ron de Bruin" wrote in message ... Last col in a row or last col in the worksheet Ian?? -- Regards Ron de Bruin (Win XP Pro SP-1 XL2002 SP-2) www.rondebruin.nl "ian" wrote in message ble.rogers.com... Need a macro to determine the last col to the right(blanks in between) anc copy last col to sheet1 Thanks |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Determine last col with data
See the link I posted there you can see how you can use the
function result in your macro. -- Regards Ron de Bruin (Win XP Pro SP-1 XL2002 SP-2) www.rondebruin.nl "ian" wrote in message able.rogers.com... Sorry for the misunderstanding. I need a macro to find and copy the last col on a worksheet(There will be blanks between Col A and the last col on the right "Ron de Bruin" wrote in message ... You can use a function for that Ian Function Lastcol(sh As Worksheet) On Error Resume Next Lastcol = sh.Cells.Find(What:="*", _ After:=sh.Range("A1"), _ Lookat:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Column On Error GoTo 0 End FunctionOn this page tou can find some example codehow you can use ithttp://www.rondebruin.nl/copy1.htm -- Regards Ron de Bruin (Win XP Pro SP-1 XL2002 SP-2) www.rondebruin.nl "Ron de Bruin" wrote in message ... Last col in a row or last col in the worksheet Ian?? -- Regards Ron de Bruin (Win XP Pro SP-1 XL2002 SP-2) www.rondebruin.nl "ian" wrote in message ble.rogers.com... Need a macro to determine the last col to the right(blanks in between) anc copy last col to sheet1 Thanks |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Determine last col with data
http://www.rondebruin.nl/copy1.htm
-- Regards Ron de Bruin (Win XP Pro SP-1 XL2002 SP-2) www.rondebruin.nl "Ron de Bruin" wrote in message ... See the link I posted there you can see how you can use the function result in your macro. -- Regards Ron de Bruin (Win XP Pro SP-1 XL2002 SP-2) www.rondebruin.nl "ian" wrote in message able.rogers.com... Sorry for the misunderstanding. I need a macro to find and copy the last col on a worksheet(There will be blanks between Col A and the last col on the right "Ron de Bruin" wrote in message ... You can use a function for that Ian Function Lastcol(sh As Worksheet) On Error Resume Next Lastcol = sh.Cells.Find(What:="*", _ After:=sh.Range("A1"), _ Lookat:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Column On Error GoTo 0 End FunctionOn this page tou can find some example codehow you can use ithttp://www.rondebruin.nl/copy1.htm -- Regards Ron de Bruin (Win XP Pro SP-1 XL2002 SP-2) www.rondebruin.nl "Ron de Bruin" wrote in message ... Last col in a row or last col in the worksheet Ian?? -- Regards Ron de Bruin (Win XP Pro SP-1 XL2002 SP-2) www.rondebruin.nl "ian" wrote in message ble.rogers.com... Need a macro to determine the last col to the right(blanks in between) anc copy last col to sheet1 Thanks |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| I need a formula to determine when the data was last changed | Excel Discussion (Misc queries) | |||
| Massaging data to determine risk | Excel Discussion (Misc queries) | |||
| How to determine the cause of missing data after I importing data | Excel Discussion (Misc queries) | |||
| How to determine if a cell's data has been changed | Excel Discussion (Misc queries) | |||
| formula to determine the first column containing any data | Excel Worksheet Functions | |||
Linear Mode
