Sırayı takip etmeyen rakamları tespit etmek

[Hyperhysv]

merhaba;

diyelim ki A sütununda arka arkaya birbirini takip eden sayılar var. A1:1 A2:2 A3:3 A4:4 vb.rakamlar aşağıya doğru artıkca arada 1 veya 2 rakam atlıyor.örneğin A1882:12345678 rakamı var A1883 de 12345679 olması gerekirken 12345680 var. benim bu örnekte 12345679 rakamını tespit etmem lazım.

tabi bazen 1 değil 150 rakamda atlanılmış olabiliyor. bunu tespit edebilecek bir formül veya macro varmıdır?

şimdiden yardımlarınız için teşekkürler
iyi bayramlar

 

[ZorBey_]

İnceleyiniz.
http://www.excel.web.tr/f47/eyoksa-eoerhata-caly-myyor-t140511.html#post763083

 

[Hyperhysv]

kodları kendime uyarlayınca gayet başarılı oldu. forumda aratmama rağmen "Eyoksa - eğerhata çalışmıyor" başlığı ile aratmak hiç aklıma gelmemişti.

teşekkürler zor bey

 

[ZorBey_]

İyi Çalışmalar.

 

[Hyperhysv]

yeniden merhaba;

kodlamada bir sorun var sanırım küçük rakamlarda işe yarıyor ama karmaşık sayılarda maalesef a sütununda rakamların var olmasına rağmen yok gibi algılayıp b sütununa yazıyor.

örnek dosya ekte. yardımlarınızı rica derim.

Sub Eksik_yaz()
Dim i, j, satir As Long
Dim parca1, parca2 As String

satir = 1
For i = 1 To [a65536].End(xlUp).Row
    parca1 = Mid(Cells(i, "A"), InStrRev(Cells(i, "A"), ".") + 1)
    parca2 = Mid(Cells(i + 1, "A"), InStrRev(Cells(i + 1, "A"), ".") + 1)
    
    For j = Val(parca1) + 1 To Val(parca2) - 1
        Cells(satir, "B") = "" & Format(j, "0")
        satir = satir + 1
    Next
    
Next

End Sub

 

[Erdem Akdemir]

Erkan bey merhaba,

Deneyebilir misiniz,

Sub eksik()
son = Cells(Rows.Count, "A").End(3).Row
i = WorksheetFunction.Min(Range("A1:A" & son))
k = WorksheetFunction.Max(Range("A1:A" & son))
t = 1

For s = i To k

If WorksheetFunction.CountIf(Range("A1:A" & son), s) = 0 Then
Cells(t, "b") = s
t = t + 1
End If
Next s

End Sub

 

[Hyperhysv]

Sn.Kuvari desteğiniz için teşekkürler.sorun çözülmüş gibi görünüyor.

iyi akşamlar