ekli listedeki çalışmay 1 aylık nasıl yaparım

[axtmm]

birinci sayfada yaptıklarımı 1 aylık nası takip edebilirim yani bugünkü giriş satış yarına düşülerek yapmak
01 nisan ila 30 nisan arası

 

[axtmm]

bana yardıncı olacak birileri varmı? ustalarım neredeeeee

 

[axtmm]

nasıl yapıldını anlatın ben yapayım
formüllerde takılıyorum
birinci sayfada yaptıklarımı satış düşüldükten sonra 2. sayfaya yani birsonraki güne aktarsın.

 

[abdi]

dosyanızın bir yedeğini alıp aşağıdaki kodları denermisiniz.

Sub dene()
Dim a As Date
a = DateSerial(Year(Date), Month(Date), "1") + 1
b = DateSerial(Year(Date), Month(Date) + 1, "1") - 1
For ay = a To b
   Sheets("01.04.08").Copy After:=ActiveSheet
   
ActiveSheet.Name = Format(DateSerial(Year(ay), Month(ay), Day(ay)), "dd.mm.yy")

Next
End Sub