Input Prompts

[DGB]

Hi,

I have a situation which requires a pop up window that will prompt the user for 2 pieces of information.

Ideal Situation:

When a user selects a cell (A4), I would like a window to pop up that asks the user:
Number of Forms: X
Number of Languages: Y

Where X and Y are the answers provide by the user.
Then I would like Excel to multipoly the 2 responses and have the product as the value entered in the cell. This value will then be used in another formula.

Is such a thing possible?

Thanks in advance for your help

 

[onlyadrafter]

Hello,

this ocde needs to go into the relevant sheet code window

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$4" Then
        MY_X = InputBox("Number of forms", "DATA ENTRY")
        MY_Y = InputBox("Number of Languages", "DATA ENTRY")
        Target.Value = MY_X * MY_Y
    End If
End Sub

 

[Wolfshead]

HI
SOMETHING ALONG THE FOLLOWING LINES MIGHT HELP:
Dim lngRp1 As Long

Dim lngrp2 As Long

lngRp1 = Application.InputBox(Prompt:="Enter data1", Type:=1)
lngrp2 = Application.InputBox(Prompt:="Enter data2", Type:=1)

Range("a1") = lngRp1 * lngrp2

REGARDS
Wolfshead

 

[DGB]

Thank you Drafter.

I am a newbe so when you say to "put this into the relevent sheet code window"

How is that done?

 

[onlyadrafter]

Hello,

In Excel, place mouse over the sheet tab i.e. Sheet1, right click the mouse, and select VIEW CODE. Place the code here.

 

[DGB]

Hi,

I did as you suggested and changed the cell address to D14 (as that is the actual cell on which I would like the popup) but when I then select d14 on that sheet, I get no popup.

Did I do something wrong?

 

[DGB]

Wolfshead,

Thank you for your suggestion,

I added your code to the code windo for the relevent sheet but again when I highlight the cell, I get no pop up.

Any suggestion as to what I may be doing wrong?

 

[onlyadrafter]

Hello,

can you post the line of code with the cell ref. It should be $D$14