excelde eksik sayı bulma yardım

[myener03]

arkadaşlar sütunlardaki ard arda olması gereken sayıların arasındaki eksik rakamları otomatik bulmak için ne yapabilirim yardımcı olurmusunuz.

 

[mehmett]

Sayılarınız A1'den başlıyorsa B2 hücresine =A2-A1 yazın ve aşağı çekerek B sütunundaki diğer hücrelere kopyalayın. Düzenli giden sayıların farkı hep 1 olacak, düzensiz gidenlerin farkları 2, 3, 5 gibi sayılar olacaktır.

Daha dikkat çekici bir sonuç almak isterseniz formülü =(A2-A1)^10 şeklinde yazabilirsiniz.

Örnek dosya ektedir.

 

[myener03]

herhalde ben tam anlatamadım, öyle bir makro olacakki sorgulama yaptığımızda sonuç olarak bize arada girilmeyen eksik rakamları gösterecek, yani 1 ile 3000 arasında mesela girilmeyen 20-215-2587-2698 gibi rakamları gösterecek

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Eksik olanları B sütununa listeler.

Sub eksikleribul()
For a = 1 To 3000
say = WorksheetFunction.CountIf([a:a], a)
If say = 0 Then
c = c + 1
Cells(c, "b") = a
End If
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki koduda kullanabilirsiniz. C sütununa listeleme yapar.

Not: Sn. leventm sizin önerdiğiniz kodu denedim sanki biraz yavaş listeledi.

Sub EKSİK_DEĞERLERİ_LİSTELE()
    Columns(3) = ""
    Satır = 1
    For X = 1 To [A65536].End(3).Row
    Fark = Cells(X + 1, 1) - Cells(X, 1)
    If Fark > 1 Then
    For Y = 1 To Fark - 1
    Cells(Satır, 3) = Cells(X, 1) + Y
    Satır = Satır + 1
    Next
    End If
    Next
End Sub

 

[Levent Menteşoğlu]

Not: Sn. leventm sizin önerdiğiniz kodu denedim sanki biraz yavaş listeledi.

Sankisi fazla epeyce yavaş işlem yapıyor. Sizin öneriniz çok daha hızlı tebrikler, yalnız ikinci döngüyü neden kullandığınızı anlayamadım. Bana ikinci döngüsüzde çözülür gibi geldi.

 

[Korhan Ayhan]

Selamlar,

Sn. leventm,

Arkadaşımızın verdiği örnekte eğer aralarda boş hücre varsa sizin önerdiğiniz kod daha kullanışlı. Benim önerdiğim kod bu durumda sağlıklı çalışmıyor. (Bu ince detayda ustalık farkı olsun artık.) Elinize sağlık.

Ayrıca arkadaşımızın örneğinde numaralar sıralı değilse sizin önerdiğiniz kodu alternatif olarak aşağıdaki şekilde kullanırsak daha iyi olacağı kanısındayım.

Sub Eksikleri_Listele()
    Columns(2) = ""
    En_Küçük = WorksheetFunction.Min(Columns(1))
    En_Büyük = WorksheetFunction.Max(Columns(1))
    For X = En_Küçük To En_Büyük
    Say = WorksheetFunction.CountIf(Columns(1), X)
    If Say = 0 Then
    Satır = Satır + 1
    Cells(Satır, "B") = X
    End If
    Next
End Sub

 

[Levent Menteşoğlu]

......Arkadaşımızın verdiği örnekte eğer aralarda boş hücre varsa sizin önerdiğiniz kod daha kullanışlı. Benim önerdiğim kod bu durumda sağlıklı çalışmıyor.........

Açıkçası ben kodu önerirken bu ihtimali düşünmemiştim.

Benim önerim kesin sonuç versede çok yavaş. Bence bu konu üzerinde biraz daha kafa yorup, her şekilde doğru sonuç veren hızlı bir kod oluşturmayı deneyelim ve sonuçlarını burada paylaşalım.

(Bu ince detayda ustalık farkı olsun artık.) Elinize sağlık.

Rica ederim. Ustalık haddimize değil.

Not: Özellikle forumumuzdaki usta, üstad, hocam gibi kavramları yakından takip edip, bundan malzeme ve görev çıkartan ve bu göreve istinaden kendi platformlarında bol reyting alan başlıklar açarak konuyu tartışmaya açan kişilere yine malzeme verdik, hayırlı olsun.

Siz lütfen üzerinize alınmayın, sözlerimin sizinle hiç bir alakası yoktur.

 

[Levent Menteşoğlu]

Aşağıdaki kodun çalışma hızı fena sayılmaz.

Sub listele()
On Error Resume Next
For a = 1 To 3000
If WorksheetFunction.Match(a, [a:a], 0) = 0 Then
c = c + 1
Cells(c, "c") = a
End If
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Evet leventm bey son önerdiğiniz kod gerçekten daha hızlı çalışıyor elinize sağlık.

 

[myener03]

ustalarım çok sağolun, şimdi gördüm çok teşekkürler emekleriniz için

 

[myener03]

ustam ben kodu ekleyemedim, nerede yanlış yaptım bilmiyorum, bu konudada daha çok acemiyim yardımcı olabilirmisiniz.

 

[myener03]

tamam ustam hallettim sağolun

 

[myener03]

ustam çalışmasına güzel çalışıyorda, ilk sayıyı yani 1 i yazmayınca 1 i eksik olarak göstermiyor, bi el atsan, teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub listele()
On Error Resume Next
[c:c].ClearContents
For a = 1 To [a65536].End(3)
If WorksheetFunction.Match(a, [a:a], 0) = 0 Then
c = c + 1
Cells(c, "c") = a
End If
Next
End Sub

 

[myener03]

teşekkürler ustam ellerinize sağlık klavyeniz dert görmesin

 

[myener03]

ustam bu makronun tüm sayfalarda çalışması için ne yapmam gerekiyor, forumda aradım yapılması gerekenleri yapıyorum ancak diğer sayfalarda gösteremedim makroyu yardım ederseniz sevinirim, teşekkürler

 

[myener03]

ustam sana zahmet olacak ama ekli listedeki formata göre b sütunundaki eksik sayıları listeleyecek bir makro yapılabilirmi acaba, a sütunundaki TÜR kısmına göre ayrı sütunlara listeleyecek şekilde, mesela tür 1'i E TÜR 2'yi F, TÜR 3'ü G sütununda listelesin istiyorum, birde çiftleride listelerse çok iyi olur, şimdiden teşekkürler

 

[xkimya]

doğru olmuş

 

[xkimya]

ustam sana zahmet olacak ama ekli listedeki formata göre b sütunundaki eksik sayıları listeleyecek bir makro yapılabilirmi