For Each ile sayfalara sayı girmek

[mesudiye_052]

Selamlar;

Aşağıdaki kodda sadece Sayfa1' sayı yazıyor
tüm sheet'lere yazmasını istiyorum
Aşağıdaki kodda nasıl bir hatam olabilir

Sub Yaz()
    Dim Sht As Worksheet
    Dim Rng As Range
    Dim Sayac, a As Byte
 
    For Each Sht In Worksheets
        For Each Rng In Range("A1:A10")
            Sayac = Sayac + 1
            Rng = Sayac
        Next Rng
        Sayac = 0
    Next Sht
End Sub

Saygılar;

 

[Levent Menteşoğlu]

Aşağıdaki kırmızı renkli kısmı ilave ederek denermisiniz.

Sub Yaz()
    Dim Sht As Worksheet
    Dim Rng As Range
    Dim Sayac, a As Byte
 
    For Each Sht In Worksheets
        For Each Rng In [B][COLOR=red]Sht.[/COLOR][/B]Range("A1:A10")
            Sayac = Sayac + 1
            Rng = Sayac
        Next Rng
        Sayac = 0
    Next Sht
End Sub

 

[mesudiye_052]

Selam

Sayın Levent Menteşoğlu
çok teşekkür ederim

Saygılarımla