Excel Üst Bilgi / Alt Bilgi Sorunu Hk.

[ByChilavert]

Merhaba

Excel çalışmamda Tekrarlayan Üst bilgi alanını (Sayfa Düzeni - Kenar Boşlukları - Özel Kenar Boşlukları - Çalışma Sayfası - Üstte Yenilenecek Satırlar) alanından seçebiliyorum. Ama aynı işlemini excelde "Altta Yenilenecek Satırlar" seçimini yapamıyorum. Benim Hem Üst Hemde Alt olmak iki farklı satırın yenilenmesini istiyorum bunu nasıl yapabilirim.

 

[Asri]

Çıkan inputbox da yinelenecek alanı $A$50:$C$50 şeklinde seçip yazıcı ön izleme yaparak kontrol ediniz.

Sub MyFooter()
    Dim xTxt As String
    Dim xAddress As String
    Dim xRg As Range
    Dim xCell As Range
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select the row you will insert repeatedly at the bottom:", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        xTxt = xTxt & xCell.Value & " "
    Next
    ActiveSheet.PageSetup.LeftFooter = xTxt
End Sub

 

[ByChilavert]

Teşekkürler. İstediğim gibi oldu.