eksik sıra no bulma

[erosion]

arkadaşlar ilginç bi sorum var excellde mümkünmüdür bu bilmiyorum ama varsada sizin bileceğinizi düşünüyorum. sıkıntı şu excellden şunu istiyorum örneğin a hücresinde sıra numaraları var.
1
2
3
5
7
10000 ekadar gidiyo bu numaralar ama aralarda eksik olanlar var bana hangi numaraların eksik olduğu lazım yardımlarınızı beklerim saolun şimdiden...

 

[uzmanamele]

merhaba

konu başlığında yazan metni sitede arayınız.

 

[İhsan Tank]

burayı inceleyiniz
daha önce bu soruyu sırmuştum linki inceleyiniz

 

[erosion]

sağolasınız ya yaptım çok iyi oldu numaralar biraz büyüktü 300000001 gibi başlıyodu oldu ama...

 

[İhsan Tank]

sağolasınız ya yaptım çok iyi oldu numaralar biraz büyüktü 300000001 gibi başlıyodu oldu ama...

iyi günlerde kullanın sorularınızı arama yaptıktan sonra sorarsanız daha iyi olur
kolay gelsin

 

[halis28]

Eksik sayıyı bulma

Arkadaşlar hepinize kolay gelsin;
Benimde bir buna benzer dosyam var. Forumda araştırdım ama hepsinde TAM SAYILAR şeklinde bir sıralama var. Acemi olduğum için o formülleri kendi listeme uyarladım ama hiçbiri olmadı. Benim A stunundaki sayılar 2012/0001 den başlayıp 2012/6500 e kadar gidiyor. Bu arada atlanan, girilmemiş numaralar var. Bunları nasıl buluruz. Yardımcı olacak arkadaşlara çok teşekkür ediyorum.

 

[Necdet]

Merhaba,

Basit bir yöntem söyleyim.

A sütununu B sütununa yada istediğiniz herhangi bir sütuna kopyalayın.
Koplayadığınız sütunda Bul ve Değiştir (Ctrl+H) ile aranana "2012/" yazın ve tütümü değiştir deyin.
Sonra bu sütunu AZ ye göre sıralayın.

Sonra Kopyaladığınız sütunun sağındaki sütunun 2. satırına aşağıdaki formülü yazarak aşağıya doğru kopyalayın.

=(B2-B1)=1

Not Ben B sütununa kopyaladım ve formülü C sütununa yazdım.

Sonra bu sütunda YANLIŞ olanlar arada atlanan numaralardır.

 

[halis28]

Necdet bey, dediğiniz gibi yaptım ama "değiştirilecek eşleşen veriler bulunamıyor" diye uzun bir hata penceresi geliyor.
Size zahmet bunu önceki verdiğim örnek dosya üzerinde yapabilirmisiniz. Teşekkürler.

 

[Necdet]

Merhaba,

Dosya ilk mesajıma eklenmiştir.

 

[halis28]

Necdet bey saolun ama bu benim işimi görmez. Burda DOĞRU ve YANLIŞ olarak adlandırılan satırlar var. Ben hangi numaraların eksik olduğunu başka bir stunda görmek istemiştim. Bu şekilde tek tek bunları inceleyip, eksik olanları zaten çıkartırım ama oda çok zamanımı alır. Buna benzer formüller vermiş arkadaşlar ama onlar sıralı tamsayı olduğu için benim dosyama uyarlayamadım. Excel bilgimde o kadar iyi değil. İlginize teşekkür ederim.

 

[Necdet]

Merhaba,

Pratik bir yol önermiştim. Yanlışları süzdürünce çıkar eksik olanlar.
Ama sizin dediğiniz gibi çözüm de forumda yanlış hatırlamıyorsam var.

Kodları deneyiniz.

Sub EksikBul()
    
    Dim i   As Long, _
        Son As Long, _
        j   As Long, _
        k   As Integer
    
    Application.ScreenUpdating = False
    i = Cells(Rows.Count, "A").End(3).Row
    Son = i
    Range("B1:D" & i).Clear
    
    With Range("A1:A" & i)
        .Sort Key1:=[A1]
        .Copy Range("B1")
    End With
    
    Range("B1:B" & i).TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="/", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
    j = 0
    For i = 2 To Son
        If Not Cells(i, "C") - 1 = Cells(i - 1, "C") Then
            k = Cells(i - 1, "C") + 1
            Do
                j = j + 1
                Cells(j, "D") = k
                k = k + 1
            Loop While k < Cells(i, "C")
        End If
        
    Next i
    
    Columns("B:C").Delete
    Application.ScreenUpdating = True
    
    MsgBox "İşlem Bitmiştir....", vbInformation, "Excel.Web.Tr"
    
End Sub

 

[hakan_yaglioglu]

Arkadaşlar aşağıdaki gibi yapabilirsiniz

A B C D E F G H
1 1
2 4 4 3 2 1
3 5 1
4 7 2 6
.
20 39 5 38 37 36 35
21 40 1
.
200 200


Öncelikle ardarda dizilmiş satırlarda arada kaç fark olduğu bulunur.
C2 hücresine =B2-B1 formülü yazılır Enter
C2 hücresi sağ alt köşesinde mouse imleç + olduğunda mouse sol tuş ile tutularak C200 e kadar çekilerek kopyalanır.

Sonra C sütununda bulunan değerler içinde MAX değer aşağıdaki gibi bulunur.
C205 hücresine =MAX(C1:C200) formülü yazılır Enter


C2 ye =IF(B2-B1=1;"";IF(B2-1<=B1;"";B2-1)) D2 hücresine =IF(B2-B1=1;"";IF(B2-2<=B1;"";B2-2)) E2 hücresine =IF(B2-B1=1;"";IF(B2-3<=B1;"";B2-3)) yanyana böyle bulunan MAX değer kadar formül yazılır

En son C2 den MAX Değer kadar Sütun sağa doğru mouse ile seçilir
Mouse seçilen hücrelerin en sağ alt köşesine getirilerek imleç + olduğunda mouse sol tuş ile tutularak aşağı doğru çekilerek kopyalanır.

 

[hakan_yaglioglu]

	A	B	C	D	E	F	G
1	10.242.13.0	0
2	10.242.13.4	4	4	3	2	1
3	10.242.13.5	5	1
4	10.242.13.10	10	5	9	8	7	6