iki sekmeden al, Tek sekmeye yaz

[CILEKESH]

Ekteki dosyamda yazdır butonunu oluşturmak istiyorum. Veriler iki sekmeden alınacak yan yana tek sekmeye yazılacak. Sayfa formatları bire birdir.

 

[ynmcan]

Ekteki dosyamda yazdır butonunu oluşturmak istiyorum. Veriler iki sekmeden alınacak yan yana tek sekmeye yazılacak. Sayfa formatları bire birdir.

Syn. CILEKESH;
Verileri yazdır sayfasında formüllerle birleştirdim.
Gelir ve gider sayfasında yaptığınız her değişiklik aynı anda yazdır sayfasındada değişir.
Ayrıca Yazdırma ayarlarını da ayarladım.
Her sayfada başlık ( "A2:M2" ) kısmı artı 33 satır yatay olarak yazdırılıyor.
İstediğiniz böyle birşeymi.
Ekteki dosyayı inceleyin.

 

[CILEKESH]

Syn. CILEKESH;
Verileri yazdır sayfasında formüllerle birleştirdim.
Gelir ve gider sayfasında yaptığınız her değişiklik aynı anda yazdır sayfasındada değişir.
Ayrıca Yazdırma ayarlarını da ayarladım.
Her sayfada başlık ( "A2:M2" ) kısmı artı 33 satır yatay olarak yazdırılıyor.
İstediğiniz böyle birşeymi.
Ekteki dosyayı inceleyin.

Sayın ynmcany sanırım yanlış anlaşıldım ben bu işi makro ile yapmak istiyorum, Orjinal dosyam zaten "= İlgili sekme Hücre" ile zaten formule edilmiş durumda yazdırma ayarı içinde herhangi bir isteğim yok.

Koyduğum YAZDIR butonuna verilerin makro ile aktarılmasını istiyorum.

 

[CILEKESH]

Sayın ynmcany sanırım yanlış anlaşıldım ben bu işi makro ile yapmak istiyorum, Orjinal dosyam zaten "= İlgili sekme Hücre" ile zaten formule edilmiş durumda yazdırma ayarı içinde herhangi bir isteğim yok.

Koyduğum YAZDIR butonuna verilerin makro ile aktarılmasını istiyorum.

Şu kod ile çözüme ulaştım arkadaşlar teşekkür ederim.

Sheets("Yazdır").Select
Range("a3:m4999").Select
Selection.ClearContents
Sheets("Yazdır").Range("a3:f998").Value = Sheets("Giderler").Range("a3:f998").Value
Sheets("Yazdır").Range("h3:m4999").Value = Sheets("Gelirler").Range("a3:f4999").Value
End Sub