Kayıtsız Fatura Serinoları bulmak???

[femre]

Merhaba arkadaşlar,

Şöyle bir sorunum var yardımcı olursanız çok sevinirim:

Fatura SeriNo diye bir sutunum var. Burada kayıtlı fatura numaraları var. Sıradan gidiyor. Artan sıralama yaptırdım . Fakat kayıp numralar var arasında, ben bu kayıp yani kayıtsız numraları "BQ" sütununa yazdırmak istiyorum..Not : A harfinin hem solunda hem sağında bir karakter boşluk var. Ayrıca rakamlar hep 8 basamaklı...başında sıfırlar var.
saygılar

örnek:

BG _____________ BQ
Faturano ______ kayıtsızlar
A 00000001 ___ A 00000003
A 00000002 ___ A 00000005
A 00000004 ___ ......
A 00000006 ___ .......
A 00000007
.......
.......

 

[veyselemre]

[vb:1:3cf8084838]Sub eksik_bul()
For x = 1 To [BG65536].End(3).Row
If temizle(Cells(x, "BG")) - temizle(Cells(x + 1, "BG")) <> 1 Then
For y = temizle(Cells(x, "BG")) + 1 To temizle(Cells(x + 1, "BG")) - 1
ekle
Next y
End If
Next x
End Sub
Function temizle(veri) As Double
temizle = Val(Trim(Replace(veri, "A", "")))
End Function
Sub ekle(veri)
Cells([BQ65536].End(3).Row + 1, "BQ") = Mid(" A 00000000", 1, 11 - Len(veri)) & veri
End Sub[/vb:1:3cf8084838]

 

[femre]

SAYIN VEYSELEMRE ÇOK TEŞEKKÜR EDERİM.... :bravo: :bravo: :bravo: