Private Sub CommandButton1_Click()

UserForm1!ComboBox1.RowSource = "A1:A500"

dimmi = ComboBox1

Sheets("ELENCO").Select

For i = 7 To lastrow

If Cells(i, 2) = dimmi Then

Cells(i, 2) = a
Cells(i, 3) = b

End If

Next



Sheets("Lettera Sollecito").Select

Cells(2, 5) = "Nome"
Cells(3, 5) = "Indirizzo"
Cells(4, 5) = "CCP"
Cells(5, 5) = "persona"
Cells(6, 5) = "TEL"
Cells(7, 5) = "FAX"

Cells(2, 6) = a
Cells(3, 6) = b












ComboBox1.Text = ""

UserForm1.Hide
'
Range("A12").Select

MsgBox ("LETTERA SOLLECITO CREATA!!")

End Sub

Potete dirmi per favore dove sbaglio???