udentr2002
Altın Üye
- Katılım
- 5 Kasım 2006
- Mesajlar
- 1,478
- Excel Vers. ve Dili
-
iş yerinde Office 365
evde Office 365
- Altın Üyelik Bitiş Tarihi
- 07-11-2024
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
Nerde hata yapıyorum? anlayamadım
Kod:
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