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

Katılım
10 Aralık 2022
Mesajlar
14
Excel Vers. ve Dili
2016
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

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,372
Excel Vers. ve Dili
Ofis 365 Türkçe
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.

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