| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find next empty row & paste data
I have a cell that I paste data in from internet directory. I am trying to
write macro that pastes & copies data-finds next empty row in col h, & paste selection from A8:F8 The below code is not working quite right. It doesn't go to column H empty row? Thanks for the help. Sub PasteLastRow() Range("a2").PasteSpecial xlPasteAll Range("a8:e8").Copy Range("h1048576").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues End Sub |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Find next empty row & paste data
"Pat Flynn" skrev i en meddelelse ... I have a cell that I paste data in from internet directory. I am trying to write macro that pastes & copies data-finds next empty row in col h, & paste selection from A8:F8 The below code is not working quite right. It doesn't go to column H empty row? Thanks for the help. Sub PasteLastRow() Range("a2").PasteSpecial xlPasteAll Range("a8:e8").Copy Range("h1048576").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues End Sub Sub PasteLastRow() Range("A2").PasteSpecial xlPasteAll Range("A8:E8").Copy Range("H65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues End Sub Regards, Per |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Find next empty row & paste data
Thanks Per-It turns out that my code was working-had a filtered list so I was not seeing the results. I unfiltered the list and it works great! Pat "Per Jessen" wrote: "Pat Flynn" skrev i en meddelelse ... I have a cell that I paste data in from internet directory. I am trying to write macro that pastes & copies data-finds next empty row in col h, & paste selection from A8:F8 The below code is not working quite right. It doesn't go to column H empty row? Thanks for the help. Sub PasteLastRow() Range("a2").PasteSpecial xlPasteAll Range("a8:e8").Copy Range("h1048576").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues End Sub Sub PasteLastRow() Range("A2").PasteSpecial xlPasteAll Range("A8:E8").Copy Range("H65536").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues End Sub Regards, Per |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Find first empty cell in column J. Copy, paste special, value from | Excel Programming | |||
| Find Empty Cell and Paste | Excel Programming | |||
| I need to find the first empty row in a sheet to paste data to | Excel Programming | |||
| macro to copy paste non empty data | Excel Programming | |||
| Find Empty Column and paste cell values | Excel Programming | |||
Linear Mode
