ComboBox Row Sourceda "Boşlukları kaldır" sorun

[bistrobellman]

Range("IN1") DEN "IN2" "IN3" 'E dogru giden verilerim var.bunları UserForm üzerinde
ComboBox5 içinde boşlukları ve tekrarlamaları önleyerek görmek istiyorum.İÞte Kodlar:


Private Sub UserForm_Initialize()
For a = 1 To Cells(65536, 1).End(xlUp).Row
If Cells(a, 248) <> "" Then ' 248.SÜTUN Range("IN1") 'e DENK GELİYOR
ComboBox5.AddItem Cells(a, 248).Value
End If
Next

End Sub

bu kodu ekledim..ve KOdu çalılştırdığımda
ComboBox5 Tek satırlık açılıyor ve bu listede IN Sütunun sadece 1.satırı görünüyor halbuki IN1 DEN IN10'A KADAR VERİLERİM VAR...
SORUN NEREDE?

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:ec43d46f51]Private Sub UserForm_Initialize()
For a = 1 To Cells(65536, 1).End(xlUp).Row
If WorksheetFunction.CountIf(Range("A1:A" & a), Cells(a, 248)) = 1 Then
ComboBox5.AddItem Cells(a, 248).Value
End If
Next
End Sub
[/vb:1:ec43d46f51]

 

[Exelans]

...
Yalış yazmışım, doğrusu aşağıda.

 

[Exelans]

For a=1 to Cells(65536, 248).End(xlUp).Row 
If WorksheetFunction.CountIf(Range("IN1:IN" & a), Cells(a, 248)) = 1 Then
ComboBox5.AddItem Cells(a, 248).Value

denermisiniz.

Pardon, leventm aynı anda göndermişiz.