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
Combox a veriler gerldi. Ancak Ad ve Soyad kısımları birleşmedi.