Soru Sayfayı Sayfa Adı ile Kaydetme

bulentkars

Altın Üye
Katılım
5 Ağustos 2005
Mesajlar
659
Excel Vers. ve Dili
2003 TR
Arkadaşlar Günaydın,

Aşağıdaki kodu çalıştırdığım zaman çalışma kitabındaki tüm sayfaları ayrı ayrı kitap halinde kaydediyor. ben sadece sayfa adı "YENIAYHESAP" olan sayfayı kaydetmesini ve kaydederken aynı isimden varsa sormadan üzerine yazmasını kaydetmesini istiyorum. yardımcı olabilirseniz sevinirim. şimdiden teşekkürler


Kod:
Sub SayfaKaydet()
Sheets("YENIAYHSP").Select


Application.ScreenUpdating = True
    Dim sayfa As Worksheet
    For Each sayfa In Worksheets
        sayfa.Copy
        ActiveWorkbook.SaveAs "O:\Ortak\Finans\PLS MAİL\" & sayfa.Name & ".xlsx"
        ActiveWorkbook.Close False
    Next sayfa
    Application.ScreenUpdating = False
End Sub
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Deneyiniz.
Kod:
Sub SayfaKaydet()
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
        Sheets("YENIAYHSP").Copy
        ActiveWorkbook.SaveAs "O:\Ortak\Finans\PLS MAİL\YENIAYHSP.xlsx"
        ActiveWorkbook.Close False
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
End Sub
 

bulentkars

Altın Üye
Katılım
5 Ağustos 2005
Mesajlar
659
Excel Vers. ve Dili
2003 TR
Ömer Bey Merhaba,

Sayfayı kopyalıyor, kitap adı YENIAYHSP olarak açık kalıyor. kapanmıyor ve aşağıdaki hatayı veriyor

ActiveWorkbook.SaveAs "O:\Ortak\Finans\PLS MAİL\YENIAYHSP.xlsx"
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Dosya yolunu ve sayfa adını kontrol edin.

Ben aşağıdaki dosya yoluyla denediğimde herhangi bir hata yada bahsettiğiniz durumlarla karşılaşmadım.

ActiveWorkbook.SaveAs "C:\Deneme\YENIAYHSP.xlsx"
 

bulentkars

Altın Üye
Katılım
5 Ağustos 2005
Mesajlar
659
Excel Vers. ve Dili
2003 TR
Ömer,

muhtemelen sabah yanlış bir şey yapmışıtım..Bu sefer oldu. çok teşekkür edererim.
 
Üst