SAVE AS MAKROSU SADECE BELİRTİLEN SAYFAYI KAYDETSİN

[Korhan Ayhan]

Selamlar,

Gerçi sorunuzu Sn. abdi bey cevaplamış ama alternatif olması açısından bende hazırladığım örneği eklemek istedim.

Umarım işinize yarar.

Not: Örnek dosya içerisindeki yedek alınacak dosya adresini "C:\Belgelerim\" kısmını siz nereye yedek almak istiyorsanız kendinize göre değiştiriniz.

 

[turkanet]

sn.cost control,
çalışmanızda
ActiveSheet.Copy After:=Workbooks(Dosya2).Sheets(Sheets.Count)
satırında hata veriyor. kendi bilgisayarıma göre farklı kaydet adresini de güncelledim.
koda tekrar bakmanız mümkün mü acaba?

 

[Korhan Ayhan]

Selamlar,

Gönderdiğim dosyayı kontrol ettim bende hata vermiyor. Tekrar kontrol edermisiniz. :?

 

[turkanet]

maalesef aynı dosya bende aynı satırda hata veriyor hala. ama yeni dosya oluşturuyor, fakat isimlendirmeden bu hatayı veriyor. ben de anlamadım... :?

 

[Korhan Ayhan]

Selamlar,

Hata veren dosyayı eklermisiniz?

 

[turkanet]

sizin yolladığınız dosya üzerinde bu hatayı aldım.

 

[abdi]

Benim kodlamada da aynı sorun var dı galiba düzeltilmiş hali
[vb:1:2197bd13c8]
Sub yenisayfayedekle()
Dim i As String
If ActiveSheet.Range("a1").Value <> "" Then
i = ActiveSheet.Range("a1").Value
ActiveSheet.Select
ActiveSheet.Copy
Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:= _
"C:\yedek1\" & i & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Workbooks(i & ".xls").Activate
ActiveWorkbook.Close
ThisWorkbook.Close
Application.DisplayAlerts = True
Else: Exit Sub
End If
End Sub[/vb:1:2197bd13c8]
yalnız burda sorun aynı dosyanın üzerine kaydetmesidir yani dosya varsa bile üzerine kaydeder. tercih sizin

 

[baydeniro]

Paylaşım için teşekkürler