Soru 2 Sayfayı Kopyalayıp Kitap olarak kaydetme

[bulentkars]

Arkadaşlar Merhaba,

Aşağıdaki Kod ile AH-TÜM-ŞUBELER sayfasını kopyalıyorum, "C:\Şahin\Mail\AH_TÜM_ŞUBELER.xlsx" olarak kaydedidiyorum, buna bir sayafa daha ilave etmek istiyorum, yardımcı olabailirseniz çok sevinirim. Şimdiden Teşekkürler,

Kopyapalancak sayfalar
AH-TÜM-ŞUBELER
Palet

2 sayfa kopyalanacak aynı şekilde kitap olarak kaydedecek. aşağıdaki kodu 2 sayfaya göre yapılacak.



Sub Sayfa_Kopyala()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("AH-TÜM-ŞUBELER").Select

Sheets("AH-TÜM-ŞUBELER").Copy
ActiveWorkbook.SaveAs "C:\Şahin\Mail\AH_TÜM_ŞUBELER.xlsx"

ActiveWorkbook.Close False
Sheets("Mail").Select

End Sub

 

[veyselemre]

Sub Sayfa_Kopyala()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
 
    Sheets(Array("AH-TÜM-ŞUBELER", "Palet")).Copy
    ActiveWorkbook.SaveAs "C:\Şahin\Mail\AH_TÜM_ŞUBELER.xlsx"

    ActiveWorkbook.Close False
 
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

 

[bulentkars]

Veysel Emre Bey,
Çok teşekkür ederim. istediğim gibi olmuş ancak üzeirne yazarken palet sayfasının verilerini güncellemiyor, makro çalışmadan önce "C:\Şahin\Mail\AH_TÜM_ŞUBELER.xlsx" dosyasını silip çalıştırdığımızda doğru veriyi aktarıyor..

 

[bulentkars]

Merhaba,

Kodun Başına Kill "C:\Şahin\Mail\AH_TÜM_ŞUBELER.xlsx" bu satırı yazınca oldu. çok teşekkür ederim. Emeğinize sağlık