Userform Combobox list replace selected value with value from inputbox

[matija385]

Hi,

I have userform4 and combobox1 that is filled from range that is in Table28. What i would like to do is possibility to change values inside that Table28.

For example:

Table28 values are:

XXX
ZZZ
YYY
WWW

So, when i select XXX value in combobox, i get inputbox with question "Enter text to replace XXX", i enter desired text (for ie AAA) and when i click OK, value XXX in Table28 is replaced with my desired text (entered in inputbox, in this example AAA).

I quite new to vba, so i would very much appreciate some help.

Thank you,

Matija

 

[mrmmickle1]

This should work...

[COLOR=#0000ff]Sub[/COLOR] Test()


[COLOR=#0000ff]Dim[/COLOR] myNewValRng [COLOR=#0000ff]As Range[/COLOR]
[COLOR=#0000ff]Set[/COLOR] myNewValRng = Sheets("Administracija").Columns(1).Find(What:="New York", _
                    LookIn:=xlValues, _
                    LookAt:=xlWhole, _
                    SearchOrder:=xlByRows, _
                    SearchDirection:=xlNext, _
                    MatchCase:=[COLOR=#0000ff]False[/COLOR], _
                    SearchFormat:=[COLOR=#0000ff]False[/COLOR])
                    
[COLOR=#0000ff]If[/COLOR] myNewValRng [COLOR=#0000ff]Is Nothing Then[/COLOR]
    MsgBox "Not Found"
[COLOR=#0000ff]Else[/COLOR]
    MsgBox "Found"
[COLOR=#0000ff]End If[/COLOR]
[COLOR=#0000ff]
[/COLOR]
[COLOR=#0000ff]End Sub[/COLOR]

 

[matija385]

Perfect, thank you, it works now.

 

[mrmmickle1]

Your Welcome. Glad I could be of assistance!