10 numara olmuş, Teşekkür ederim.
Cevaplanmış Sorular Kategorisi'ne taşıyabilirsiniz.
Private Sub UserForm_Activate() 'Listboxları sıfırla tekrar aç 1
Dim adisoyadi As String
Dim k As Long
k = 2
Do While Cells(k, 2) <> ""
adisoyadi = Cells(k, 2) & " " & Cells(k, 3)
Me.ComboBox6.AddItem adisoyadi
k = k + 1
Loop
End Sub