Ed,

Thanks for the suggestion. What I'm creating is a journal entry spreadsheet
to be uploaded into our general ledger accounting system. The first column is
for department number and the second column is for account number. Instead of
using combo box controls I've used the Excel Data/Validation/List feature;
because the chart of accounts is so long I don't want the user to have to
scroll down a list using a combo box but do want to control the input so that
only valid values from my chart of accounts are accepted.

I'm not too familiar with creating forms. Can I use the Data/Validation
feature in a form text box or would I have to use a combo box?

Thanks,
--
TomD


"Ed" wrote:

What about a UserForm that has five TextBoxes for input? Tab from box to
box; Enter would then load the data in the next available row's A-E and
clear the form for the next row's data. This can all be done using ranges,
so no need to actively move from cell to cell. Any other way might actually
add time to the input process, because the operator will have to tell the
macro that input is done -your idea has that done for each cell!

Ed

"TomD" wrote in message
...
I would like to create a macro that would improve efficiency in data input
to
an Excel spreadsheet. My operator needs to enter five columns of data per
row, then go to the next row's column A and start over. I've created a
simple
do loop to control cursor movement, but don't know how to pause the macro
while the operator keys in data. Is there any way to do this in VBA?

Here's what I have so far:

Sub detailline()
Dim c As Integer

Do Until c = 5
ActiveCell.Offset(0, 1).Select
c = c + 1
' I need to pause the macro at each column to allow for user input

Loop

ActiveCell.Offset(1, -5).Select
c = 0

End Sub

Thanks for your help,


--
TomD

It looks like you've got some other, better solutions. But if you'd like to
learn some more when you have time, check out www.contextures.com and the
VBA Help files for ListBox and ComboBox. The upshot is you have to create
lists for your data validation to work, and yes, you can put any list into a
ListBox, ComboBox, Option Buttons or CheckBoxes. Having said that, I have
to admit I have not done hardly any of that, and you would be better off
getting someone else's input on how to make it work well.

Ed

"TomD" wrote in message
...
Ed,

Thanks for the suggestion. What I'm creating is a journal entry
spreadsheet
to be uploaded into our general ledger accounting system. The first column
is
for department number and the second column is for account number. Instead
of
using combo box controls I've used the Excel Data/Validation/List feature;
because the chart of accounts is so long I don't want the user to have to
scroll down a list using a combo box but do want to control the input so
that
only valid values from my chart of accounts are accepted.

I'm not too familiar with creating forms. Can I use the Data/Validation
feature in a form text box or would I have to use a combo box?

Thanks,
--
TomD


"Ed" wrote:

What about a UserForm that has five TextBoxes for input? Tab from box to
box; Enter would then load the data in the next available row's A-E and
clear the form for the next row's data. This can all be done using
ranges,
so no need to actively move from cell to cell. Any other way might
actually
add time to the input process, because the operator will have to tell
the
macro that input is done -your idea has that done for each cell!

Ed

"TomD" wrote in message
...
I would like to create a macro that would improve efficiency in data
input
to
an Excel spreadsheet. My operator needs to enter five columns of data
per
row, then go to the next row's column A and start over. I've created a
simple
do loop to control cursor movement, but don't know how to pause the
macro
while the operator keys in data. Is there any way to do this in VBA?

Here's what I have so far:

Sub detailline()
Dim c As Integer

Do Until c = 5
ActiveCell.Offset(0, 1).Select
c = c + 1
' I need to pause the macro at each column to allow for user input

Loop

ActiveCell.Offset(1, -5).Select
c = 0

End Sub

Thanks for your help,


--
TomD