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]

Please can someone assist?

 

[joacro]

There should be a solution for this. Please help me

Regards

 

[VoG]

What changes B2 - you or does it contain a formula?

 

[joacro]

Hi there VoG,

It contains a drop downbox with the following options
1. X
2. X(!)

 

[VoG]

Try this: right click the sheet tab, select View Code and paste in

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Variant
If Target.Address(False, False) = "B2" And Target.Value = "X(!)" Then
    x = Application.InputBox("Enter amount", Type:=1)
    If TypeName(x) = "Boolean" Then Exit Sub
    Application.EnableEvents = False
    Range("C2").Value = x
    Application.EnableEvents = True
End If
End Sub

 

[joacro]

Where should i paste the code, in the thisWorkbook or on that specefic sheet?

 

[VoG]

That specific sheet: right click its tab, select View Code and paste in the code.

 

[joacro]

VoG,

It works perfectly

Thank you.

What should i do if there is more cells with that criteria?

 

[VoG]

Where are the other cells? In column B and you want to add values to the corresponding cell in column C?