I'm recording a copy/paste macro, using 'end' 'down arrow' to get to bottom
of list and then press the down arrow. When I press the down arrow, I just
want the code to appear for pressing the down arrow, but instead it puts a
range command with a specific cell location, like A1046. What can I replace
this statement with, so I can just go down one cell, so it can start the
copy/paste? Here's the code:
(I want to keep this code, but just change the "Range("A1041").Select" part
to reflect pressing the down arrow key, instead of actually giving me a
"cell" location.)

Can anyone help? thx Dotti


Application.Goto Reference:="DataOtherEquip"
Selection.Copy
Sheets("SQL Equip").Select
Range("A2").Select
Selection.End(xlDown).Select
' note for Dotti - change this next statement to reflect 'down' one cell
instead of a range

Range("A1041").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Other Equip").Select
Range("A1").Select
Application.CutCopyMode = False
Sheets("SQL Equip").Select
End Sub

Selection.End(xlDown).offset(1,0).select

And delete that next statement.

You could also drop the .select's:

Dim RngToCopy as range
dim DestCell as Range

set rngtocopy = worksheets("whateversheetname").range("DataOtherEq uip")

with workSheets("SQL Equip")
set destcell = .range("a2").end(xldown).offset(1,0)
end with

Rngtocopy.copy _
destination:=destcell

Application.CutCopyMode = False



Dotti wrote:

I'm recording a copy/paste macro, using 'end' 'down arrow' to get to bottom
of list and then press the down arrow. When I press the down arrow, I just
want the code to appear for pressing the down arrow, but instead it puts a
range command with a specific cell location, like A1046. What can I replace
this statement with, so I can just go down one cell, so it can start the
copy/paste? Here's the code:
(I want to keep this code, but just change the "Range("A1041").Select" part
to reflect pressing the down arrow key, instead of actually giving me a
"cell" location.)

Can anyone help? thx Dotti

Application.Goto Reference:="DataOtherEquip"
Selection.Copy
Sheets("SQL Equip").Select
Range("A2").Select
Selection.End(xlDown).Select
' note for Dotti - change this next statement to reflect 'down' one cell
instead of a range

Range("A1041").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Other Equip").Select
Range("A1").Select
Application.CutCopyMode = False
Sheets("SQL Equip").Select
End Sub

--

Dave Peterson

Thanks, but that didn't work. Did I do something wrong? Here's the code:

I think we're close; any more suggestions??? Thanks for your help! Dotti


Application.Goto Reference:="DataOtherEquip"
Selection.Copy
Sheets("SQL Equip").Select
Range("A2").Select
Selection.End(xlDown).Select
' note for Dotti - change this next statement to reflect 'down' one cell
instead of a range

' Range("A1041").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Other Equip").Select
Range("A1").Select
Application.CutCopyMode = False
Sheets("SQL Equip").Select
End Sub



"Dave Peterson" wrote:

Selection.End(xlDown).offset(1,0).select

And delete that next statement.

You could also drop the .select's:

Dim RngToCopy as range
dim DestCell as Range

set rngtocopy = worksheets("whateversheetname").range("DataOtherEq uip")

with workSheets("SQL Equip")
set destcell = .range("a2").end(xldown).offset(1,0)
end with

Rngtocopy.copy _
destination:=destcell

Application.CutCopyMode = False



Dotti wrote:

I'm recording a copy/paste macro, using 'end' 'down arrow' to get to bottom
of list and then press the down arrow. When I press the down arrow, I just
want the code to appear for pressing the down arrow, but instead it puts a
range command with a specific cell location, like A1046. What can I replace
this statement with, so I can just go down one cell, so it can start the
copy/paste? Here's the code:
(I want to keep this code, but just change the "Range("A1041").Select" part
to reflect pressing the down arrow key, instead of actually giving me a
"cell" location.)

Can anyone help? thx Dotti

Application.Goto Reference:="DataOtherEquip"
Selection.Copy
Sheets("SQL Equip").Select
Range("A2").Select
Selection.End(xlDown).Select
' note for Dotti - change this next statement to reflect 'down' one cell
instead of a range

Range("A1041").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Other Equip").Select
Range("A1").Select
Application.CutCopyMode = False
Sheets("SQL Equip").Select
End Sub

--

Dave Peterson

Application.Goto Reference:="DataOtherEquip"
Selection.Copy
Sheets("SQL Equip").Select
Range("A2").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Other Equip").Select
Range("A1").Select
Application.CutCopyMode = False
Sheets("SQL Equip").Select
End Sub

Did you think about trying the other suggestion. Lots of times, it's easier to
see what's happening if there aren't .select's in the code.



Dotti wrote:

Thanks, but that didn't work. Did I do something wrong? Here's the code:

I think we're close; any more suggestions??? Thanks for your help! Dotti

Application.Goto Reference:="DataOtherEquip"
Selection.Copy
Sheets("SQL Equip").Select
Range("A2").Select
Selection.End(xlDown).Select
' note for Dotti - change this next statement to reflect 'down' one cell
instead of a range

' Range("A1041").Select
Selection.End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Other Equip").Select
Range("A1").Select
Application.CutCopyMode = False
Sheets("SQL Equip").Select
End Sub

"Dave Peterson" wrote:

Selection.End(xlDown).offset(1,0).select

And delete that next statement.

You could also drop the .select's:

Dim RngToCopy as range
dim DestCell as Range

set rngtocopy = worksheets("whateversheetname").range("DataOtherEq uip")

with workSheets("SQL Equip")
set destcell = .range("a2").end(xldown).offset(1,0)
end with

Rngtocopy.copy _
destination:=destcell

Application.CutCopyMode = False



Dotti wrote:

I'm recording a copy/paste macro, using 'end' 'down arrow' to get to bottom
of list and then press the down arrow. When I press the down arrow, I just
want the code to appear for pressing the down arrow, but instead it puts a
range command with a specific cell location, like A1046. What can I replace
this statement with, so I can just go down one cell, so it can start the
copy/paste? Here's the code:
(I want to keep this code, but just change the "Range("A1041").Select" part
to reflect pressing the down arrow key, instead of actually giving me a
"cell" location.)

Can anyone help? thx Dotti

Application.Goto Reference:="DataOtherEquip"
Selection.Copy
Sheets("SQL Equip").Select
Range("A2").Select
Selection.End(xlDown).Select
' note for Dotti - change this next statement to reflect 'down' one cell
instead of a range

Range("A1041").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Other Equip").Select
Range("A1").Select
Application.CutCopyMode = False
Sheets("SQL Equip").Select
End Sub

--

Dave Peterson


--

Dave Peterson