Thread
:
Exce small program
View Single Post
#
5
Posted to microsoft.public.excel.programming
Don Guillett
external usenet poster
Posts: 10,124
Exce small program
Private Sub Worksheet_change(ByVal Target As Range)
If Intersect(Target, Columns("c")) _
Is Nothing Then Exit Sub
Target.Offset(, 1) = Now()
'Target.Offset(, 2) = InputBox("entermoredata")
ans = InputBox("entermoredata")
If ans = "" Then Exit Sub
Target.Offset(1) = ans
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Texasowl" wrote in message
...
"Don Guillett" wrote:
Right click sheet tabview codeinsert this
Now when you enter something in col b now will be in col c and the macro
asks what to put in col D
Private Sub Worksheet_change(ByVal Target As Range)
If Intersect(Target, Columns("b")) Is Nothing Then Exit Sub
Target.Offset(, 1) = Now()
Target.Offset(, 2) = InputBox("enter more data for col D")
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Texasowl" wrote in message
...
I have a 3 column spread sheet. The first column is a consistent letter.
The
second column is a numerical value inputted by students. The third
column
is
the =NOW() command.
What I want to happen is after the student inputs their number and
hit's
enter, I want the NOW command to execute and the cursor to return the
second
column for the next student input.
I know how to have the cursor move from either the next column cell or
the
next down cell. In either case the NOW command is a must to execute
without
having to rely upon the students input.
Any, any help would be greatly appreciated.
Thank you .
Don,
Thank you very much for the help. One small problem, instead of the cursor
going back to the "B" column, it is going to "D". Is there a fix for
this?
Thanks,
Dan
Reply With Quote
Don Guillett
View Public Profile
Find all posts by Don Guillett