yeni sayfa ekleme yardımı

[seyfi38]

Arkadaşlar
ben haftalık kasa defteri oluşturuyorum
fakat beni uğraştıran yeni sayfayı ekleyip bilgileri yapıştırınca Tarihin bir önceki sayfanın bir hafta sonrasını ve kasa mevcudununda bir öncekinden otamatik almasını istiyorum bunu elle yapıyorum ama çok uzun sürüyor yardımlarınızı bekliyorum
örnek dosya ektedir

 

[seyfi38]

Uzmanlar yardımlarınızı bekliyorummmm

 

[Ömer]

Merhaba,

=DOLAYLI(SAĞDAN(HÜCRE("DosyaAdı";A1);UZUNLUK(HÜCRE("DosyaAdı";A1))-MBUL("]";HÜCRE("DosyaAdı";A1);1))-1&"!H31")

İstediğiniz bu mu?

.

 

[seyfi38]

Merhaba,

=DOLAYLI(SAĞDAN(HÜCRE("DosyaAdı";A1);UZUNLUK(HÜCRE("DosyaAdı";A1))-MBUL("]";HÜCRE("DosyaAdı";A1);1))-1&"!H31")

İstediğiniz bu mu?

.

Teşekkürler Syn.: espiyonajl
isteğimi yardımınla cözdüm

 

[fedeal]

Sub fed()
For i = 2 To 52
    Sheets("1").Copy After:=Sheets(i)
    Sheets("1 (2)").Select
    Sheets("1 (2)").Name = i
    Range("D6").Select
    ActiveCell.FormulaR1C1 = "='" & i - 1 & "'!R[25]C[4]"
    Range("a1").Value = i & ".HAFTA"
    Next
End Sub

Altarnatif olarak makrolu çözüm ekte;

 

[seyfi38]

Syn Fedeal emeğine sağlık altermatifin içinde tesekkür ederim