DİĞer GÜnÜ Hazirlayan Makro

[ANTALYA 01]

Ekteki Dosyama bir yardımcı olurmusunuz dosyada açıklamayı yaptım.

 

[Mahmut Kök]

anladığım kadarıyla, her gün için ayrı bir sayfa açmak istiyorsunuz. Başka bir çözüm düşünemez misiniz? Çünkü yılda 365 gün var, iş günü dersek de 200 den fazla sayfa açmanız gerekecek. Bu kadar sayfa çalışmanızda sıkıntı yaratabilir kanısındayım.

 

[ANTALYA 01]

D

Sayın Mesleki

Ben her güne razıyım diğer günü oluşturacak makro lazım yani ben bir defada bütün bir yılı istemiyorum.Her gün CTRL+SHİFT+A Yapacağım örnek bu gün 25/11/2006 Kasası oluşacak yarın aynı işlemi yapacğım 26/11/2006 Kasası oluşacak.

 

[Recep İpek]

Sayfa adlarını örneğin 24.11.2006 şeklinde yapın.

Yeni kasa sayfası oluşturmak için aşağıdaki kodları kullanabilirsiniz.

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 & "!C38"
Range("F7").Formula = "=" & ilktarih & "!F38"
Range("B8").Select
End Sub

 

[ANTALYA 01]

F

İlginizden dolayı teşekkür ederim.