Hardcoding symbols in with Input Box

[JML0328]

I am building a program that allows the user to enter multiple invoice #s to a single bill.

I have an input box prompt the user to enter the invoice #.

What I would like to do is hardcode the entry so if the user enters "123," it will show up in the box as "Invoice #123"

Is there an easy way for me to do this?

 

[JamesW]

Hi,

Does this help you?

Range("A1").Value = "Invoice #" & InputBox("Enter invoice number")

 

[JML0328]

That's it. Thank you sir. I was close.

Another question if you don't mind. I have this running for 16 invoices to a sheet. Is there a way I can end the program after less than that?

Currently, when the user is done, they have to hit cancel multiple times until the program ends.

Thanks again!

 

[JamesW]

Hi,

Try:

Sub Test()
    Dim inv(16) As Variant
    Dim lngIndex As Long
    
    For lngIndex = LBound(inv) To UBound(inv)
        inv(lngIndex) = InputBox("Enter invoice Number")
        If inv(lngIndex) = "" Then
            MsgBox "End of stuff"
            GoTo loopOut
        Else
            Cells(lngIndex + 1, 1).Value = "Invoice #" & inv(lngIndex)
        End If
    Next
loopOut:
End Sub

 

[JML0328]

Works great James.

Thanks!