farklı kaydet makrousu

[CaSpi]

Arkadaşlar Sayfa4-ü A5 hücresine girilen deyer adında belirtilen klasöre farklı kaydet makrousunu nasıl düzenleriz? (Kaydet dediyimizde yalnız o sayfanı A5 hücresinde bulunun deyer adında)

 

[fedeal]

Sub frkl()
b = Sheets("sayfa4").Range("a5").Value
ChDir "C:\Documents and Settings\Gerekli Xp\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Gerekli Xp\Desktop\ " & b & ".xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
End Sub
kırmızı yazan yere kaydeceginiz klasörün veri yolunu belirtin sayfa4 a5 hücresinde yazan isimle kaydedecektir.

 

[CaSpi]

Kardeş teşekkürler. Yalnız Sadece O sayfani kayd etmesini saglayabilirmiyiz yani (Sayfa4) diyer sayfalarda çok önemli olan bilgiler var onların da kaydedilmememsi lazım.

 

[halit3]

aşağıdaki linke bakınız

http://www.excel.web.tr/f14/klasor-ve-dosya-olusturma-secenekleri-t68040.html

 

[CaSpi]

Halit bey verdiyiniz link de rar indiremiyoum gerekli izin yok diyor.

 

[halit3]

indiriliyor

http://www.excel.web.tr/f14/klasor-ve-dosya-olusturma-secenekleri-t68040.html

 

[CaSpi]

Giriş yapmadınız yada bu sayfayı görmek için yetkili değilsiniz. Bunun bazı sebepleri olabilir:
Giriş yapmadınız. Lütfen sayfanın sonundaki formu doldurup giriş yapın.
Bu sayfaya erişmek için yeterli yetkiniz yok.
Eğerki kullanıcı ayarlarınızda bir kısıtlama görüyorsanız, site yöneticisi hesabınızı kısıtlamış olabilir yada hesabınız aktivasyon bekliyor.

yukaridaki uyarı ile karşılaşyorum. Giriş papıyorum yine aynen sorun devam.

 

[CaSpi]

xls indirdim yalnız yukarıda verilen kodlara ekleyemedim. Sayfa4 ü A5 hücresindeki deyer altında farklı kaydetmesini?