I recorded a macro to enter data in a cell, tab to the next cell and enter
data, tab to next cell, and enter data.

The problem is it runs in the cell it was recorded in, not whatever cell is
currently active. How do I modify the code to start in whatever cell is
currently active and then tab to whatever cell is to the right of that cell
and enter data... etc.

Here's the code:

Sub A_FILLIN()
'
' A_FILLIN Macro
' Fill-in the row with A May Joe, and then
' drop down to the next row/cell beneath A
'
' Keyboard Shortcut: Ctrl+Shift+A
'
ActiveCell.FormulaR1C1 = "A"
Range("B1").Select
ActiveCell.FormulaR1C1 = "May"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Joe"
Range("D1").Select
End Sub

Thanks for your help
--
FirstVette52

That puts the next value in a new row, but the next value needs to go in a
new column on the same row. Once all the values have been entered then it
needs to go to a new row.

Thanks for your help
--
FirstVette52


"Jacob Skaria" wrote:

Try the below. You dont need to select..You can use the Offset function to
refer the cell down by incrementing the row number..

Sub A_FILLIN()
ActiveCell = "A"
ActiveCell.Offset(1) = "May"
ActiveCell.Offset(2) = "Joe"
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"FirstVette52" wrote:

I recorded a macro to enter data in a cell, tab to the next cell and enter
data, tab to next cell, and enter data.

The problem is it runs in the cell it was recorded in, not whatever cell is
currently active. How do I modify the code to start in whatever cell is
currently active and then tab to whatever cell is to the right of that cell
and enter data... etc.

Here's the code:

Sub A_FILLIN()
'
' A_FILLIN Macro
' Fill-in the row with A May Joe, and then
' drop down to the next row/cell beneath A
'
' Keyboard Shortcut: Ctrl+Shift+A
'
ActiveCell.FormulaR1C1 = "A"
Range("B1").Select
ActiveCell.FormulaR1C1 = "May"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Joe"
Range("D1").Select
End Sub

Thanks for your help
--
FirstVette52

Sub A_FILLIN()
ActiveCell = "A"
ActiveCell.Offset(0, 1) = "May"
ActiveCell.Offset(0, 2) = "Joe"
ActiveCell.Offset(1, 0) = "B"
ActiveCell.Offset(1, 1) = "BMay"
ActiveCell.Offset(1, 2) = "BJoe"

End Sub

If this post helps click Yes
---------------
Jacob Skaria


"FirstVette52" wrote:

That puts the next value in a new row, but the next value needs to go in a
new column on the same row. Once all the values have been entered then it
needs to go to a new row.

Thanks for your help
--
FirstVette52


"Jacob Skaria" wrote:

Try the below. You dont need to select..You can use the Offset function to
refer the cell down by incrementing the row number..

Sub A_FILLIN()
ActiveCell = "A"
ActiveCell.Offset(1) = "May"
ActiveCell.Offset(2) = "Joe"
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"FirstVette52" wrote:

I recorded a macro to enter data in a cell, tab to the next cell and enter
data, tab to next cell, and enter data.

The problem is it runs in the cell it was recorded in, not whatever cell is
currently active. How do I modify the code to start in whatever cell is
currently active and then tab to whatever cell is to the right of that cell
and enter data... etc.

Here's the code:

Sub A_FILLIN()
'
' A_FILLIN Macro
' Fill-in the row with A May Joe, and then
' drop down to the next row/cell beneath A
'
' Keyboard Shortcut: Ctrl+Shift+A
'
ActiveCell.FormulaR1C1 = "A"
Range("B1").Select
ActiveCell.FormulaR1C1 = "May"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Joe"
Range("D1").Select
End Sub

Thanks for your help
--
FirstVette52

That gets it in the second row, but the cell focus is still on the first cell
when the macro finishes. Is there some way to get it to move down to the
next row? I've figured out that I can use a variable for the Active Cell
address after the ' ActiveCell = "A" ' (something like rw =
ActiveCell.Address), and then set the range at the end to rw, but I havn't
figured out how to get it to the next row after that.

Thx!
--
FirstVette52


"Jacob Skaria" wrote:

Sub A_FILLIN()
ActiveCell = "A"
ActiveCell.Offset(0, 1) = "May"
ActiveCell.Offset(0, 2) = "Joe"
ActiveCell.Offset(1, 0) = "B"
ActiveCell.Offset(1, 1) = "BMay"
ActiveCell.Offset(1, 2) = "BJoe"

End Sub

If this post helps click Yes
---------------
Jacob Skaria


"FirstVette52" wrote:

That puts the next value in a new row, but the next value needs to go in a
new column on the same row. Once all the values have been entered then it
needs to go to a new row.

Thanks for your help
--
FirstVette52


"Jacob Skaria" wrote:

Try the below. You dont need to select..You can use the Offset function to
refer the cell down by incrementing the row number..

Sub A_FILLIN()
ActiveCell = "A"
ActiveCell.Offset(1) = "May"
ActiveCell.Offset(2) = "Joe"
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"FirstVette52" wrote:

I recorded a macro to enter data in a cell, tab to the next cell and enter
data, tab to next cell, and enter data.

The problem is it runs in the cell it was recorded in, not whatever cell is
currently active. How do I modify the code to start in whatever cell is
currently active and then tab to whatever cell is to the right of that cell
and enter data... etc.

Here's the code:

Sub A_FILLIN()
'
' A_FILLIN Macro
' Fill-in the row with A May Joe, and then
' drop down to the next row/cell beneath A
'
' Keyboard Shortcut: Ctrl+Shift+A
'
ActiveCell.FormulaR1C1 = "A"
Range("B1").Select
ActiveCell.FormulaR1C1 = "May"
Range("C1").Select
ActiveCell.FormulaR1C1 = "Joe"
Range("D1").Select
End Sub

Thanks for your help
--
FirstVette52