ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Macro command (https://www.excelbanter.com/excel-discussion-misc-queries/209782-macro-command.html)

djungst

Macro command
 
How do I change this macro so that when activated, it moves to the cell below
instead of returning to the original cell?

Sub Macro3()
'
' Macro3 Macro
' Macro recorded 11/10/2008 by Don
'
' Keyboard Shortcut: Ctrl+z
'
ActiveCell.FormulaR1C1 = ""
Range("H13").Select
End Sub

Mike

Macro command
 
Sub moveDown()
ActiveCell.Offset(1, 0).Activate
End Sub

"djungst" wrote:

How do I change this macro so that when activated, it moves to the cell below
instead of returning to the original cell?

Sub Macro3()
'
' Macro3 Macro
' Macro recorded 11/10/2008 by Don
'
' Keyboard Shortcut: Ctrl+z
'
ActiveCell.FormulaR1C1 = ""
Range("H13").Select
End Sub


ShaneDevenshire

Macro command
 
Hi,

ActiveCell = ""

remove the Select line.

Side comment - using the shortcut key Ctrl+z is probably not the best
choice, it will work but it overrides Excel's very useful shortcut key Undo =
Ctrl+z

--
Thanks,
Shane Devenshire


"djungst" wrote:

How do I change this macro so that when activated, it moves to the cell below
instead of returning to the original cell?

Sub Macro3()
'
' Macro3 Macro
' Macro recorded 11/10/2008 by Don
'
' Keyboard Shortcut: Ctrl+z
'
ActiveCell.FormulaR1C1 = ""
Range("H13").Select
End Sub


ShaneDevenshire

Macro command
 
Hi again,

Let me amend my last, hasty email.

ActiveCell = ""
ActiveCell.Offset(1,0).Select

--
Thanks,
Shane Devenshire


"djungst" wrote:

How do I change this macro so that when activated, it moves to the cell below
instead of returning to the original cell?

Sub Macro3()
'
' Macro3 Macro
' Macro recorded 11/10/2008 by Don
'
' Keyboard Shortcut: Ctrl+z
'
ActiveCell.FormulaR1C1 = ""
Range("H13").Select
End Sub



All times are GMT +1. The time now is 02:24 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com