DİĞer GÜn Kasasi

[ANTALYA 01]

Merhaba

Ekteki çalışma için makroya ihtiyacım var teşekkürler.Açıklama ekteki çalışma sayfasında

 

[ANTALYA 01]

C

Yazmayı unutmuşum Onay sayfasında sadece Sağ taraftaki Gider Kısmı Onay kısmına aktarılacak Yani 16/12/2006 tARİHİNDEKİ kASANIN SAĞ TARAFINDAKİ VERİLER Onay sayfasına aktarılacak.Sol taraftaki verilerle birlikte değil

 

[ANTALYA 01]

d

Merhaba ben bu kodal diğer günkü kasayı otomatik açıyorum .aynı işlem için Hem bir gün önce kasasını açsın hemde ONAY Kısmını otomatik açsın.Böyle bir kod gerekiyor.

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]

V

Merhaba

Ben Bu makroya istinaden öRNEKTEKİ Onay Kısmınıda otomatik açsın istiyorum.
Yani Yeni gün ve Onay Sayfası Çünkü Onay sayfasını Kopyala Yapıştırla yenisi açıyorum.Makroyla bir defada yapılsın istiyorum.