Input boxes

[joacro]

Hi there,

Hope someone can help with my query.

I need an input box to pop up.

Ex: If Range ("B2").value = X(!) THEN
input box should pop up "Please insert amount"
The amount entered should than go into Range ("C2")

Thx in advance

 

[joacro]

Yes it is also in column B and the corresponding Cell in collumn in C
Then also in D and E
And L and M and N and O

 

[VoG]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Variant
Select Case Target.Column
    Case 2, 4, 12, 14
    If Target.Value = "X(!)" Then
        x = Application.InputBox("Enter amount", Type:=1)
        If TypeName(x) = "Boolean" Then Exit Sub
        Application.EnableEvents = False
        Target.Offset(, 1).Value = x
        Application.EnableEvents = True
    End If
End Select
End Sub

 

[joacro]

Hi there VoG,

Sorry for the long delay. The above code works perfectly thank you. However I have a button on the spreadsheet that clears all data entered and starts of with a new blank sheet.
When I press this button it gives me a debug fault and takes me to
If Target.Value = "X(!)" Then
What should I do?

 

[VoG]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Variant
If Target.Count > 1 Then Exit Sub
Select Case Target.Column
    Case 2, 4, 12, 14
    If Target.Value = "X(!)" Then
        x = Application.InputBox("Enter amount", Type:=1)
        If TypeName(x) = "Boolean" Then Exit Sub
        Application.EnableEvents = False
        Target.Offset(, 1).Value = x
        Application.EnableEvents = True
    End If
End Select
End Sub

 

[joacro]

You are the best, thank you. What exactly did you do?

 

[VoG]

Added line 3.