Home |
Search |
Today's Posts |
#4
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
Hi George,
Look in VBA help at the InputBox Function and the InputBoxMethod. As the syntax for either is relatively straightforward, perhaps the best additional source would be the NG archives. If you perform a Google Groups search, I am sure that you will find a wide range of practical usage and syntactical style. The following is a simple example which uses the InputBox Fnction which may suffice for your immediate scenario. Sub XYZ() Dim rngDest As Range Dim res As String, res2 As Long Dim blRetry As Boolean Dim msgCancel Dim msgBlank Dim msgRetry Dim msgNoNumber msgCancel = "You cancelled" msgBlank = "You clicked OK without entering anything" msgNoNumber = " is not a number." blRetry = True Set rngDest = Range("A1") '<<=== Destination for User Input Do While blRetry If Not blRetry Then GoTo XIT res = InputBox("{Please Enter A number") If StrPtr(res) = 0 Then msgbox msgCancel ElseIf Len(res) = 0 Then msgbox msgBlank ElseIf Not IsNumeric(res) Then msgbox """" & res & """" & msgNoNumber Else msgbox "You entered " & res rngDest.Value = res Exit Sub End If res2 = msgbox("Do you want to try again?", vbYesNo) blRetry = res2 = vbYes Loop XIT: msgbox "You opted to terminate " & _ "without making a valid entry" End Sub --- Regards, Norman "George Sherman" wrote in message ... Please help this newbie. I want to get a number from a user and transfer that number to a cell in my worksheet so I can use that number in other formulas. Any good suggestions or good reference material I might access would be greatfully and humbly appreciated. George |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Input boxes | Excel Discussion (Misc queries) | |||
How do I add input data in the input ranges in drop down boxes. | Excel Discussion (Misc queries) | |||
Input Boxes | Excel Programming | |||
Can anyone help with input boxes? | Excel Programming | |||
Mask input in input boxes? | Excel Programming |