Seri no daki eksik tespit hk.

[konas06]

Selam
Bir sütunda girilmiş seri nolar var.
Bu numaraların sırası değişmeden eksiği tespit edebilir miyiz?
Örnek dosya ektedir.
Teşekkürler.

 

[Ömer]

Merhaba,

Bana göre bahsettiğiniz türdeki renklendirme mantıklı değil. Bu şekilde deneyiniz.

Eksil olanları I sütununa yazar.

Sub EksikBul()
 
    Dim aLan As Range, MinM As Double, MaxM As Double
    Dim sat As Long, i As Long
 
    Set aLan = Range("H11:H" & Rows.Count)
 
    MinM = Application.Min(aLan)
    MaxM = Application.Max(aLan)
 
    aLan.Offset(0, 1).ClearContents
 
    sat = 11
    For i = MinM To MaxM
        If WorksheetFunction.CountIf(aLan, i) = 0 Then
            Cells(sat, "I") = i
            sat = sat + 1
        End If
    Next i
 
End Sub

.

 

[uzmanamele]

merhaba

buraya bakınız
eksik sıra veya seri no bul

 

[Mahir64]

Selam
Bir sütunda girilmiş seri nolar var.
Bu numaraların sırası değişmeden eksiği tespit edebilir miyiz?
Örnek dosya ektedir.
Teşekkürler.

Merhaba
Altarnatif olarak,
Kendiniz 2 yardımcı hücre ile çözebilirsiniz.

I11 hücresine;

=MİN($H$11:$H$300)

I12 Hücresine;

=I11+1  Gerektiği kadar aşağı çekerek çoğaltın.

J11 Hücresine;

=EĞER(EĞERSAY($H$11:$H$300;I11)>0;"";I11)

Yazarak gerektiği kadar çoğaltınız. Eksik olanı verecektir.
Sonuç olarak verdiğiniz listede : 1132778 eksik.

 

[konas06]

Sayın Ömer, uzmanamele, Mahir verdiğiniz cevaplar için çok teşekkür ederim.
Ancak aradığım çözüm bunlar değil.
Başka sütuna yada satıra geçmeden aynı sütun ve hücreler içinde belki koşullu biçimlendirme ile eksik numaranın bir altı yada bir üstünü farklı renge boyamak.
İlginiz için çok teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

H11:H47 hücre aralığını seçin.
Koşullu biçimlendirme mensünü açın.
Formül seçeneğine aşağıdaki formülü uygulayın ve dilediğiniz dolgu rengini seçip işleminizi tamamlayın.

=EĞER(YADA(H11=MİN($H$11:$H$47);H11=MAK($H$11:$H$47));0;EĞER(VE(H11>MİN($H$11:$H$47);H11<MAK($H$11:$H$47);EĞERSAY($H$11:$H$47;H11+1)>0;EĞERSAY($H$11:$H$47;H11-1)>0);0;1))

 

[konas06]

Sayın Korhan AYHAN çok teşekkür ederim.
Son bir şey daha sorabilir miyim?
Eksiğin bir eksiği ve bir fazlası nı biçimlendirdik ya, sadece bir eksiğini biçimlendirmek için formülde nasıl değişiklik yapmamız lazım ?
Bu durum için açıklama yapma gereği duyuyorum.
Bu listede eksik numaraların sayısı arttıkça renklenen hücre çoğalıyor, satırlarında yeri değişmemesi gerektiğinden bir eksiği ve bir fazlayı tespit etmek zor oldu.
Ama sadece bir eksiğine yada bir fazlasına bu biçimlendirmeyi uygularsak daha rahat olacak.
İlginiz için teşekkürler.

 

[Ömer]

Sayın konas66,

Bu yüzden bahsettiğiniz türden renklendirmenin mantıksız olacağını yazmıştım.

Son istediğinizde de aynı durumlarla karışlaşabilirsiniz.

Örnek;

72
74
75
77

73 ve 76 değeri +1, -1 değerlere girdiği için 72-74..75-77 renklenir. Yani tüm liste renklenir. Fakat burada 74-75 sıralı gittiği halde size mantığa göre yine renkleneceği için sizi yanış yönlendirir.


Not: Bilgi amaçlı yazmak istedim.

.

 

[konas06]

Sayın Ömer öncelikle ilginiz için teşekkür ederim.
Haklısınız +1 ve -1 aynı anda formüle edildiğinde bahsettiğiniz sıkıntıyı yaşıyorum.
Ancak sadece bunlardan birini +1 yada -1 i kullanırsak bu durum oluşmayacak sanki.
Sizin verdiğiniz örneği devam ettirirsek ve sadece -1 uygulanırsa
72 ve 75 in olduğu hücreler renklenecek bu da benim işimi görür.

 

[Korhan Ayhan]

Selamlar,

Bu durumda aşağıdaki formülü koşullu biçimlendirmeye uygulayınız.

=EĞER(YADA(H11=MİN($H$11:$H$47);H11=MAK($H$11:$H$47));0;EĞER(VE(H11>MİN($H$11:$H$47);H11<MAK($H$11:$H$47);EĞERSAY($H$11:$H$47;H11+1)>0);0;1))

 

[konas06]

Korhan Bey, çok teşekkür ederim.
Konu çözüldü.