Sayfanın tüm formatıyla istenilen miktarda Sayfa olarak Çoğaltmak

[htsumer]

Tek bir sayfaya 100 satırlık çizelge hazırladım.İçinde formüller,sayfa yapısı sığacak şekilde.Bu sayfadan tek tek çoğaltıp yapısını ayarlamak (sayfa yapıs&#305 çok uzun sürüyor.6000 satırlık/100=60 sayfa.
Tek sayfayı çoğalttığımda sayfa yapısını tekrar düzenlemem gerekiyor.Birde sayfada bir önceki devir toplama ait formüller var.
Bu tek sayfayı,bir makro ile tek hamlede 60 sayfa yapmalıyımki her sayfanın sayfa formatı ilk sayfa gibi olsun ve her sayfanın altındaki formüller bir önceki sayfaya göre ayarlansın.
Ana sayfanın formülü örnek olarak şu şekilde;Hücre A101'de
=TOPLA(A1:A10)

Bir sonraki çalışma sayfanın aynı hücredeki toplamı =TOPLA(A1:A100)+Sayfa1!A101
Bu şekilde devam etmeli..
=TOPLA(A1:A100)+Sayfa1!A101
=TOPLA(A1:A100)+Sayfa2!A101
=TOPLA(A1:A100)+Sayfa3!A101
.....
...
..
.

Yalnız bu örnek formül üzerine değil kurulacak makronun mantığında şu olmalı formülleri algıla bir önceki sayfanın aynı hücresinden alarak uygula.şeklinde bir işlemi yapmalı.

 

[Korhan Ayhan]

Selamlar,

Örnek dosya eklerseniz daha faydalı olacaktır.

 

[uzmanamele]

merhaba
tüm sayfalarınız aynı ise;
tüm sayfaları seçin ve tek sayfa için sayfa hazırlıyormuş gibi kenar boşlukları vs ayarların. sayfaları çözdüğünüzde hepsinin aynı formatta olduğunu göreceksiniz.

 

[htsumer]

Örnek kodu uyarlayabilirim.Dosya işyerime ait düzenlemem uzun sürer

 

[htsumer]

merhaba
tüm sayfalarınız aynı ise;
tüm sayfaları seçin ve tek sayfa için sayfa hazırlıyormuş gibi kenar boşlukları vs ayarların. sayfaları çözdüğünüzde hepsinin aynı formatta olduğunu göreceksiniz.

Öyle denedim ama sayfa yapısı olmuyor..artı formüller aynen geliyor..Tek tek 60 sayfayı bir öncekine uyarlamam gerek..Bu tek seferlik çalışma olsa gam yemicem..Ama her üründe aynı işlemi yapıyorum.

 

[İdris SERDAR]

Aşağıdaki kodu deneyin.

"Sheet1" yerine sayfa adını "aa" kullanırsanız "aa(2)", "aa(3)"... gibi devam eder.



Sub sayfakopya()
Dim x As Integer

x = InputBox("Kaç sayfa kopyalanmasını istiyorsunuz?")
For numtimes = 1 To x

ActiveWorkbook.Sheets("Sheet1").Copy _
After:=ActiveWorkbook.Sheets("Sheet1")
Next
End Sub


.

 

[htsumer]

Sayın Yurttaş,

Sayfa kopyalamaya ilişkin kod için teşekkür ederim.Format konusunda birşeyler deniyorum.Sanırım buda idare eder..