Sub tarih_sayfa()
Dim syf, tarih As Date, i As Date, liste
basla:
syf = InputBox("Ayın Başlangıç Tarihini Yazınız..!!", "TARİ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(2).Range("A1:AH" & Sheets(2).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(2).Cells.Copy
Range("A1").PasteSpecial
Range("A1").Select
Application.CutCopyMode = False
Next
Application.ScreenUpdating = True
MsgBox "İşlem tamam"
End Sub
bu kodla verilen tarih aralığı kadar sayfa kopyalıyorum fakat benim sorunum sayfalar kopyalandığı zaman sayfanın biçim özellikleri kayboluyor(baskı önizleme vb) bu koda nasıl exceldeki gibi taşı kopyla özelliği kazandırabilirm.yani tümüyle aynı sayfayı kopyalayabilirim
Dim syf, tarih As Date, i As Date, liste
basla:
syf = InputBox("Ayın Başlangıç Tarihini Yazınız..!!", "TARİ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(2).Range("A1:AH" & Sheets(2).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(2).Cells.Copy
Range("A1").PasteSpecial
Range("A1").Select
Application.CutCopyMode = False
Next
Application.ScreenUpdating = True
MsgBox "İşlem tamam"
End Sub
bu kodla verilen tarih aralığı kadar sayfa kopyalıyorum fakat benim sorunum sayfalar kopyalandığı zaman sayfanın biçim özellikleri kayboluyor(baskı önizleme vb) bu koda nasıl exceldeki gibi taşı kopyla özelliği kazandırabilirm.yani tümüyle aynı sayfayı kopyalayabilirim
