Eksİk Rakamlari Bulma

[EGZELL]

arkadaşlar ekte verdiğim tablodaki sıra numaralarında eksik olan rakamların ayrı bir liste şeklinde gösterecek formül arıyorum.
yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Makro ile birşeyler yapmaya çalıştım, dener misiniz?

Public Sub EksikRakamYaz()
Sat = 6
[J7:j65536].ClearContents
For i = 2 To [a65536].End(3).Row
    If Cells(i, "A") - 1 <> Cells(i - 1, "A") Then
        Değer = Cells(i - 1, "A") + 1
        For Değer = Değer To Cells(i, "A") - 1
            Sat = Sat + 1
            Cells(Sat, "J") = Değer
        Next Değer
    End If
Next i
End Sub

 

[hamitcan]

Bir tane de benden.

Sub eksikrakamlar()
 c = 6
 For i = 1 To 37
    If Columns("a").Find(i, lookat:=xlWhole) Is Nothing Then
     c = c + 1
     Cells(c, "j") = i
    End If
 Next
End Sub

Not:Formülle de çözülebileceğini düşünüyorum. Ama benim fazla bilgim yok.Yine de makrolu çözüm daha basit ve etkili.

 

[EGZELL]

arkadaşlar ben excel çok yeniyim.ilginiz için teşekkür ederim ama verdiğiniz değerlerle ilgili hiçbir şey bilmiyorum yani anlayacağınız makroların nasıl kaydedileceğini bile bilmiyorum. formül verirseniz çok sevinirim. teşekkür ederim.

 

[uzmanamele]

merhaba
fonksiyonlar ile alternatif, daha iyisi yapılabilir.

 

[İdris SERDAR]

arkadaşlar ekte verdiğim tablodaki sıra numaralarında eksik olan rakamların ayrı bir liste şeklinde gösterecek formül arıyorum.
yardımcı olacak arkadaşlara şimdiden teşekkürler.

Bir de buna bakın.

.

 

[EGZELL]

arkadaşlar yardımlarınız için çok teşekkür ederim, yazdığınız formüller işimi çok kolaylaştırdı.

 

[jalji]

İyi geceler,
benzeri eksik sayıları bulmaca sorunum var.Yardımcı olabilirmisiniz.Ekli dosyada örneklendirdim.
İyi çalışmalar.

 

[Ali]

İyi geceler,
benzeri eksik sayıları bulmaca sorunum var.Yardımcı olabilirmisiniz.Ekli dosyada örneklendirdim.
İyi çalışmalar.

Örnek dosyanız ektedir.

 

[jalji]

Teşekkür ederim Ali bey,iyi geceler.