Her sayfada artan tarih

[muratgunay48]

Arkadaşlar, sayın hocalarım,
1. Sayfada A1'e tarih atsam. 2. sayfada A1'e 1 gün sonrası. 3. sayfada 1 gün artarak. (Tarih sabit olacak ama)
Yalnız sayfa isimleri Sayfa 1 değil. Hep değişik.
Şimdiden teşekkür ederim.
Saygılarımla.

 

[dEdE]

"...1 gün artarak. (Tarih sabit olacak )... " nasıl olacak anlamadım ama şunu bir deneyiniz.

Sub TarihYaz()
sy = Sheets.Count
For i = 2 To sy
    Sheets(i).Range("A1") = Sheets(i - 1).Range("A1") + 1
Next
End Sub

 

[Necdet]

Merhaba,

Başlangıç tarihi hangi sayfadan başlayacaksa, o sayfada iken aşağıdaki kodları çalıştırın, deneyiniz.

Sub Deneme()

Dim sh As Worksheet, _
    syf As Worksheet, _
    tar As Date

Set sh = ActiveSheet

tar = sh.Range("A1")

If IsDate(tar) Then
    For Each syf In Worksheets
        If Not syf.Name = sh.Name Then
            tar = tar + 1
            syf.Range("A1") = tar
        End If
    Next syf
End If
 
MsgBox "İşlem Tamam...."
   
End Sub

 

[muratgunay48]

"...1 gün artarak. (Tarih sabit olacak )... " nasıl olacak anlamadım ama şunu bir deneyiniz.

Sub TarihYaz()
sy = Sheets.Count
For i = 2 To sy
    Sheets(i).Range("A1") = Sheets(i - 1).Range("A1") + 1
Next
End Sub

Evet hocam bu. Teşekkür ederim.

 

[muratgunay48]

Merhaba,

Başlangıç tarihi hangi sayfadan başlayacaksa, o sayfada iken aşağıdaki kodları çalıştırın, deneyiniz.

Sub Deneme()

Dim sh As Worksheet, _
    syf As Worksheet, _
    tar As Date

Set sh = ActiveSheet

tar = sh.Range("A1")

If IsDate(tar) Then
    For Each syf In Worksheets
        If Not syf.Name = sh.Name Then
            tar = tar + 1
            syf.Range("A1") = tar
        End If
    Next syf
End If

MsgBox "İşlem Tamam...."
  
End Sub

Çok teşekkür ederim hocam. Emeğinize sağlık.