Formülde sayfa adını kullanmak

[mpextreme]

Merhabalar,

dosyamda yer alan sayfa adları her hafta artarak değişiyor,

isteğim her sekme eklediğimde bir önceki sekmede B8 hücresinde yer alan tarihi otomatik olarak yeni eklediğim sekmede B3 hücresine yazabilmek

sayfa sayım çok olduğu için her seferinde tek tek yapmak çok zor oluyor

yardımcı olabilir misiniz

 

[Korhan Ayhan]

Sayfa eklemeyi nasıl yapıyorsunuz?

Eğer ekle-sayfa ekle ile yapıyorsanız aşağıdaki kod işinizi görecektir.

Kodu "ThisWorkbook" bölümüne uygulayınız. Dosyanızı makro içeren dosya biçiminde kayıt ediniz.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Set S1 = Sheets(Sh.Index - 1)
    Sh.Range("B3") = S1.Cells(S1.Rows.Count, 2).End(3).Value
    Sh.Columns(2).AutoFit
End Sub