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.

When I tried that is when I receive the 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


--
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.

copy/paste your entire code here

--
Don Guillett
SalesAid Software

"Benz" wrote in message
...
When I tried that is when I receive the 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


--
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.

I originaly tried what you said :

Sub TESTINGTRANSFER2()
Selection.EntireRow.Cut Destination:= _
Sheets("B").Cells(Rows.Count, "a").End(xlUp).Row + 1
End Sub

Then I received an error.
So I tried fussing with it and tried this:

Sub TESTINGTRANSFER()

Selection.EntireRow.Copy Destination:= _
Sheets("B").Range("A1").End(xlDown).Offset(1)
Selection.Delete Shift:=xlUp

End Sub

Im not the greatest at VBA but this is so confusing to me.

Thank you for your help, its probaly frustrating to you.





"Don Guillett" wrote:

copy/paste your entire code here

--
Don Guillett
SalesAid Software

"Benz" wrote in message
...
When I tried that is when I receive the 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


--
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.

If you like send your workbook to my email below along with this email and
specific instructions on what your are trying to do.

--
Don Guillett
SalesAid Software

"Benz" wrote in message
...
I originaly tried what you said :

Sub TESTINGTRANSFER2()
Selection.EntireRow.Cut Destination:= _
Sheets("B").Cells(Rows.Count, "a").End(xlUp).Row + 1
End Sub

Then I received an error.
So I tried fussing with it and tried this:

Sub TESTINGTRANSFER()

Selection.EntireRow.Copy Destination:= _
Sheets("B").Range("A1").End(xlDown).Offset(1)
Selection.Delete Shift:=xlUp

End Sub

Im not the greatest at VBA but this is so confusing to me.

Thank you for your help, its probaly frustrating to you.





"Don Guillett" wrote:

copy/paste your entire code here

--
Don Guillett
SalesAid Software

"Benz" wrote in message
...
When I tried that is when I receive the 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


--
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.

I Sent you an e-mail, have you received it?

"Don Guillett" wrote:

If you like send your workbook to my email below along with this email and
specific instructions on what your are trying to do.

--
Don Guillett
SalesAid Software

"Benz" wrote in message
...
I originaly tried what you said :

Sub TESTINGTRANSFER2()
Selection.EntireRow.Cut Destination:= _
Sheets("B").Cells(Rows.Count, "a").End(xlUp).Row + 1
End Sub

Then I received an error.
So I tried fussing with it and tried this:

Sub TESTINGTRANSFER()

Selection.EntireRow.Copy Destination:= _
Sheets("B").Range("A1").End(xlDown).Offset(1)
Selection.Delete Shift:=xlUp

End Sub

Im not the greatest at VBA but this is so confusing to me.

Thank you for your help, its probaly frustrating to you.





"Don Guillett" wrote:

copy/paste your entire code here

--
Don Guillett
SalesAid Software

"Benz" wrote in message
...
When I tried that is when I receive the 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


--
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.

Use this instead. Notice the . in the with statement . Workbook forwarded

Sub TESTINGTRANSFER2()
With Sheets("process")
lr = .Cells(.Rows.Count, "a").End(xlUp).Row + 1
Selection.EntireRow.Cut Destination:=.Cells(lr, "a")
End With
End Sub

--
Don Guillett
SalesAid Software

"Don Guillett" wrote in message
...
If you like send your workbook to my email below along with this email and
specific instructions on what your are trying to do.

--
Don Guillett
SalesAid Software

"Benz" wrote in message
...
I originaly tried what you said :

Sub TESTINGTRANSFER2()
Selection.EntireRow.Cut Destination:= _
Sheets("B").Cells(Rows.Count, "a").End(xlUp).Row + 1
End Sub

Then I received an error.
So I tried fussing with it and tried this:

Sub TESTINGTRANSFER()

Selection.EntireRow.Copy Destination:= _
Sheets("B").Range("A1").End(xlDown).Offset(1)
Selection.Delete Shift:=xlUp

End Sub

Im not the greatest at VBA but this is so confusing to me.

Thank you for your help, its probaly frustrating to you.





"Don Guillett" wrote:

copy/paste your entire code here

--
Don Guillett
SalesAid Software

"Benz" wrote in message
...
When I tried that is when I receive the 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


--
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.