combobox tekrarsız liste olarak gelmiyor

[udentr2002]

Combobox 3 Rapor Sayfasındaki AH5 den aşağı doğru tekrarsız liste almasını istiyorum. Aşağıdaki kodu yazıyorum ancak tekrarsız olarak getirmiyor.
Nerde hata yapıyorum? anlayamadım

Dim i As Long
For i = 1 To Sheets("Rapor").Cells(65536, "AH").End(xlUp).Row
    If WorksheetFunction.CountIf(Sheets("Rapor").Range("AH5:AH" & i), Cells(i, "AH").Value) = 1 Then
        ComboBox3.AddItem Cells(i, "AH").Value
    End If
Next i

 

[udentr2002]

Çözüldü
Userform initializedde yanlış bir şey yazmışım ondan tekrarsız almıyormuş.

 

[Necdet]

Merhaba,

Cells(65536,

kullanımını

Cells(Rows.Count,

şeklinde kullanmanızı öneririm. Gerekçe de 65536 satırdan büyük verilerde yanlış sonuç verir.
Rows.Count u kullanırsanız ilerde excelde sayfadaki satır sayısı artarsa genel amaçlı olarak yazmış olursunuz.
65536 satırı excel 2003 sürümünde kaldı.

 

[udentr2002]

Merhaba,

Cells(65536,

kullanımını

Cells(Rows.Count,

şeklinde kullanmanızı öneririm. Gerekçe de 65536 satırdan büyük verilerde yanlış sonuç verir.
Rows.Count u kullanırsanız ilerde excelde sayfadaki satır sayısı artarsa genel amaçlı olarak yazmış olursunuz.
65536 satırı excel 2003 sürümünde kaldı.

Teşekkürler hocam