çalışma sayfası eklediğimizde sayfa1 sayfa2 olan yerleri tarih ile değiştirme

[habaca]

Yeni bir çalışma sayfası eklediğimizde sayfa1 sayfa2 diye acılan sayfaları girdigim tarihden itibaren her sayfa actıgımda + 1 gün seklinde yapabilirmiyiz 20.10.2022 girdiysem yeni sayfa actıgım da 21.10.2022 diye sırayla gitmesini istiyorum nasıl yapabilirim.

 

[veyselemre]

Kodu ThisWorkbook (BuÇalışmaKitabı olabilir Türkçe versiyonlarda) kısmına kopyalayın.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    ReDim tarihler(1 To Worksheets.Count)
    For Each Sheet In Worksheets
        If IsDate(Sheet.Name) Then
            tarihVar = True
            say = say + 1
            tarihler(say) = DateValue("31.12.2099") - DateValue(Sheet.Name)
        End If
    Next Sheet
    If tarihVar Then
        Sh.Name = DateValue("31.12.2099") - WorksheetFunction.Min(tarihler) + 1
    Else
        Sh.Name = Date
    End If
End Sub

 

[habaca]

Kodu ThisWorkbook (BuÇalışmaKitabı olabilir Türkçe versiyonlarda) kısmına kopyalayın.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    ReDim tarihler(1 To Worksheets.Count)
    For Each Sheet In Worksheets
        If IsDate(Sheet.Name) Then
            tarihVar = True
            say = say + 1
            tarihler(say) = DateValue("31.12.2099") - DateValue(Sheet.Name)
        End If
    Next Sheet
    If tarihVar Then
        Sh.Name = DateValue("31.12.2099") - WorksheetFunction.Min(tarihler) + 1
    Else
        Sh.Name = Date
    End If
End Sub

bu kodu nereye girmem gerekiyor cok tesekkür ederim bu arada

 

[habaca]

Kodu ThisWorkbook (BuÇalışmaKitabı olabilir Türkçe versiyonlarda) kısmına kopyalayın.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    ReDim tarihler(1 To Worksheets.Count)
    For Each Sheet In Worksheets
        If IsDate(Sheet.Name) Then
            tarihVar = True
            say = say + 1
            tarihler(say) = DateValue("31.12.2099") - DateValue(Sheet.Name)
        End If
    Next Sheet
    If tarihVar Then
        Sh.Name = DateValue("31.12.2099") - WorksheetFunction.Min(tarihler) + 1
    Else
        Sh.Name = Date
    End If
End Sub

tamamdır hallettim cok tesekkürler