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.

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.

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.

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.

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.

This will fail if there is nothing after a1 so you may prefer

..cells(rows.count,"a").end(xlup).row+1


--
Don Guillett
SalesAid Software

"Benz" wrote in message
...
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.