input box accepts date but I can't change to a text entry

[beach]

The following macro allows the user to enter "date" (e.g. 07/02/04) into cell h29, via an input box, which works perfectly fine

However I expected to be able to use the same general code to get a text entry instead of a date entry, but it won't let me

I want to enter text as the response, (e.g. BILL SMITH), but can't seem to get the syntax right. What do I change ???


Sub ENTERCURRENTYEAR()
'
End Sub
'
' Macro23 Macro
'

'
Sub Using_InputBox_Method()
Dim Response As Date

' Run the Input Box.
Response = Application.InputBox("Enter current Year start date (dd/mm/yy)", _
"FRIDAY REPORT", , 250, 300, "", , 1)

' Check to see if Cancel was pressed.
If Response <> False Then

' If not, write the number to the first cell in the first sheet.
Worksheets(1).Range("h29").Value = Response

End If
End Sub

Any hints appreciated

 

[Smitty]

Re: input box accepts date but I can't change to a text entr

How's this?

Sub Using_InputBox_Method()
    Dim Response As Date
    Dim TextInput As String
    
    ' Run the Input Box.
        Response = Application.InputBox("Enter current Year start date (dd/mm/yy)", _
        "FRIDAY REPORT", , 250, 300, "", , 1)
    
    ' Check to see if Cancel was pressed.
        If Response <> False Then
    
    ' If not, write the number to the first cell in the first sheet.
            Worksheets(1).Range("h29").Value = Response
    
        End If
        
    TextInput = InputBox("Please enter your name", "Name Required")
    Sheets("Sheet1").Range("A1") = TextInput
    
End Sub

Hope that helps,

Smitty

 

[beach]

Thanks Smitty - but

I used the following code, and it NEARLY works, but nothing appears in cell A1 of sheet 1


Sub Using_InputBox_Method()
Dim TextInput As String

' Run the Input Box.
TextInput = InputBox("Please enter Client Name", "Name Required", "", , 1)

' Check to see if Cancel was pressed.
If Response <> False Then

' If not, write the number to the first cell in the first sheet.
Sheets("Sheet1").Range("A1") = TextInput

End If

End Sub


What have I missed ?

Ta

 

[Smitty]

Re: input box accepts date but I can't change to a text entr

Sub Using_InputBox_Method()
    Dim TextInput As String
    
    ' Run the Input Box.
    TextInput = InputBox("Please enter Client Name", "Name Required")
    Sheets("Sheet1").Range("A1") = TextInput

End Sub

Or did you want to require an entry?

Smitty