Numaralandırma için yardım

[yasarcan]

Örnek excel içine 3 adet senaryo hazırladım. istediğim şuki yapılacak olan makronun tada vb kodunun 3 senaryoyuda yada diğerlerinide karşılamasıdır. sol tarafa no yazdığımda bir üstte numara yazdığım satırın sonundaki numarayı referans alıp altta yazılan numaranın lideri kabul edecek ve bu şekilde süreklilik sağlıyacak bir desteğe ihtiyacım var.

Teşekkürler

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Tablo ebatları sabit mi değil mi söylememişsiniz ben satırın fazla olabileceğini ama sütun sayısının 4 olduğunu varsayarak yaptım.

Sub Numaralandır()

    Dim i As Integer, _
        j As Integer, _
        k As Integer
    
    Range("B2:E" & Rows.Count).ClearContents
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        If Not Cells(i, "A") = "" Then
            For j = 2 To 5
                k = k + 1
                Cells(i, j) = k
            Next j
        End If
    Next i
    
End Sub

 

[yasarcan]

Sabitlik konusu düşündüğün gibi. evet. kod çalışmadı.

 

[Necdet]

Sabitlik konusu düşündüğün gibi. evet. kod çalışmadı.

A sütunundaki numaralandırmayı sizin yaptığınızı düşündüm. Örneğin A3 ve A5 sırasıyla 1 ve 2 yazıp kodları çalıştırırsanız çalışır.

Ya da sizin kafanızdan geçen bir numaralandırma var ise A sütunu için onu da belirtin.

Aşağıdaki kodlar A sütununda sıralanmasını istediğiniz hücreleri seçtikten sonra A sütununda da numaralandırma yapar.
Örneğin A5, A6 yı seçip çalıştırın.

Sub Numaralandır()

    Dim Hcr As Range, _
        i   As Integer, _
        j   As Integer, _
        k   As Integer
    
    Range("A2:E8").ClearContents
    
    For Each Hcr In Selection
        i = i + 1
        Hcr = i
        For j = 2 To 5
            k = k + 1
            Cells(Hcr.Row, j) = k
        Next j
    Next Hcr
    
End Sub

 

[Necdet]

Sonuç için bir değerlendirme beklerdim.