Soru Sıralı listede eksik sayıları tespit etmek

[seckinb]

1'den 1000'e kadar sıralı sayılar var.
Aralarda unuttuğumuz eksik numaralar var.
13'e geldiğimizde mesela 15'e geçmişiz.
Bu sayıları nasıl tespit edebiliriz?

 

[byfika]

Merhabalar,
YUSUF44 Beye ait olan kodlarla bulabilirsiniz


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

 

[Korhan Ayhan]

Fonksiyonla çözüm;

DİZİ formüldür. Bir hücreye uygulayıp ihtiyacınız kadar alta doğru sürükleyiniz.

=EĞERHATA(İNDİS(SATIR(DOLAYLI("A1:A1000"));KÜÇÜK(EĞER(EHATALIYSA(KAÇINCI(SATIR(DOLAYLI("A1:A1000"));$A$1:$A$877;0));SATIR(DOLAYLI("A1:A1000")));SATIR(A1)));"")

 

[52779]

Selamlar,
alternatif formül olarak,
=EĞERHATA(TOPLAMA(15;6;SATIR(DOLAYLI("1:1000"))/(EĞERSAY($A$1:$A$877;SATIR(DOLAYLI("1:1000")))=0);SATIR($A1));"")

 

[Haluk]

Önerilen formüllerden birisi dizi formül, diğeri direkt uygulamalı.

Her ikisi de tadından yenmez.....

.

 

[Haluk]

Maksat gıcıklık olsun işte ....

"Google Sheets" ile alternatif; ?

=ArrayFormula(QUERY(IF(COUNTIF(A2:A;ROW(A2:A)+A2-2)=0;ROW(A2:A)+A2-2;"");"Select Col1 Where Col1 is Not Null";0))

.

 

[Tevfik_Kursun]

Bir de çift kontrolü yapmak lazım arkadaşlar
Saygılarımla