Sayfa alt ve Üst Bilgi Girişi

[ormann]

Merhabalar;Sayfadan baskı ön izlemeyi seçip ayarlar kısmından ve özel alt bilgi bölümünü seçtiğimiz zaman sol kısım-orta kısm ve sağ kısım diye bir bölüm geliyor.Bu bölümlere sayfadaki hücrelerden veri girişi alabilirmiyiz?Yada buralara girmeden başka bir yöntemle yapabilirmiyiz?

 

[asi_kral]

Merhabalar;Sayfadan baskı ön izlemeyi seçip ayarlar kısmından ve özel alt bilgi bölümünü seçtiğimiz zaman sol kısım-orta kısm ve sağ kısım diye bir bölüm geliyor.Bu bölümlere sayfadaki hücrelerden veri girişi alabilirmiyiz?Yada buralara girmeden başka bir yöntemle yapabilirmiyiz?

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub alt_bilgi_1967()
'Konu       :   Alt Bilgiye Hücreden Bilgi
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
With ActiveSheet.PageSetup
.LeftHeader = Range("A1") 'Sol taraf
.CenterHeader = Range("B1") 'Orta Taraf
.RightHeader = Range("C1") 'Sağ taraf
End With
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

 

[ormann]

Mehmet bey çok teşekkür ederim.Yalnız vermiş olduğunuz kod sayfanın alt kısmına değilde üst kısmına aktarılıyor.Ben kodda düzenleme yaptım.Fakat ikinci bir satıra aktarma olmuyor.

Option Explicit
Sub alt_bilgi_1967()
'Konu       :   Alt Bilgiye Hücreden Bilgi
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
With ActiveSheet.PageSetup
.LeftFooter = Range("a1") 'Sol taraf
.LeftFooter = Range("a2") 'Sol taraf
.CenterFooter = Range("b1") 'Orta Taraf
.CenterFooter = Range("b2") 'Orta Taraf
.RightFooter = Range("c1") 'Sağ taraf
.RightFooter = Range("c2") 'Sağ taraf
End With
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

 

[asi_kral]

Mehmet bey çok teşekkür ederim.Yalnız vermiş olduğunuz kod sayfanın alt kısmına değilde üst kısmına aktarılıyor.Ben kodda düzenleme yaptım.Fakat ikinci bir satıra aktarma olmuyor.

Option Explicit
Sub alt_bilgi_1967()
'Konu       :   Alt Bilgiye Hücreden Bilgi
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
With ActiveSheet.PageSetup
.LeftFooter = Range("a1") 'Sol taraf
.LeftFooter = Range("a2") 'Sol taraf
.CenterFooter = Range("b1") 'Orta Taraf
.CenterFooter = Range("b2") 'Orta Taraf
.RightFooter = Range("c1") 'Sağ taraf
.RightFooter = Range("c2") 'Sağ taraf
End With
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

Merhaba
Bu kodu dener misiniz_?

Option Explicit
Sub alt_bilgi_1967()
'Konu       :   Alt Bilgiye Hücreden Bilgi
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
With ActiveSheet.PageSetup
.LeftFooter = Range("a1") & vbLf & Range("a2") 'Sol taraf
.CenterFooter = Range("b1") & vbLf & Range("b2") 'Orta Taraf
.RightFooter = Range("c1") & vbLf & Range("c2") 'Sağ taraf
End With
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

 

[baydeniro]

Teşekkürler sayın asi kral 1967

 

[asi_kral]

Teşekkürler sayın asi kral 1967

Kolay Gelsin.

 

[ormann]

Çok teşekkür ederim .Mehmet bey

 

[asi_kral]

Çok teşekkür ederim .Mehmet bey

Kolay Gelsin.