çalışma kitabı içinde toplu düzenleme

[mayagul]

sayfa ekleyeek düzenlediğim çalışma kitabında her sayfanın kenar boşluklarını tekrar düzenlemem gerekiyor ve ekle dediğim zaman alt bilgi siliniyor ama benim hepsini ayrı ayrı çıktı almam gerek ve alt bilgilerininolması gerekiyor işin içinden çıkamadım. çalıştığım dosyayı ekleyemedim boyut büyük geldi. ama çaıştığım asıl formun boş hali ekte gönderdiğim.yan yana yaklaşı 30 tane sayfa .Ekli dosyayı görüntüle 87425

 

[İhsan Tank]

çalışma kitabınıza sadece alt bilgi mi eklenmesini istiyorsunuz ve bunun her sayfada mı çıkmasınız istiyorsunuz ( yani ekle dediğinizde o sayfada otomatik olarak alt bilgiler yazışmış halini mi istiyorsunuz )

 

[kadulu]

cılgın86'lı; benim de aynı türden yardıma ihtiyacım var. Çalışma kitabımın, her sayfasında Ay'ın bir günü var ve bu sayfaların hepsine, aynı anda, üst ve alt bilgi ekleme kolaylığı var mı acaba? Teşekkür ederim.

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub AltBilgi_ÜstBilgi()
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
    With Sheets(i).PageSetup
        .LeftHeader = "üstbilgi sol"
        .CenterHeader = "üstbilgi orta"
        .RightHeader = "üstbilgi sağ"
        .LeftFooter = "altbilgi sol"
        .CenterFooter = "altbilgi orta"
        .RightFooter = "altbilgi sağ"
    End With
Next
Application.ScreenUpdating = True
End Sub

 

[kadulu]

merhaba

bu kod işinizi görür mü?

Sub AltBilgi_ÜstBilgi()
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
    With Sheets(i).PageSetup
        .LeftHeader = "üstbilgi sol"
        .CenterHeader = "üstbilgi orta"
        .RightHeader = "üstbilgi sağ"
        .LeftFooter = "altbilgi sol"
        .CenterFooter = "altbilgi orta"
        .RightFooter = "altbilgi sağ"
    End With
Next
Application.ScreenUpdating = True
End Sub

Özür dilerim, ama ben anlayamadım. Bilgim, sadece kullanıcı boyutunda. Çok teşekkür ederim.

 

[uzmanamele]

merhaba

ek dosyayı inceleyiniz.
sayfa1'de B sütununa yazacağınız bilgiler kod çalıştırıldığında sayfa1 hariç tüm sayfaların albilgi üstbilgi bölümlerine aktarılacaktır.
sayfa ayarları istediğiniz gibi olmayabilir, bunun için düzenleme yapmak gerekir.

alt+F11 ile kod sayfasını görüntüleyebilirsiniz.
sitedeki makro vba örneklerini inceleyiniz.

 

[kadulu]

merhaba

ek dosyayı inceleyiniz.
sayfa1'de B sütununa yazacağınız bilgiler kod çalıştırıldığında sayfa1 hariç tüm sayfaların albilgi üstbilgi bölümlerine aktarılacaktır.
sayfa ayarları istediğiniz gibi olmayabilir, bunun için düzenleme yapmak gerekir.

alt+F11 ile kod sayfasını görüntüleyebilirsiniz.
sitedeki makro vba örneklerini inceleyiniz.

Şimdi anlayabildim sayenizde. Çok çok teşekkür ederim. İnanamıyorum, bana 24 saat kazandırdınız. Çok teşekkür ederim. Gerçekten çok teşekkür ederim.

 

[mayagul]

evet her sayfada otomotik olarak alt bilgi olsun istiyorum sayfa eklediğimde alt bilgi kayboluyor hepsine teker teker eklemek işkence gibi ama maalesef kodalrı nasıl kullanacağımı bilmiyorum.

 

[mayagul]

yada şöyle olabilirmi baskı ön izleme dediğimizde alt bilgi kısmına girdiğimizde o kısımda neden benim kopyaladığım sayfanın alt bilgisi gelmiyor ondan başka herşey orada oluyor anlayamıyorum o kısımıa nasıl getirilir benim alt bilgim.çalıştığım formu tekrar ekliyorum.

 

[mbasaranyt]

Alt_Üst Bilgi

ekli dosyamda sayfa2 de 3 sayfa bilgi var.Sadece Sayfa2 nin ensonuna AltBilgi eklemek mümkünmü