ComboBoxta mükerrer

[sdegirmenci]

Merhaba;
Aşağıda Sayın Evren GİZLEN Hocamın yazmış olduğu kodda Combo verileri aynı sayfadan almakta, Örneğin diğer bir sayfadan, Sayfa1 den aldığında ne gibi bir değişiklik yapmak gerekir, yardımcı olabilirseniz sevinirim. Saygılarımla

Dim sat As Long, i As Long
sat = Cells(65536, "A").End(xlUp).Row
For i = 1 To sat
If WorksheetFunction.CountIf(Range("A1:A" & i), Cells(i, "A").Value) = 1 Then
ComboBox1.AddItem Cells(i, "A").Value
End If
Next
If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0

 

[Huseyinkis]

Kodu Aşağıdaki Şekilde Değitirip Denermisiniz.

Dim sat As Long, i As Long
sat = Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row
For i = 1 To sat
    If WorksheetFunction.CountIf(Sheets("Sayfa1").Range("A1:A" & i), Sheets("Sayfa1").Cells(i, "A").Value) = 1 Then
        ComboBox1.AddItem Cells(i, "A").Value
    End If
Next

 

[sdegirmenci]

Sayın huseyinkis;
İlginize çok teşekkür ederim. İşleriniz kolay gelsin.