Tüm ayarları diğer çalışma sayfalarına aktarma

[alves]

ustalar merhaba ;

site çok işime yarıyor bunu için teşekkür ederim herkese . özellikle kurucularına

benim yine söyle bi sorunum oluştu. bir excel sayfasında 15-20 sayfa arasında çalışma kitabım var bunların hepsi birbiriyle aynı fakat bi tanesini hazırlıyorum diğerlerine kopyalıyorum. biçimlendirmeden renkleri satır sutun genişliklerini aynı yapıyorum. ancak yazdırma ayarları ekran büyüklüğü v.s. özelliklerine aynı biçimlendir özelliği gibi kısa yoldan yapabilirmiyim.

yardımlarınız için teşekkür ederim..

 

[petrolcumurat]

kopyalamayı nasıl yapıyorsunuz? sheet üzerine sağ tıklayıp taşı veya kopyala seçeneğinden seçtikten sonra açılan pencerede verinizi taşımak istediğiniz kitabı ve taşımak istediğiniz sheet secerek altta bulunan kopyala seçeneği işaretli olarakmı taşıyorsunuz?

 

[Emir Hüseyin Çoban]

. . .

Sub kod_bir()
aa = ActiveSheet.Name
bb = Sheets.Count
Application.ScreenUpdating = False
On Error Resume Next

For i = 1 To bb
Sheets(i).Select
ActiveWindow.Zoom = 150
ActiveSheet.PageSetup.PrintArea = "A1:A10"
Next i

Sheets(aa).Select
Application.ScreenUpdating = True
MsgBox " B İ T T İ "
End Sub

. . .