Macro to enter a value, tab to next cell in the row, enter ...



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:

' 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"
ActiveCell.FormulaR1C1 = "May"
ActiveCell.FormulaR1C1 = "Joe"
End Sub

Thanks for your help


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

Jacob Skaria

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


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.


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question