Combox a veriler gerldi. Ancak Ad ve Soyad kısımları birleşmedi.

Private Sub UserForm_Initialize() 'combobox a veri çekme

  

Dim hucresay As Long

    With ComboBox6

        .ColumnCount = 2

        For hucresay = 1 To 10

            .AddItem Range("B2:B10").Cells(hucresay, 1).Value

            .List(.ListCount - 1, 1) = Range("C2:C10").Cells(hucresay, 1).Value

        Next hucresay

    End With

    

  With ComboBox6

 

.ColumnHeads = True

 

.ColumnCount = 2

 

.ColumnWidths = "50;50"

 

.RowSource = "=SAYFA1!B2:C10"

 

.BoundColumn = 0

 

End With





End Sub