Her Sayfada Ayrı Alt Bilgi

[baydeniro]

Merhaba arkadaşlar. Excel dosyasında her sayfa için ayrı ALT BİLGİ tanımlanması mümkün mü ?

Ekteki dosyada aynı sayfada çıktı alınacak 3 sayfa bulunuyor. K sütununda sayfa numarası, L sütununda ALT BİlGİ olarak çıkması istenen veriler bulunuyor. Makro ile her sayfa için ataması yapılan veriler ALT BİLGİ haline getirilebilinir mi ?

 

[baydeniro]

Merhaba arkadaşlar. Excel dosyasında her sayfa için ayrı ALT BİLGİ tanımlanması mümkün mü ?

Ekteki dosyada aynı sayfada çıktı alınacak 3 sayfa bulunuyor. K sütununda sayfa numarası, L sütununda ALT BİlGİ olarak çıkması istenen veriler bulunuyor. Makro ile her sayfa için ataması yapılan veriler ALT BİLGİ haline getirilebilinir mi ?

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub AltBilgi()
 
    Dim i As Byte
 
    Application.ScreenUpdating = False
 
    With ActiveSheet
        For i = 1 To 3
            .PageSetup.CenterFooter = Cells(i + 1, "L")
            .PrintOut i, i
        Next i
    End With
 
    Application.ScreenUpdating = True
 
End Sub

.

 

[baydeniro]

Sayın Ömer yardımınız için çok teşekkür ederim. Bu kod print out durumunda mı Alt Bİlgiy oluşturuyor. Ekrana almıyor değil mi ?

 

[Ömer]

Evet yazdırırken işlem yapıyor.

Ekran görüntüsü için,

.PrintOut

yerine,

.PrintPreview

 

[baydeniro]

Çok teşekkürler sayın Ömer, çok işimize yarayacak bir kod. Sağlıcakla kalın.

 

[baydeniro]

sayın alican60, " i, i" kısmını silmelisin.