alt-bilgi ve üst-bilgiyi başka sayfaya taşıma

[tamer42]

Merhaba,

Bir excel sayfasında yer alan alt-bilgi ve üst-bilgiyi diğer sayfaya aynen kopyalamının (taşıma) pratik bir yolu var mıdır?

Şimdiden Teşekkürler,

iyi çalışmalar.

 

[ÖmerBey]

Merhaba,
Makro ile şu şekilde bir çözüm olabilir:

Sheets("Sayfa2").PageSetup.[COLOR="Red"]LeftHeader[/COLOR] = Sheets("Sayfa1").PageSetup.[COLOR="red"]LeftHeader[/COLOR]

Üst bilgiler:
LeftHeader
CenterHeader
RightHeader

Alt bilgiler:
LeftFooter
CenterFooter
RightFooter

Deneme üzerine alternatif olarak: Kaynak sayfada makro kaydet dedikten sonra alt-üst bilgiye girip değişiklik yapmadan bile kaydettiğimizde ActiveSheet için kod üretiliyor. Sonra yeni sayfaya gidip kodu çalıştırınız.

 

[tamer42]

Teşekkürler,
Yalnız üst bilgi de resim olduğu zaman; resim gelmiyor....

iyi haftasonları.....

 

[ÖmerBey]

Tekrar merhaba,
Üst bilgiyi kopyalayamıyorsak sayfayı kopyalarız mantığıyla şöyle bir çözüm aklıma geldi:

• Alt-üst bilginin olduğu sayfanın kopyasını oluştur,
• Diğer sayfadaki verileri yeni sayfaya kopyala,
• Eski sayfayı sil,

mantığında çalışıyor, belki işinizi görür.

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

İyi çalışmalar...

 

[alicimri]

esas adlı sayfaya alınan resim dosyasının mevcut, adı ve yolunun değişmememmiş olması gerekiyor.

Sub MultipleHeader()
ActiveSheet.PageSetup.CenterHeader = Sheets("esas").PageSetup.CenterHeader
    ActiveSheet.PageSetup.RightHeaderPicture.Filename = Sheets("esas").PageSetup.RightHeaderPicture.Filename
    ActiveSheet.PageSetup.RightHeader = "&G"
End Sub