VBA code for pressing "down arrow" in recording macro
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
|