Alt bilgiyi sadece son sayfaya atsın.

[cengawer]

Merhabalar,

forumda yeniyim. Sorunumla alakalı biraz araştırma yaptım ama doğru sonuçu bulamadım. Ben sadece excel'de son sayfaya tablo içerisinde onay bölümü açmak istiyorum. altbilgi ekleyebiliyorum ama bütün sayfalarda çıkıyor. sadece en son sayfada tablo halinde 2 kutucuk çıksın istiyorum. mümkünmüdür? Şimdiden teşekkürler

 

[cengawer]

mümkün değil sanırım böyle bişey

 

[hamitcan]

Küçük bir dosya ekleyin, bir bakalım.

 

[cengawer]

Hazırladım hemen birtane. Zaten baktığınızda anlayacaksınız. Şimdiden teşekkür ederim.

 

[hamitcan]

Sayfa sınırını 20 olarak kabul ettim.

Sub SonSayfayaAltBilgi()
b = 1
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.PageSetup.CenterFooter = ""
s = 20
x = ActiveSheet.HPageBreaks.Count + 1
For i = 1 To x
ActiveSheet.PageSetup.PrintArea = Range("a" & b & ":" & "d" & s).Address
b = s
s = s + 19
If i = x Then
ActiveSheet.PageSetup.CenterFooter = "deneme"
End If
'ActiveSheet.PrintPreview
ActiveSheet.PrintOut
ActiveSheet.PageSetup.PrintArea = ""
Next
End Sub

 

[cengawer]

Çok teşekkür ederim. Demek istediğim gibi olmuş gerçekten Peki metini nasıl tablo içerisine alabilrim?

 

[hamitcan]

Peki metini nasıl tablo içerisine alabilrim?

Alt/Üst bilgi içinde yapabilecekleriniz kısıtlı; bunu biliyor olmalısınız.

 

[cengawer]

Evet, sizi bilgili gördüğüm için şansımı deneyim dedim Teşekkürler

 

[Ömer]

Merhaba,

Hamit Bey'in uyguladığı yöntemle aynı mantıkla, farklı bir yaklaşım olarak alternatif olsun.

Sub SonAltBilgi()
 
    Dim say As Integer, i As Integer, Bilgi As String
 
    say = ExecuteExcel4Macro("Get.Document(50)")
 
    Bilgi = "[COLOR=blue]Burası orta alt bilgidir[/COLOR]"[COLOR=teal] [COLOR=green]'Alt bilgiyi mavi alana yazın[/COLOR].
[/COLOR] 
    Application.ScreenUpdating = False
 
    With ActiveSheet.PageSetup
        For i = 1 To say
            .CenterFooter = ""
            If say = i Then
                .CenterFooter = Bilgi
            End If
            ActiveSheet.PrintOut i, i
        Next i
    End With
 
    Application.ScreenUpdating = True
 
End Sub

.