Input Message in Cell via input box

[Senthil Murugan]

Good Morning Everybody

Can anybody help to correct the below code?

I need to get Title and Input Message in Cell via input box

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
On Error GoTo None
With Range("A15").Validation
InputTitle = InputBox("Title", "Enter your Title")
InputMessage = InputBox("File Name", "Enter Your File Name")
End With
Application.ScreenUpdating = True
None:
On Error GoTo 0
End Sub



Thanks


A.Senthil Murugan

 

[Joe4]

Can you show us an actual example of what you want the final cell to look like?
And how does it know which cell to place the result in?

 

[Senthil Murugan]

Dear Sir,

Thank you Mr.Joe for your reply

I need to put data validation input message ( Title and input message ) through input box instead of manual through in-built Data validation menu

in A15, Validation input message

1st input box text is " Folder A"
2nd Input box text is "File : Purchase Bills" as shown in the below screenshot

Where i am making mistake in my code ?

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
On Error GoTo None
With Range("A15").Validation
InputTitle = InputBox("Title", "Enter your Title")
InputMessage = InputBox("File Name", "Enter Your File Name")
End With
Application.ScreenUpdating = True
None:
On Error GoTo 0
End Sub


Thanks in advance


A.Senthil Murugan

 

[Joe4]

Firstly, when posting VBA code, please use Code Tags, as described here. It makes your code much easier to read, and much easier to spot errors.
Also note that all properties located between "With" and "End With" need to be preceded by a period to show that the below to the object of your WITH clause.

This code should do what you want:

Private Sub CommandButton1_Click()

    Dim tl As String
    Dim msg As String

    Application.ScreenUpdating = False

'   Prompt for title and message
    tl = InputBox("Title", "Enter your Title")
    msg = InputBox("File Name", "Enter Your File Name")

    On Error GoTo None
    With Range("A15").Validation
        .Delete
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
        :=xlBetween
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = tl
        .ErrorTitle = ""
        .InputMessage = msg
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

    Application.ScreenUpdating = True

None:
    On Error GoTo 0
    
End Sub

 

[Senthil Murugan]

Vba export

Firstly, when posting VBA code, please use Code Tags, as described here. It makes your code much easier to read, and much easier to spot errors.
Also note that all properties located between "With" and "End With" need to be preceded by a period to show that the below to the object of your WITH clause.

This code should do what you want:

Private Sub CommandButton1_Click()

    Dim tl As String
    Dim msg As String

    Application.ScreenUpdating = False

'   Prompt for title and message
    tl = InputBox("Title", "Enter your Title")
    msg = InputBox("File Name", "Enter Your File Name")

    On Error GoTo None
    With Range("A15").Validation
        .Delete
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
        :=xlBetween
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = tl
        .ErrorTitle = ""
        .InputMessage = msg
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

    Application.ScreenUpdating = True

None:
    On Error GoTo 0
  
End Sub

Input Message in cell via Inputbox

 

[Senthil Murugan]

Input Message in Cell via input box

 

[Senthil Murugan]

Thank you Mr.Joe


Your Code is working fine.


A.Senthil Murugan

 

[Joe4]

You are welcome.
Glad I was able to help!