Excel'de her yazdırılan sayfanın alt kısmında satırları tekrarlı olarak nasıl yazdırabilirsiniz?

Varsayılan olarak, Excel, kullanıcıların en üstteki satırları tekrar yazdırmaları için bir özellik sunar. Ancak bazı durumlarda, satırları en üstte değil de sayfaların alt kısmında tekrar yazdırmayı tercih edebilirsiniz. Bu makale size küçük püf noktaları gösterecek.

VBA kodu ile alt kısma satırları tekrarlı olarak yazdırma

VBA kodu ile alt kısma satırları tekrarlı olarak yazdırma

Belirtilen satırı her sayfanın altbilgisine eklemek için aşağıdaki VBA kodunu çalıştırabilirsiniz. Daha sonra bu satırı Excel'deki her yazdırılan sayfanın alt kısmında tekrarlı olarak yazdırabilirsiniz.

1. Microsoft Visual Basic for Application penceresini açmak için Alt + F11 tuşlarına aynı anda basın.

2. Microsoft Visual Basic for Application penceresinde, Ekle > Modül'e tıklayın. Ardından aşağıdaki VBA kodunu Modül penceresine kopyalayıp yapıştırın.

VBA Kodu: Belirtilen satırı her yazdırılan sayfanın altbilgisine ekleme

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

3. Kodu çalıştırmak için F5 tuşuna basın. Ardından bir Kutools for Excel iletişim kutusu açılacak, lütfen her yazdırılan sayfanın alt kısmında tekrar yazdırmak istediğiniz satırı seçin ve ardından Tamam düğmesine tıklayın.

Şimdi belirtilen satır içerikleri, geçerli çalışma sayfasındaki her yazdırılan sayfanın altbilgisine eklendi. Çalışma sayfasını yazdırmaya başlayabilirsiniz.

Not: Eğer seçilen içeriği tüm çalışma kitabındaki her sayfanın alt kısmında tekrar yazdırmak istiyorsanız, altbilgi işlevini uygulayarak içeriği tüm sayfaların altbilgisine ekleyebilirsiniz.