Eksik Fatura Nolarını bulmak

[bmutlu966]

Arkadaşlar desteğe ihtiyacım var. Birbirini takip eden fatura noları olması gerekirken, data içinde eksik olan noları nasıl bulabilirim ? Dosya içinde detaylı açıklama var.

 

[bedersu]

Sayın bmutlu966,
Aşağıdaki kodları dener misiniz?

Sub eksik()
s = 2

For i = 4 To [B65536].End(3).Row

If Cells(i, 1) = Cells(i + 1, 1) Then b = b + 1

If Cells(i, 1) <> Cells(i + 1, 1) Then

ii = i
For a = Right(Cells(ii - b, 2), Cells(ii - b, 2).Characters.Count - 1) To _
Right(Cells(ii, 2), Cells(ii, 2).Characters.Count - 1)

If a <> Val(Right(Cells(ii - b, 2), Cells(ii - b, 2).Characters.Count - 1)) Then
s = s + 1

Cells(s, 7) = Cells(i, 1)
Cells(s, 8) = Left(Cells(i - b, 2), 1) & a

ii = ii - 1
End If
ii = ii + 1

Next a
b = 0
End If
Next i
End Sub

 

[bmutlu966]

bedersu kardeşim bilgine sağlık, süper oldu...

 

[bmutlu966]

Bir önceki gün kullanılan son faturaları diğer sayfada versem, bugünkü başlangıç faturaları ile kontrolünü yaparak eksik olanları listeye dahil edebilir miyiz?

 

[bedersu]

Sayın bmutlu966,
Son isteğinizi tam olarak anlayamadım.Önceki günkü faturaları diğer faturaların arasına yazarsanız kodlar zaten otomatik olarak aradaki eksikleri bulacaktır.Biraz daha açıklar mısınız?

 

[bmutlu966]

Data çok büyük, binlerce satır. Elimde bir önceki gün her bölge için kesilen son fatura nolarını veren bir rapor var. Örneğin 4 nolu bölgenin önceki günkü son faturası P33453 imiş. Ancak Sayfa1 deki başlangıç faturası P33455, yani ardaki P33454 kayıp. Bunu bulup kayıp listesine eklemesini istiyorum. Önceki dosya ya bakarak daha net anlayabilirsiniz.