- Katılım
- 14 Şubat 2006
- Mesajlar
- 710
- Excel Vers. ve Dili
- 2002-TÜRKÇE
Sub YeniKasaAç()
On Error Resume Next
ilktarih = ActiveSheet.Name
sontarih = DateSerial(Year(ilktarih), Month(ilktarih), Day(ilktarih)) + 1
ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Select
ActiveWindow.ActiveSheet.Name = sontarih
Range("C7").Formula = "=" & ilktarih & "!F37"
Range("B8").Select
End Sub
Merhaba
Ben bu kodla Sayfayı Kopyalatabiliyorum.Fakat Kopyalandığında yeni sayfa oluştuğunda Sayfa Adı Bir gün artarak Yani 06/10/2007-07/10/2007 Gibi Kopyalasın ve Kopyalanan Sayfada Örnekte gösterdiğim Renkli yerler silinsin hazır doldurulacak hale gelsin.
On Error Resume Next
ilktarih = ActiveSheet.Name
sontarih = DateSerial(Year(ilktarih), Month(ilktarih), Day(ilktarih)) + 1
ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Select
ActiveWindow.ActiveSheet.Name = sontarih
Range("C7").Formula = "=" & ilktarih & "!F37"
Range("B8").Select
End Sub
Merhaba
Ben bu kodla Sayfayı Kopyalatabiliyorum.Fakat Kopyalandığında yeni sayfa oluştuğunda Sayfa Adı Bir gün artarak Yani 06/10/2007-07/10/2007 Gibi Kopyalasın ve Kopyalanan Sayfada Örnekte gösterdiğim Renkli yerler silinsin hazır doldurulacak hale gelsin.