Tablo Başlığına Artan Numaralar eklemek

[hadromer]

Merhaba,
ekte görüldüğü üzere bir çalışma sayfam var. Tabloların üzerine 103'ten başlamak üzere 103-104-105 şeklinde numaralar vermek istiyorum. Soldan sağa doğru devam ediyor tablolarım. dosyam ektedir. Yardımcı olabilir misiniz ?

 

[Ömer]

Merhaba,

Deneyiniz.

Sub Numara_Ver()

    Dim sut As Integer, s As Integer, i As Integer
    
    sut = Cells(2, Columns.Count).End(xlToLeft).Column
    s = 103
    
    Rows(1) = ""
    For i = 1 To sut Step 10
        Cells(1, i) = s
        s = s + 1
    Next i
    
End Sub

 

[hadromer]

Merhaba,

Deneyiniz.

Sub Numara_Ver()

    Dim sut As Integer, s As Integer, i As Integer
   
    sut = Cells(2, Columns.Count).End(xlToLeft).Column
    s = 103
   
    Rows(1) = ""
    For i = 1 To sut Step 10
        Cells(1, i) = s
        s = s + 1
    Next i
   
End Sub

Ömer bey sadece ilk sıradaki tablolara numara verdi, dosyadaki tüm tablolara numara vermek istiyorum. Soldan sağa devam edecek. her sırada 4 tablo var. 103-104-105-106' dan sonra alt sıradaki tabloya geçip 107-108 diye devam etmesini istiyorum. Mümkün müdür ?

 

[Ömer]

Aşağıdaki tabloları görmemişim.

Tabloların hepsi aynı satır ve sütun sayılı sanırım.

Sub Numara_Ver()

    Dim sut As Integer, sat As Long, s As Long, i As Integer, j As Long
   
    sat = Cells(Rows.Count, "B").End(xlUp).Row
    s = 103

    For j = 1 To sat Step 15
        Rows(j) = ""
        sut = Cells(j + 1, Columns.Count).End(xlToLeft).Column
        For i = 1 To sut Step 10
            Cells(j, i) = s
            s = s + 1
        Next i
    Next j
   
End Sub

 

[hadromer]

teşekkür ederim,elinize sağlık