Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help needed with Inputbox problem
Hi Les,
Try something like: '============= Public Sub Tester005() Dim x As Range Dim myVal As Variant For Each x In Range("H12:H18") x.Value = InputBox( _ "Please enter the Account number..." _ & vbCrLf & vbCrLf & _ "To end input, enter nothing", _ "ACCOUNT NUMBER") If x.Value = "" Then Exit Sub Else myVal = InputBox(Prompt:="Insert A/C value", _ Title:="A/C Value") If IsNumeric(myVal) Then x.Offset(0, 2).Value = CDbl(myVal) End If End If Next x End Sub '<<============= --- Regards, Norman "Les Stout" wrote in message ... Hi all, i have the following code that is working fine, i just need to add another range and input within the loop. After the "Account Number" i to put in the value for the account in the Range("K12:K18"), can i include it in this loop or must i do a different one ?? For Each x In Range("H12:H18") x.Value = InputBox("Please enter the Account number..." & vbCrLf & vbCrLf & _ "To end input, enter nothing", "ACCOUNT NUMBER") If x.Value = "" Then Exit Sub Next Les Stout *** Sent via Developersdex http://www.developersdex.com *** |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help needed with Inputbox problem
A possible slight correction -
? Range("H12").Offset(0,2).Address $J$12 I think Norman meant x.Offset(0, 3).Value = CDbl(myVal) if you want the values in column K as you stated. -- Regards, Tom Ogilvy "Norman Jones" wrote: Hi Les, Try something like: '============= Public Sub Tester005() Dim x As Range Dim myVal As Variant For Each x In Range("H12:H18") x.Value = InputBox( _ "Please enter the Account number..." _ & vbCrLf & vbCrLf & _ "To end input, enter nothing", _ "ACCOUNT NUMBER") If x.Value = "" Then Exit Sub Else myVal = InputBox(Prompt:="Insert A/C value", _ Title:="A/C Value") If IsNumeric(myVal) Then x.Offset(0, 2).Value = CDbl(myVal) End If End If Next x End Sub '<<============= --- Regards, Norman "Les Stout" wrote in message ... Hi all, i have the following code that is working fine, i just need to add another range and input within the loop. After the "Account Number" i to put in the value for the account in the Range("K12:K18"), can i include it in this loop or must i do a different one ?? For Each x In Range("H12:H18") x.Value = InputBox("Please enter the Account number..." & vbCrLf & vbCrLf & _ "To end input, enter nothing", "ACCOUNT NUMBER") If x.Value = "" Then Exit Sub Next Les Stout *** Sent via Developersdex http://www.developersdex.com *** |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help needed with Inputbox problem
Hi Tom,
'-------------- I think Norman meant x.Offset(0, 3).Value = CDbl(myVal) if you want the values in column K as you stated. '-------------- Thank you, Tom! --- Regards, Norman |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help needed with Inputbox problem
Thanks so much for the replies, much appreciated...
Les Stout *** Sent via Developersdex http://www.developersdex.com *** |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Inputbox/Regression Problem | Excel Programming | |||
Inputbox/Regression Problem | Excel Programming | |||
Problem with focusing on Application.Inputbox type:= 8 | Excel Programming | |||
Inputbox for Worksheet name - problem | Excel Programming | |||
InputBox Method Logic Problem | Excel Programming |