Kullanıcı tanımlı fonksiyonun güncellenme sorunu hk.

[pNouma]

Kıymetli Hocalarım merhaba,

Excel dosyasında her sayfanın index numarasını alarak sayfa üzerinde hücreye yazdırmak için amacıyla aşağılıdaki kodu oluşturdum.

yalnız sayfalar arası geçiş yaptığım zaman; formül güncellenmiyor, her sayfaya girdiğim zaman formül otomatik çalışsın istiyorum

https://dosya.co/hv0aggsp0cvd/Kitap1.xlsm.html

Function getSheetIndex(Optional tip As Byte = 0)
Dim s As Integer

    Application.Volatile

    s = ActiveSheet.Index
    
    If tip = 0 Then
        getSheetIndex = s
    Else
        getSheetIndex = Format(s, "000")
    End If

End Function

desteğiniz için teşekkürler,
iyi Çalışmalar dilerim.

 

[Muzaffer Ali]

Merhaba.
Sayfa indeks numarası sabit bir değerdir neden her seferinde yeniden yazdırmak istiyorsunuz?

BuÇalışmaKitabı adlı kod sayfasına aşağıdaki kodu kopyalayın.
Hangi sayfa açılırsa o sayfada D5'e sayfa indeks numarasını yazar

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Sh.Range("D5") = Sh.Index
End Sub

Diğer fonksiyonu silin.

 

[pNouma]

Merhaba.
Sayfa indeks numarası sabit bir değerdir neden her seferinde yeniden yazdırmak istiyorsunuz?

BuÇalışmaKitabı adlı kod sayfasına aşağıdaki kodu kopyalayın.
Hangi sayfa açılırsa o sayfada D5'e sayfa indeks numarasını yazar

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Sh.Range("D5") = Sh.Index
End Sub

Diğer fonksiyonu silin.

teşekkürler Hocam,
iyi Çalışmalar.