otomatik sayfa ismi açma

[sturan]

örnek'te belirttiğim gibi ilk sayfada verilen aya göre otomatik olarak sayfa ismi vermesi yardımlarınız için şimdiden teşekkürler.

 

[Orion1]

Dosyanız ekte.

Sub tarih_sayfa()

Dim syf, tarih As Date, i As Date, liste
basla:
syf = InputBox("Ayın Başlangıç Tarihini Yazınız..!!", "TAİH-SAYFA", DateSerial(Year(Date), Month(Date), 1))
If syf = "" Then
    MsgBox "İşlemden vazgeçildi..!!", vbCritical, "VAZGEÇİLDİ"
    Exit Sub
End If
If Not IsDate(syf) Then
    MsgBox "Geçerli bir tarih giriniz..!!", vbCritical, "YANLIŞ TARİH"
    GoTo basla
End If
Application.ScreenUpdating = False
liste = Sheets(1).Range("A1:AH" & Sheets(1).Cells(65536, "A").End(xlUp).Row)
For i = syf To DateSerial(Year(syf), Month(syf) + 1, 1) - 1
    Application.Worksheets.Add after:=Sheets(Worksheets.Count)
    ActiveSheet.Name = i
    Sheets(1).Cells.Copy
    Range("A1").PasteSpecial
    Range("A1").Select
    Application.CutCopyMode = False
Next

Application.ScreenUpdating = True
MsgBox "İşlem tamam"

End Sub

 

[sturan]

sayfanın aynen kopyalanması

evren kardeşim emeğine sağlık verdiğin kod çok güzel fakat verdiğim örnekte
açıkladığım gibi yapabilirmiyiz teşekkürler.

 

[Orion1]

evren kardeşim emeğine sağlık verdiğin kod çok güzel fakat verdiğim örnekte
açıkladığım gibi yapabilirmiyiz teşekkürler.

Dosyayı güncelledim .Önceki mesajımdan indirebilirsiniz.

 

[sturan]

ilgiye tesekkür

çok tesekkür ederim ellerine sağlık tam istediğim gibi