Soru Sayfayı Sayfa Adı ile Kaydetme

[bulentkars]

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

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]

Merhaba,

Deneyiniz.

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]

Ö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]

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]

Ömer,

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