Thread
:
Copy Row Paste Row (Seperate Sheet)
View Single Post
#
5
Posted to microsoft.public.excel.programming
Benz
external usenet poster
Posts: 63
Copy Row Paste Row (Seperate Sheet)
When I try that I get the error; "Application - defined or object - defined
error"
"Don Guillett" wrote:
This will fail if there is nothing after a1 so you may prefer
..cells(rows.count,"a").end(xlup).row+1
Sub TESTINGTRANSFER()
Selection.EntireRow.Cut Destination:= _
Sheets("sheet18").Range("A1").End(xlDown).Offset(1 )
End Sub
--
Don Guillett
SalesAid Software
"Benz" wrote in message
...
Sorry,
Code:
Sub TESTINGTRANSFER()
Selection.Copy
Sheets("A").Select
Selection.Select
Sheets("B").Select.Range("A1").End(xlDown).Offset( 1, 0).Paste
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub
Thanks Don.
"Don Guillett" wrote:
Pretty easy but, as always, post YOUR coding efforts for comments
--
Don Guillett
SalesAid Software
"Benz" wrote in message
...
Hello,
I have what I would imagine to be a pretty simple question. I'm having
trouble getting a macro to copy the selected row in sheet "A" and paste
in
the first available row in sheet "B" and then delete the content from
the
original row in Sheet "A". I can just almost get it but not quiet.
Thank
you to anyone that helps.
Reply With Quote
Benz
View Public Profile
Find all posts by Benz