Sayfalardaki aynı hücrelere Sırasıyla Tarih atama

[Emiroğlu61]

Merhaba Arkadaşlar, 365 Sayfa Var 01.01.2023 den 31.12.2023 e kadar, bu sayfaların birleştirilmiş hücresi olan "GH4" hücresine tarihleri yazmak istiyorum. Yardımcı olursanız sevinirim, Teşekkürler

 

[Necdet]

Merhaba,

Her sayfanın GH4 hücresine tarih olan sayfa adının yazılmasını istiyorsanız, aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Public Sub SayfaAdDegistir()

Dim sh As Worksheet
Dim i As Integer

For Each sh In Worksheets
    If IsDate(sh.Name) Then
        sh.Range("GH4") = sh.Name
        i = i + 1
    End If
Next sh

If i = 0 Then
    MsgBox "Hiçbir Sayfaya Tarih Yazılmadı....."
Else
    msgox i & " Adet sayfaya tarihler yazıldı...."
End If

End Sub