Soru Ft numalarını listeleyip eksikleri bulma

[NADİR YILDIZ]

Arkadaşlar merhaba

A2 sütununda olan ft numaralarını seri ve sıra numarasına göre C sütunundan sonra mavi alanda olduğu gibi ayrı ayrı listelemek ve bu sütunlardaki eskik olanları listelemesini sarı alandaki gibi listelemesini istiyorum

iyi çalışmalar

 

[Necdet]

Merhaba,

Seriler nasıl saptanıyor? Bu soruyu sormadan soru içinde açıklamanız gerekirdi diye düşünüyorum.

 

[NADİR YILDIZ]

Merhaba Necdet bey
seriler ilk 3 harfe göre saptanıyor

 

[Necdet]

Merhaba Nadir bey,
Verdiğiniz örnek öyle değildi ama

 

[NADİR YILDIZ]

üstad
evet farkındayım
VKF ile başlayan 2 seri var vkf2023000112 başlayıp 124 ile biten
VKF ile başlayan 2 seri var vkf2023003400 başlayıp 3414 ile biten

bunları eğer örneklendiriğim gibi ayrı ayrı listelemezse
vkf2023000124 ile vkf2023003400 arasındakileri eksik olarak sarı alanda listeliyor
aslında eksik olan bişey yok 113-3399 arası ft yok aslında bende ne zamandır kullandığım çalışma var belkide onuda siz yaptınız hatırlamıyorum
onuda aşağıda ekliyorum

benim istediğim vkf112 ile vkf124 ayrı sütunda & vkf3400 ike vkf 3414 ayrı sütunda yapabilirmiyiz
bendeki çalışma vkf124-ile vkf 3400 arsındakileri eksik gibi listeliyor
yoksa aslında olmayan ft numalarını eksikmiş gibi listeliyor
bu sebeple vkf ile başlasada sonundaki sayıya göre listelenebilirmi ?

teşekkürler

 

[Necdet]

Merhaba,
tek seferde hepsini listelettirdim, siz gerekirse ve uyarlayabilirseniz serileri ayırabilirsiniz.

Sub Makro1()
   
Dim i As Long
Dim j As Long
Dim bs As Long
Dim arr As Variant
   
arr = Range("A1").CurrentRegion.Value

Range("C1").CurrentRegion.Offset(1).ClearContents
j = 1
For i = 3 To UBound(arr, 1)
    If Not Right(arr(i - 1, 1), 9) + 1 = Right(arr(i, 1), 9) + 0 Then
        bs = CDbl(Right(arr(i - 1, 1), 9) + 1)
        Do
        j = j + 1
        Cells(j, "C") = "VKF2023" & Format(bs, "000000000")
        bs = bs + 1
        Loop While bs < CDbl(Right(arr(i, 1), 9))
    End If
Next i

End Sub