
Private Sub cmdOk_Click()
Dim Ciclo, FineRiga
FineRiga = cmbFattura.ListCount - 1
For Ciclo = 0 To FineRiga
If cmbFattura.Selected(Ciclo) = True And cmbClienti = "Personale" Then
If Ciclo = 0 Then
Worksheets("Dati2").Cells(2, 2) = cmbFattura.List(Ciclo, 0)
End If
If Contatore = 1 Then
Worksheets("Dati2").Cells(3, 2) = cmbFattura.List(Ciclo, 0)
End If
ecc.. |
