Otomatik Shett açma ve isimlendirme

[cemalu]

Selamlar;

Ekte verdiğim dosyada ayın her günü ( pazar hariç ) için yeni shett açıp isimlendiriyorum bunu otomatik yapabilirmiyiz... ilgilenen arkadaşlara şimdiden teşekkür ederim

 

[Huseyinkis]

Selamlar;

Ekte verdiğim dosyada ayın her günü ( pazar hariç ) için yeni shett açıp isimlendiriyorum bunu otomatik yapabilirmiyiz... ilgilenen arkadaşlara şimdiden teşekkür ederim

Ekteki linki incelermisiniz.

http://www.excel.web.tr/f48/syraly-olarak-sayfa-isimlendirme-t93434.html

 

[hamitcan]

Aşağıdaki kodu ThisWorkBook kısmına ekleyip dener misiniz ?

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Gun = Format(Date, "DDDD")
    If Gun = "Pazar" Then
        SayfaIsmi = Date + 1
    Else
        SayfaIsmi = Date
    End If
    SayfaIsmi = Replace(SayfaIsmi, "/", ".")
    cvp = MsgBox(SayfaIsmi, vbYesNo, "Bu İsimde Yeni Sayfa Açılsın Mı ?")
    If cvp = vbYes Then
        For Each Sht In Worksheets
            If Sht.Name = SayfaIsmi Then i = 1
        Next
        If i = 1 Or cvp = vbNo Then
            Application.DisplayAlerts = False
            Sh.Delete
            Application.DisplayAlerts = True
        Else
            Sh.Name = SayfaIsmi
        End If
    End If
End Sub

 

[cemalu]

Ekteki linki incelermisiniz.

http://www.excel.web.tr/f48/syraly-olarak-sayfa-isimlendirme-t93434.html

İlginiz için teşekkür ederim pazar günleri burada dahil edilmiş ama bunada şükür buda işimi görür sağolasın

 

[cemalu]

Aşağıdaki kodu ThisWorkBook kısmına ekleyip dener misiniz ?

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Gun = Format(Date, "DDDD")
    If Gun = "Pazar" Then
        SayfaIsmi = Date + 1
    Else
        SayfaIsmi = Date
    End If
    SayfaIsmi = Replace(SayfaIsmi, "/", ".")
    cvp = MsgBox(SayfaIsmi, vbYesNo, "Bu İsimde Yeni Sayfa Açılsın Mı ?")
    If cvp = vbYes Then
        For Each Sht In Worksheets
            If Sht.Name = SayfaIsmi Then i = 1
        Next
        If i = 1 Or cvp = vbNo Then
            Application.DisplayAlerts = False
            Sh.Delete
            Application.DisplayAlerts = True
        Else
            Sh.Name = SayfaIsmi
        End If
    End If
End Sub

İlginiz için teşekkür ederim fakat kodu excele nasıl koyacağımı bilmediğimden bunu yapamadım

 

[hamitcan]

Kod; gün, pazara geldiğinde, bir gün arttırıyor. Ayrıca kodu Alt+F11 tuşlarına basarak açılan penceredenThisWorkBook kod kısmına eklemeniz gerekiyor. Kod, yeni açmak istediğinizde çalışacaktır.