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