Private Sub ComboBox1_Change()
Dim ur As Long
ur = Worksheets("Foglio1").Cells(Rows.Count, 1).End(xlUp).Row
Dim tabella As Range
Set tabella = Worksheets("Foglio1").Range("A2:C" & ur)
Me.TextBox2.Value = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, tabella, 2, False)
Me.TextBox3.Value = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, tabella, 3, False)
End Sub

Private Sub CommandButton1_Click()
Dim ur As Long
ur = Worksheets("Foglio1").Cells(Rows.Count, 1).End(xlUp).Row
Dim Rng As Range
With Sheets("Foglio1").Range("a2:a" & ur)
            Set Rng = .Find(What:=Me.ComboBox1.Value, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                Rng.Offset(0, 2).Value = Me.TextBox3.Value
            End If
        End With
End Sub



Private Sub UserForm_Initialize()
Dim i As Long
Dim ur As Long
ur = Worksheets("Foglio1").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To ur
    Me.ComboBox1.AddItem Range("a" & i).Value
Next i
End Sub