Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
End(XlDown).Row - Problem if only 1 row
Hi all,
I use the End(xldown).Row for splitting up a a file on import. With ActiveSheet LastCell8 = .Range("h1").End(xlDown).Row .Range("m1").Copy .Range("m2:m" & LastCell8).Select .Paste End With However sometimes the import file is only 1 row and it ends up selecting all 65,000 rows ... Any thoughts how I can work this out bearing in mind I've already written code using the above. Thanks. Ed |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
End(XlDown).Row - Problem if only 1 row
Use something like Cells(8, 65536).End(xlUp).Row
RBS "Ed Peters" wrote in message oups.com... Hi all, I use the End(xldown).Row for splitting up a a file on import. With ActiveSheet LastCell8 = .Range("h1").End(xlDown).Row .Range("m1").Copy .Range("m2:m" & LastCell8).Select .Paste End With However sometimes the import file is only 1 row and it ends up selecting all 65,000 rows ... Any thoughts how I can work this out bearing in mind I've already written code using the above. Thanks. Ed |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
End(XlDown).Row - Problem if only 1 row
Substitute this line:
lastcell8 = .Range("h1").End(xlDown).End(xlDown).End(xlUp).Row - David On Sep 12, 3:44 pm, Ed Peters wrote: Hi all, I use the End(xldown).Row for splitting up a a file on import. With ActiveSheet LastCell8 = .Range("h1").End(xlDown).Row .Range("m1").Copy .Range("m2:m" & LastCell8).Select .Paste End With However sometimes the import file is only 1 row and it ends up selecting all 65,000 rows ... Any thoughts how I can work this out bearing in mind I've already written code using the above. Thanks. Ed |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
xlDown going further than data | Excel Programming | |||
End(xlDown) won't work | Excel Programming | |||
End(xldown) not always going to last cell? | Excel Programming | |||
XlDown: Go to next blank row | Excel Programming | |||
xldown and xlright | Excel Programming |