Her sayfadaki A1 hücresine x/x şeklinde sayfa sayısı yazdırma

[h6yazilim]

Benim şöyle bir sorunum var:

Her bir sayfadaki A1 hücresine AktifSayfa/ToplamSayfa şeklinde sayfa numaralarını yazdırmak istiyorum. Ayrıca aynı "=" ile formül girilmiş gibi her sayfadaki sayfa numaralarının sürekli olarak güncel tutulmasını istiyorum. Yapılabilir mi?

Örneğin 4 sayfamız olsun. İlk sayfadaki A1 hücresine 1/4 yazacak, ikinci sayfadaki A1 hücresine 2/4 yazacak. Öyle kaç sayfa varsa hepsinde de otomatik yazılacak...

Ben alttaki kodu yazdım ama sadece toplam sayfa sayısını yazdırabildim. Onu da sadece aktif sayfaya yazdı, diğer sayfalara yazmadı. Bi de otomatik güncellemiyor zaten, makro çalıştırmam gerekiyor =)

Sub SayfaNo()
Range("A1").FormulaR1C1 = Sheets.Count
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Sub sayfasay()
Dim i As Byte
Dim s As Byte
    For i = 1 To Sheets.Count
        s = s + 1
        Sheets(i).[a1] = s & "-/-" & Sheets.Count
    Next
End Sub

 

[slmnkc]

çok güzel teşekkürler

 

[h6yazilim]

Sn. N. Ziya HİÇDURMAZ,

Yardımınız için teşekkür ederim, peki o hücreye yazdırdığı bilginin sürekli güncel durmasını nasıl sağlarım?

Hani nasıl ki hücre içine =A5+B2 yazdığımızda otomatik toplamı veriyor, B2 veya A5'teki bilgilerden biri değiştiği anda toplamı güncelliyor; ben de onun gibi, sayfa eklendiğinde veya silindiğinde o hücredeki bilginin güncellenmesini istiyorum. Bunu sağlama imkanı var mı?

 

[N.Ziya Hiçdurmaz]

yanıt

Her kitap açılışnda, güncellenir.

Sub auto_open()
Dim i As Byte
Dim s As Byte
    For i = 1 To Sheets.Count
        s = s + 1
        Sheets(i).[a1] = s & "-/-" & Sheets.Count
    Next
End Sub

 

[h6yazilim]

Emeğinize ve ilginize çok teşekkür ederim...