Makro ile Rapor Yazdırma

[SeviLmeyen]

Selamlar iyi çalışmalar.

Ekte bir örnek dosya gönderiyorum bu örnek dosyada mevcut makro var ama çalışmıyor aşağıdaki örnekteki gibi bir şeyler yapılabilir mi?
Saygılarımla.

1- Rapor Butonuna basıldığı zaman A1 den AJ6865 'e kadar olan Tüm başlıkları Farklı bir Excel sayfasına aktarım yapsın ve bunu yaparken Sayfa Sonu ve Rapor butonu gözükmesin. 5. satırdaki başlıklar kaynak başlığı genişliği ile aynı olsun.

İndir Defter Çalışma

Dosyayı indir Defter Çalışma

dosya.co

 

[YUSUF44]

Makro kaydet yoluyla elde ettiğim aşağıdaki makro Vardiyarapor sayfasını kopyalayıp içindeki iki düğmeyi silmektedir. Bundan farklı bir şey mi istiyorsunuz?

Sub Makro1()
'
' Makro1 Makro
'

'
    Sheets("VardiyaRapor").Select
    Sheets("VardiyaRapor").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Shapes.Range(Array("Button 1")).Delete
    ActiveSheet.Shapes.Range(Array("Button 2")).Delete
End Sub

 

[SeviLmeyen]

Makro kaydet yoluyla elde ettiğim aşağıdaki makro Vardiyarapor sayfasını kopyalayıp içindeki iki düğmeyi silmektedir. Bundan farklı bir şey mi istiyorsunuz?

Sub Makro1()
'
' Makro1 Makro
'

'
    Sheets("VardiyaRapor").Select
    Sheets("VardiyaRapor").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Shapes.Range(Array("Button 1")).Delete
    ActiveSheet.Shapes.Range(Array("Button 2")).Delete
End Sub

Uygulayayım aksiyona göre geri dönüş yapayım Yusuf Bey