Başlangıcı & Bitişi Bilinen Sıralı Sayı Dizisinden Sayı Çıkartma, Eksiltme

[break]

Arkadaşlar forumda fonksiyonların altında bir konum vardı.

@52779 nickli arkadaş yardımcı oldu fakat bunun makrosu için yardımınızı rica edecektim.

Şimdiden teşekkürler.

Başlangıcı & Bitişi Bilinen Sıralı Sayı Dizisinden Sayı Çıkartma, Eksiltme

https://s5.dosya.tc/server3/hz29qo/Sablon.xlsx.html Merhaba, Veri sayfasında partiye girecek sıra numaraları var. Başlangıç ve bitiş numarasını girince Kurşun Kalem sheet'inde otomatik liste yapıyor. Kurşun kalem sheet'inde "A3" ve "A4" hücrelerinde ise istenmeyen numaralar var. "C" ve "D"...

www.excel.web.tr

 

[break]

https://s5.dosya.tc/server3/7wt9in/Sablon_v2.xlsx.html

Dosyanın son hali upload edildi.

 

[break]

Yardımcı olacak arkadaş var mıdır acaba?

 

[veyselemre]

Sub test()
    Dim sVeri As Worksheet
    Dim i&, son&, sat&, sut&, cift As Boolean, kys
    
    Set sVeri = Sheets("Veri")
    
    With CreateObject("Scripting.Dictionary")
        For i = sVeri.[C3] To sVeri.[C4]
            .Add Trim(i), Nothing
        Next i
        son = sVeri.Cells(Rows.Count, 6).End(3).Row
        If son > 2 Then
            For i = 3 To son
                .Remove Trim(sVeri.Cells(i, 6).Value)
            Next i
        End If
        kys = .keys
    End With

    Sheets("LRxxxx").Select
    Range("B4:XFD53").ClearContents
    sat = 4
    sut = 2
    cift = True

    For i = 0 To UBound(kys)
        If (cift And sat = 54) Or (cift = False And sat = 53) Then
            sat = 4
            sut = sut + 1
            cift = Not cift
        End If
        Cells(sat, sut).Value = kys(i)
        sat = sat + 1
    Next i

End Sub