• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

  • Konbuyu başlatan Konbuyu başlatan btl25
  • Başlangıç tarihi Başlangıç tarihi
Katılım
15 Mayıs 2015
Mesajlar
5
Excel Vers. ve Dili
Excel 2007 Türkçe
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.
 
Merhaba,

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

Kod:
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

.
 
Geri
Üst