Problema TexBox1

Salve il con il codice che segue, inserito in una UserForm (lanciata dal Foglio1), vorrei popolare una TextBox
in funzione della scelta fatta dalla ComboBox, a me sinceramente sembra tutto ok, ma nella ComboBox riesco a vedere e selezionare i Valori, ma la TextBox non si Popola...
Potete dargli uno sguardo per favore, e da ieri sera che impazzisco.
a me sembra corretto.
-----------------------------------------------------------------
Private Sub ComboBox1_Change()
uR = Foglio15.Range("A" & Rows.Count).End(xlUp).Row
Cells(1, 5) = uR
For RR = uR To 1 Step -1
If Foglio15.Cells(RR, 1) = ComboBox1 Then
TextBox1 = Foglio15.Cells(RR, 2)
End If
Next RR
End Sub
-------------------------------------------------------------
Private Sub UserForm_Activate()
Dim i As Integer
Dim Prest As Range
Set Prest = Range("Contratti")
Dim Cella As Range
For Each Cella In Prest
ComboBox1.AddItem Cella.Value
Next Cella
End Sub

le txtbox hanno una sola riga...(anche se hanno un parametro multiline; ma poi ti troveresti nei guai ...)

utilizza una listbox

saluti


(ps come è andata a finire con il pulsante autodimensionante?)

Io nella TexBox, devo visualizzare solo una riga...
che è la colonna a DX di quella che visualizzo nella ComboBox...

Per quanto riguarda il Ridimensionamento del Pulsante non ho
ancora risolto...
Grazie dodo47

ciaoa tutti,
ed innanzi tutto un saluto a Domenico

Leccese62, 17/04/2020 18:05:

---

Io nella TexBox, devo visualizzare solo una riga...
che è la colonna a DX di quella che visualizzo nella ComboBox...

---

non so se ho capito bene, ma se Prest = Range("Contratti") è un nome definito, altrimenti lo puoi definire, puoi provare a modificare così



Guarda l'allegato
ciao
Frank