Makro ile Sıra no Kontrölü yapmak

[İBRAHİMKKS]

Merhaba

Ekteki dosyada satış faturasında gönderdiğimiz fatura numaraları mevcut.Burada eksik olan numaraların kontrölünü makro ile nasıl yapabiliriz.Yardımcı olurmusunuz.

 

[Necdet]

Merhaba,
Aşağıdaki kodları bir modüle kopyalayıp dener misiniz?

Public Sub Kontrol()

Dim arr As Variant
Dim i   As Long
Dim j   As Long
Dim k   As Long
Dim fno As String

i = Cells(Rows.Count, "A").Row
Range("A2:A" & i).Sort Key1:=[A1]
arr = Range("A1:B" & i).Value

Range("D1") = "Eksik Numaralar"
j = 1

For i = 2 To UBound(arr, 1)
    fno = arr(i, 1)
    arr(i, 1) = Left(fno, 7)
    arr(i, 2) = Val(Right(fno, 9))
Next i

For i = 3 To UBound(arr, 1)
    If arr(i, 1) = arr(i - 1, 1) Then
        If arr(i, 2) - arr(i - 1, 2) > 1 Then
            k = arr(i - 1, 2) + 1
            Do Until k = arr(i, 2)
                j = j + 1
                Cells(j, "D") = arr(i, 1)
                Cells(j, "E") = k
                k = k + 1
            Loop
        End If
    End If
Next i

End Sub

 

[İBRAHİMKKS]

Çok tşkler ilginiz için