Input Box

[ronicaroman]

I'd like to add an Input Box which will create a header cosisting of three lines of text. The three prompts for the user should be:

1. Please enter account name.
2. Please enter account number/company code.
3. Please enter time frame.

Does anyone know the VBA code for this? And how can I add the user's response to the header of the spreadsheet?

 

[tlowry]

Here's a simple approach...

Sub getinfo()
    Dim sIn As String
    Do While sIn = ""
        sIn = InputBox("Please enter account name.")
    Loop
    Range("A1") = sIn
    sIn = ""
      Do While sIn = ""
        sIn = InputBox("Please enter account number/company code.")
    Loop
    Range("B1") = sIn
    sIn = ""
    Do While sIn = ""
        sIn = InputBox("Please enter time frame.")
    Loop
    Range("C1") = sIn
End Sub

 

[ronicaroman]

Thanks for your input, but that adds the answers to A1, A2, and A3 but not into the header of the document. Is there any way to add the three lines into the actual header?

 

[tlowry]

sorry I missed that. How is this?

Sub getinfo()
    Dim sIn As String
    Do While sIn = ""
        sIn = InputBox("Please enter account name.")
    Loop
    ActiveSheet.PageSetup.LeftHeader = sIn
    sIn = ""
    Do While sIn = ""
        sIn = InputBox("Please enter account number/company code.")
    Loop
    ActiveSheet.PageSetup.CenterHeader = sIn
    sIn = ""
    Do While sIn = ""
        sIn = InputBox("Please enter time frame.")
    Loop
    ActiveSheet.PageSetup.RightHeader = sIn
End Sub

 

[ronicaroman]

That should work, but is there any way for all three lines to appear in the center header one under the other?

 

[jolivanes]

Sub getinfoA()
    Dim sIn As String
    Do While sIn = ""
        sIn = InputBox("Please enter account name.")
    Loop
    a = sIn
    sIn = ""
    Do While sIn = ""
        sIn = InputBox("Please enter account number/company code.")
    Loop
    b = sIn
    sIn = ""
    Do While sIn = ""
        sIn = InputBox("Please enter time frame.")
    Loop
    c = sIn
    ActiveSheet.PageSetup.CenterHeader = a & vbLf & b & vbLf & c
End Sub

@tlowry
Handy code for me. Thanks
John