eksik rakamları bulma

[subutayı]

slm arkadaşlar,
örnekte verdiğim listede B sütünü (Kütük Sıra No) da yazılı olan rakamların 1 artarak gitmesi gerekiyor. B sütünundaki bütün hücreleri tek tek kontrol etmek zor oluyor. sırayı bozan yerleri bir defa da bulabilirmiyim. teşekürler.

 

[ileriexcel]

sayfa kod bölümüne yapıştırınız.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To WorksheetFunction.CountA([c7:c65000])
Range("b" & i + 6) = i
Next
End Sub

 

[veyselemre]

Sub EksikBul()
For X = 8 To [b65536].End(3).Row - 1
    If Cells(X + 1, 2) - Cells(X, 2) > 1 Then
        For Y = Cells(X, 2) + 1 To Cells(X + 1, 2) - 1
            sat = sat + 1
            Cells(sat, "f") = Y
        Next Y
    End If
Next X
End Sub

 

[subutayı]

slm

Arkadaşlar olmadı. benim istediğim tam olarak şu.
Rakamlarda düzeltme yapmasını istemiyorum. Sıralamada olmayanları bana göstermesini istiyorum. çünki her rakam karşısındaki bir yeri işaret ediyor. sizin yaptığınız şekilde bütün her şey alt üst oluyor. Sıralamayı bozan veya atlayan rakamları nasıl bulabilirim

 

[grkngr]

arkadaşlar,
benzer bir problemi bende ekte gönderdiğim çalışma sayfasında yaşıyorum..
5800-6714 arasında sıralanmış iş emirleri var ama aralarda bazı satırlar eksik.
eksik olan satırların hangileri olduğunu bilmem gerekiyor..
istediğim;
bu eksik iş emri nolarını başka bir çalışma sayfasında sıralaması veya listeye yeni satırlar ekleyerek bu eksik işemri no'larını da göstermesidir..
sayın ileriexcel'in gönderdiği kodu uygulamaya çalıştım fakat beceremedim..
yardımcı olursanız sevinirim..
kolay gelsin..

 

[veyselemre]

sayın grkngr, aşağıdaki kodu deneyin.

Sub Tamamla()
BASLA:
For X = [A65536].End(3).Row To 3 Step -1
    If Cells(X, 1) - Cells(X - 1, 1) <> -1 And Cells(X, 1) <> Cells(X - 1, 1) Then
        Rows(X).Insert
        Cells(X, 1) = Cells(X - 1, 1) - 1
        GoTo BASLA
    End If
Next X
End Sub

 

[grkngr]

teşekkür..

çok teşekkür ederim,
sorunsuz çalıştı,
kolay gelsin..

 

[subutayı]

eksik

veysel bey, aşağıdaki kodunuz çalışıyor ama benim örneğimi incelerseniz, örnek olarak. 9,10,11 ard arda yazılmayan olursa sizin kod sadece 9 gösteriyor diğerleriini vermiyor. bir daha incelerseniz sevinirim.

Sub EksikBul()
For X = 8 To [b65536].End(3).Row - 1
If Cells(X + 1, 2) - Cells(X, 2) > 1 Then
For Y = Cells(X, 2) + 1 To Cells(X + 1, 2) - 1
sat = sat + 1
Cells(sat, "f") = Y
Next Y
End If
Next X
End Sub

 

[veyselemre]

veysey bey, aşağıdaki kodunuz çalışıyor ama benim örneğimi incelerseniz, örnek olarak. 9,10,11 ard arda yazılmayan olursa sizin kod sadece 9 gösteriyor diğerleriini vermiyor. bir daha incelerseniz sevinirim.

Bende öyle olmuyor, örneğinizi inceleyin.

 

[subutayı]

haklısınız

veysel bey,
özür dilerim siz haklısınz, ilginize teşekür ediyorum. işimi gördü sağolun. başarılarınızın devamanı diliyorum.