Excelde Sayfalar Arası Sıralı Tarih Oluşturma Hk.

[yilmaz3458]

Merhaba,

Excel de sayfalar arası sıralı tarih nasıl oluşturulur.

Örneğin Sayfa1 den Sayfa30'a kadar sıralı bir tarih oluşturmak istesem bunu nasıl oluşturabilirim?

1 Kasım - 30 Kasım arası sayfalar arasında ayrı ayrı seri nasıl oluşturulur.



Teşekkür ederim.

 

[md3m1ray]

merhaba
nasıl bir şey yapmak istediğinizi anlamadım önek dosya veya daha çok detay verir misiniz?
sayfaların isimleri mi tarih serisi olacak yoksa sayfanın belli bir hücresinde mi tarihler yazacak gibi

 

[yilmaz3458]

merhaba
nasıl bir şey yapmak istediğinizi anlamadım önek dosya veya daha çok detay verir misiniz?
sayfaların isimleri mi tarih serisi olacak yoksa sayfanın belli bir hücresinde mi tarihler yazacak gibi

Örnek Dosya gönderdim.

sayfalar arası 1 den 30 a kadar tek tek el ile tarih yazmak istemiyorum.

A2 hücresinde ki 1 den 30 a kadar sıralı tarih yazmak istiyorum.

 

[hasankardas]

Sub Tarih()
    Dim i As Integer
    Dim startDate As Date
    startDate = DateValue("01.01.2024")

    For i = 1 To 30
        With ThisWorkbook.Sheets(CStr(i))
            .Cells(1, 1).Value = startDate + (i - 1)
        End With
    Next i
End Sub

kodda sayfa isimleri rakam olarak düşünülmüştür.
formül ile yapmak isterseniz her bir sayfaya önceki sayfanın +1 şeklinde düzenleme yapabilirsiniz.

 

[yilmaz3458]

Sub Tarih()
    Dim i As Integer
    Dim startDate As Date
    startDate = DateValue("01.01.2024")

    For i = 1 To 30
        With ThisWorkbook.Sheets(CStr(i))
            .Cells(1, 1).Value = startDate + (i - 1)
        End With
    Next i
End Sub

kodda sayfa isimleri rakam olarak düşünülmüştür.
formül ile yapmak isterseniz her bir sayfaya önceki sayfanın +1 şeklinde düzenleme yapabilirsiniz.

Çok teşekkür ederim.

Size zahmet anlayabileceğim basit bir örnek tablo gönderme şansınız var mı?

Hem yukarıda ki kod için,
hem de formül +1 için.

Çok teşekkür ederim.

 

[hasankardas]

+1 li tüm sayfalara uyarlamak için fazla vaktim yok sadece 1 ve 2 ye yaptım. diğerini uyarladım