Sayın ozkovlu29,

Bahsettiğiniz talebinize yönelik olarak;
Eklediğiniz örneğinizi yeterli inceleme zamanı ve imkanı olmamak ile birlikte,kısa süreli bir gözlem akabinde,aşağıdaki açıklamaların yapılması uygun görülmüştür.

Belki alternatif yöntemlerin de olması veya katılımcılar tarafından önerilmesi muhtemeldir fakat kendi adıma naçizane şu iki yöntemi paylaşmak isterim.

YÖNTEM  1

UserForm1 adlı formun Initialize Olay yordamı bitimine

With ComboBox6

 

.ColumnHeads = True

 

.ColumnCount = 2

 

.ColumnWidths = "50;50"

 

.RowSource = "=sAYFA1!B2:C10"

 

.BoundColumn = 0

 

End With

Kodlarını yazmak sureti ile ilgili ComboBox6 adlı denetim içerisinde Ad ve Soyad sütunlarının bulunmasını sağlayabilirsiniz.

YÖNTEM 2

Yine,aynı olay yordamı içerisine olmak sureti ile

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

Kodlarını yazmak sureti ile ilgili ComboBox6 adlı denetim içerisinde Ad ve Soyad sütunlarının bulunmasını sağlayabilirsiniz.

NOT
doldurulması gerekli hücreleri BOŞ bırakmayınız.

bilginize…iyi çalışmalar,saygılar.