DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sheets("Sayfa2").PageSetup.[COLOR="Red"]LeftHeader[/COLOR] = Sheets("Sayfa1").PageSetup.[COLOR="red"]LeftHeader[/COLOR]
Sub Kod()
Application.DisplayAlerts = False
Set s1 = Sheets("Sayfa1") 'Alt-üst bilgilerin olduğu sayfa
Set s2 = Sheets("Sayfa2") 'Hedef sayfa
isim = s2.Name
s1.Copy After:=s2
Set s3 = ActiveSheet
s2.Cells.Copy s3.Cells
s2.Delete
s3.Name = isim
Application.DisplayAlerts = True
End Sub
Sub MultipleHeader()
ActiveSheet.PageSetup.CenterHeader = Sheets("esas").PageSetup.CenterHeader
ActiveSheet.PageSetup.RightHeaderPicture.Filename = Sheets("esas").PageSetup.RightHeaderPicture.Filename
ActiveSheet.PageSetup.RightHeader = "&G"
End Sub