dosya adı a1 hücre değeri olsun

[mimola]

merhaba arkadaşlar. Ben açtığım herhangi bir excel sayfasında a1 hücresine girdiğim verinin (sayı yada metin) o dosyanın otomatik olarak ismi olsun ve öyle kaydedilsin istiyorum. Bu konuda yardımcı olursanız sevinirim. şimdiden teşekkür ederim.

 

[hamitcan]

Aşağıdaki kodu dener misiniz ?

Sub Dosya_Ac()
Yol = ActiveWorkbook.Path & "\"
dosya = ActiveWorkbook.Name
On Error GoTo hata
If Dir(Yol & [a1] & ".xls") = "" Then
    ActiveWorkbook.SaveAs Yol & [a1] & ".xls"
    Kill Yol & dosya
    MsgBox "Yeni Dosya Oluşturuldu."
End If
hata:
If Err.Number = 1004 Then MsgBox "Bu Karakterler Dosya İsmi İçin Uygun Değil"
End Sub

 

[mimola]

ilgine tşk ederim. dün yoğunluk nedeniyle giremedim. ama bu kodu çalıştırdığında sadece hata mesajını veriyor. yani bu karekterler dosya adı için uygun değil hata mesajını. yardımlarınızı bekliyorum. teşekkürler.

 

[mimola]

hamitcan kardeşim referansı a1 olarak düzeltmemişim. şimdi oldu. çok teşekkür ederim.