Makro ile Sıra no Kontrölü yapmak

İBRAHİMKKS

Altın Üye
Katılım
27 Ağustos 2021
Mesajlar
8
Excel Vers. ve Dili
xxxxxx
Altın Üyelik Bitiş Tarihi
16-01-2025
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.
 

Ekli dosyalar

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,
Aşağıdaki kodları bir modüle kopyalayıp dener misiniz?

Kod:
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

Altın Üye
Katılım
27 Ağustos 2021
Mesajlar
8
Excel Vers. ve Dili
xxxxxx
Altın Üyelik Bitiş Tarihi
16-01-2025
Çok tşkler ilginiz için
 
Üst