Hi All,
I am very new to VBA and have got one macro working, but when I copy and paste it to make an almost identical one, it doesnt work, I want the cell info to be pasted in the next blank cell. This works on the CTRL+w shortcut macro, but not on the CTRL+g macro. would appreciate any help.
Thanks
This one works
Sub Auto_destination_wire()
'
' Auto_destination_wire Macro
' will take reading to wire table
'
' Keyboard Shortcut: Ctrl+w
'
Selection.Copy
Sheets("Graph Data Area 1").Select
Range("D1").End(xlDown).Offset(1).Select
ActiveSheet.Paste Link:=True
Sheets("data1").Select
Application.CutCopyMode = False
End Sub
This one doesnt work (doesnt drop down to paste in the next available row)
Sub Auto_gap()
'
' Auto_gap Macro
' will take reading to gap table
'
' Keyboard Shortcut: Ctrl+g
'
Selection.Copy
Sheets("Graph Data Area 1").Select
Range("I1").End(xlDown).Offset(1).Select
ActiveSheet.Paste Link:=True
Sheets("data1").Select
Application.CutCopyMode = False
End Sub
Thanks for any help you could offer.
I am very new to VBA and have got one macro working, but when I copy and paste it to make an almost identical one, it doesnt work, I want the cell info to be pasted in the next blank cell. This works on the CTRL+w shortcut macro, but not on the CTRL+g macro. would appreciate any help.
Thanks
This one works
Sub Auto_destination_wire()
'
' Auto_destination_wire Macro
' will take reading to wire table
'
' Keyboard Shortcut: Ctrl+w
'
Selection.Copy
Sheets("Graph Data Area 1").Select
Range("D1").End(xlDown).Offset(1).Select
ActiveSheet.Paste Link:=True
Sheets("data1").Select
Application.CutCopyMode = False
End Sub
This one doesnt work (doesnt drop down to paste in the next available row)
Sub Auto_gap()
'
' Auto_gap Macro
' will take reading to gap table
'
' Keyboard Shortcut: Ctrl+g
'
Selection.Copy
Sheets("Graph Data Area 1").Select
Range("I1").End(xlDown).Offset(1).Select
ActiveSheet.Paste Link:=True
Sheets("data1").Select
Application.CutCopyMode = False
End Sub
Thanks for any help you could offer.