For any distinct value, ask an input through an inputbox

[Paul82]

Hi,

i hope someone can help me with this matter

I try to explain it very simple

My excel sheet has different values in column A, but there could be also duplicates

I want now that for every value in Column 1, vba asks me to put a value into an input box and pasts the answer in the corresponding filed(s) in column 2.

For the excel above i want that vba ask me 3 times to input a value (A, B and C) and then copies the value in the column 2

for example, It asks me one time to input a value for "A" and copy the input from inputbox in cells B2, B3 and B4

thanks in advance

 

[jmacleary]

I give up

Paul. I have run Yongle's code on my version of your data. It only asks for A once, then B once, then fills all the rows with the 2 answers. I can't see how this is wrong for what you want?

 

[Paul82]

Hi Paul. Sorry I forgot to say. To use my solution you will need to have the VBScripting reference turned on. In the VB editor, select Tools, References, and scroll down to find 'Microsoft Scripting Runtime'. Check the box by it and try again. But if your organisation has restrictions beyond that, then I can't help I don't think.

now i could activate that option

works exactly as i need

thank you very much

 

[Paul82]

I assume that all cells in column B are empty before procedure runs

Another option (which is less elegant than solution posted by @jmacleary)

Sub GetInput()
    Dim cel As Range, cel2 As Range, lastCel As Range, v As Variant
    Application.ScreenUpdating = False
    Set lastCel = Range("A" & Rows.Count).End(xlUp)
    For Each cel In Range("A2", lastCel)
        If cel.Offset(, 1) = "" Then
            v = InputBox("Enter value for " & cel.Value, "User Input")
            For Each cel2 In Range(cel, lastCel)
                If cel2 = cel Then cel2.Offset(, 1) = v
            Next cel2
        End If
    Next cel
End Sub

works now as it should, thank you very much

 

[Paul82]

Paul. I have run Yongle's code on my version of your data. It only asks for A once, then B once, then fills all the rows with the 2 answers. I can't see how this is wrong for what you want?

yes both running now
thanks