Sub listele1()
x = WorksheetFunction.CountA(Range("A:a")) + 1
For Each hucre In Range("A1:b" & x)
If WorksheetFunction.CountIf(Range("A1:b" & x), hucre) >= 1 Then
If WorksheetFunction.CountIf(Range("e1:e" & x), hucre) = 0 Then
C = C + 1
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.