Excelde bir hücreye otomatik sayfa sayısı atama

[btl25]

Merhaba arkadaşlar,
Hazırladığım bir excel dosyasında bazı satırları her sayfada yinelenen satırlar olarak ayarladım. Yinelediğim satırdaki bir Hücrede "Sayfa Sayısı:" yazıyor. Hemen yanındaki hücrede de sayfa sayısının yazmasını ve her sayfada farklı olmasını istiyorum. Sayfa sayısının yazmasını istediğim hücre S5 hücresi. Yardımcı olursanız çok memnun olurum. Şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Sorunuz net değil. İstediğiniz bu mu?
Farklı bir istediğiniz varsa, örnek dosya ekleyerek açıklamanızı rica ederim.

Sub Sayfa_Numarası()

    Dim c As Range, Adr As String,  a As Integer
    
    a = 1
    With Range("R:R")
        Set c = .Find("Sayfa Sayısı")
        If Not c Is Nothing Then
            Adr = c.Address
            Do
                Cells(c.Row, "S") = a
                a = a + 1
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adr
        End If
    End With

End Sub

.