Eksik Sayıları Bulma Hakkında Yardım.

[sametozyavuz]

Öncelikle herkeze iyi çalışmlar.
elimde A1 den A6000 Hücresine kadar 1 den başlayan bir sayı listesi var.
fakat listede bazı sayılar eksik.
bu nedenle listedeki son sayı 6000 den büyük.
benim bulmak istediğim eksik olan sayıların hangi sayılar olduğu.
yardımcı olabilirseniz sevinirim.

örnek
a1 = 1
a2 = 2
a3 = 4
a4 = 6

ben eksik olan 3 ve 4 sayılarının bana liste olarak verilmesini istiyorum

 

[YUSUF44]

Aşağıdaki kodlar B2'den itibaren eksik sayıları listeler:

Sub eksikler()
sonsatır = Cells(Rows.Count, "A").End(3).Row

sonsayı = WorksheetFunction.Max(Range("A1:A" & sonsatır))
[B1] = "EKSİK SAYILAR"
For i = 1 To sonsayı
If WorksheetFunction.CountIf(Range("A1:A" & sonsatır), i) = 0 Then
yeni = Cells(Rows.Count, "B").End(3).Row + 1
Cells(yeni, "B") = i
End If
Next
End Sub

 

[sametozyavuz]

çok teşekkür ederim.
tam istediğim gibi olmuş.

 

[YUSUF44]

Aşağıdaki şekilde kullanırsanız mükerrerleri de C sütununa listeler:

Sub eksikler()
sonsatır = Cells(Rows.Count, "A").End(3).Row

sonsayı = WorksheetFunction.Max(Range("A1:A" & sonsatır))
[B1] = "EKSİK SAYILAR"
[C1] = "MÜKERRER SAYILAR"

For i = 1 To sonsayı
If WorksheetFunction.CountIf(Range("A1:A" & sonsatır), i) = 0 Then
yenie = Cells(Rows.Count, "B").End(3).Row + 1
Cells(yenie, "B") = i
End If
If WorksheetFunction.CountIf(Range("A1:A" & sonsatır), i) > 1 Then
yenim = Cells(Rows.Count, "C").End(3).Row + 1
Cells(yenim, "C") = i
End If

Next
End Sub

 

[Aksi Adam]

Sub eksikler() sonsatır = Cells(Rows.Count, "A").End(3).Row sonsayı = WorksheetFunction.Max(Range("A1:A" & sonsatır)) [B1] = "EKSİK SAYILAR" [C1] = "MÜKERRER SAYILAR" For i = 1 To sonsayı If WorksheetFunction.CountIf(Range("A1:A" & sonsatır), i) = 0 Then yenie = Cells(Rows.Count, "B").End(3).Row + 1 Cells(yenie, "B") = i End If If WorksheetFunction.CountIf(Range("A1:A" & sonsatır), i) > 1 Then yenim = Cells(Rows.Count, "C").End(3).Row + 1 Cells(yenim, "C") = i End If Next End Sub

Yusuf bey kodunuz çok işime yaradı teşekkür ederim, peki bu koda eksik ve mükerrer olan sayıların olduğu satır biçim boyacısı ile farklı bir renkte boyayıp gösterme imkanı var mı ? Ayrıca koşullu biçimlendirme ile Formül olan eğer formülünün eğer yanlışşsa değer yani 2. kısım gelirse sonuç olarak satırını nasıl renklendirebilirim ? Şimdiden vermiş olduğunuz emek için teşekkür ederim. Saygılar.

 

[Korhan Ayhan]

Görseldeki gibi yapabilirsiniz.

 

[Haluk]

Formülle alternatif; (dizi formül girişi Ctrl+Shft+Enter)

İngilizce Excel için;

=IFERROR(SMALL(IF(COUNTIF($A$1:$A$4;ROW($1:$6))=0;ROW($1:$6);"");ROW(A1));"")

Türkçe Excel için;

=EĞERHATA(KÜÇÜK(EĞER(EĞERSAY($A$1:$A$4;SATIR($1:$6))=0;SATIR($1:$6);"");SATIR(A1));"")

.

 

[Haluk]

5 Yıl önceki bir konuya 5. mesajda cevap yazılınca, ben de ilk mesajı sanki yeni konuymuş gibi anlayıp cevap verdim....

Dikkatsizlik işte ....

.