save as(farklı kaydet)

[ipkins]

arkadaşlar benim sorum şu : daha önce formu gezerken bir dosya bulmuştum bir hücreye girilen veriyle çalışma sayfasını o veri adı altında farklı kaydediyordu o dosyayı bulamıyorum o dosya veya böyle bir kod için bana yardımcı olun :dua: :hey:

 

[Levent Menteşoğlu]

Aşağıdaki kodla farklı kaydebilirsiniz. Burada kayıt ismi "A1" hücresinden alınmaktadır. Kaydedilecek yerin yolunu kendinize göre değiştirebilirsiniz.

Sub farklıkaydet()
    ActiveWorkbook.SaveAs Filename:="C:\Belgelerim\" & [a1]
End Sub

selamlar

 

[ipkins]

teşekkür ederim sorunum çözüldü "saygılar" kodlar işe yaradı

 

[ocamsul]

Leventm Merhaba! aynı işlemi yaparken, mevcut çalışma sayfasındaki tek bir sayfayı mesela adıma açacağım bir klasör içine kaydedebileceğimiz bir kod varmı?

 

[danersin]

[vb:1:0ee51584c4] Sub Makro1()
Sheets("Sayfa1").Copy
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\ocamsul\Belgelerim\[a1]
End Sub[/vb:1:0ee51584c4]

 

[ocamsul]

danersin DENEDİM OLDU ANCAK; KAYIT YAPIYOR AMA EKRANA 1004 UYARISI GELİYOR. SAYFAYA ULAÞILAMIYOR DİYOR. AMA KAYIT YAPIYOR. ÇÜNKÜ BEN İLGİLİ UZANTIYA ocamsul ADINDA BİR ÇALIÞMA SAYFASI AÇMIÞTIM. NEDENUYARI VERİYOR?

 

[danersin]

Haklısınız bu hataya açık olmuş, denemeden doğrudan buraya yazdığım içinde hata yapmışım, kusura bakmayın. Aşağıdaki kodu deneyin, her satırın açıklamasınıda yazdım istediğiniz şekle göre uyarlayın. Yeni dosyayı kapatmamız lazım, kapatmadan 2. defa kodu çalıştırırsak açık bir dosyanın ismi ile saveas yapamayacağı için hata vermiştir.


[vb:1:6009248956]Sub Makro1()
Application.DisplayAlerts = False 'dosyanın üzerine yazayımmı diye sormamasını direk üstüne kaydetmesini sağlar
ad = [a1]
Sheets("Sayfa1").Copy ' sayfanın yeni bir workbook''a kopyasını alır
ActiveWorkbook.SaveAs Filename:="C:\Documents And Settings\ersin\Belgelerim\" & ad
Workbooks(ad).Close 'yeni oluşturulan dosyayı kapatır
End Sub [/vb:1:6009248956]

 

[gecemavisi]

Peki Arkadaşlar Save as seçeneğini nasıl iptal edebiliriz.
Saygılarımla...