combobox sütun seçim problemi

[byfika]

Merhabalar,
Combobox1 den sütunlar seçim için açıldığında B sütun başlığında O sütun başlığına kadar gelmekte. J ve K sütun başlıkları boş olduğundan seçim yapılmayacak. Ama combobox1 de jJ ve K sütun başlıkları boş olarak gelmekte. Combobox1 de boş olan sütun başlıklarının gelmemesi sağlanır.
Bilgi için teşekkürler...

 

[muygun]

Merhaba;

Private Sub UserForm_Initialize()
Set s1 = Sheets("Sayfa1")
For i = 1 To 256
If s1.Cells(1, i) <> "" And WorksheetFunction.CountIf(s1.Range("a1:ıv1"), s1.Cells(1, i)) = 1 Then
ComboBox1.AddItem s1.Cells(1, i).Value
End If
Next
End Sub


Şeklinde deneyin.
İyi çalışmalar.

 

[byfika]

Merhabalar, Sayın Muygun
Kodlar için çok teşekkürler,
Saygılarımla...