kitap adını bir hücreden alma hak.

[sefa044]

slm dostlar.bir excel çalışma kitabım var.ben bu kitabın adını bir hücreden aldırmak istiyorum. mesela sayfa1 deki a4 hücresindeki değeri dosya adı olarak alsın istiyorum. tşk.

 

[levo26]

Merhaba,
Aşağıdaki kod işinize yarayabilir..

Sub MySaveAs()
FileSaveAs = Application.GetSaveAsFilename([a4], "Excel dosyası,*.xls")
If FileSaveAs <> False Then ThisWorkbook.SaveAs Filename:=FileSaveAs
End Sub

 

[sefa044]

çalışmıyor hocam

 

[Muzaffer Ali]

Aşağıdaki kodu deneyin.

Sub Kaydet()
    Dim DosyaAdi As String
    DosyaAdi = ThisWorkbook.Path & "\" & [a4] & ".xls"
    If Dir(DosyaAdi) = "" Then
        ThisWorkbook.SaveAs Filename:=DosyaAdi
    Else
        MsgBox [a4] & " isminde bir dosya zaten var."
    End If
End Sub

 

[levo26]

çalışmıyor hocam

Merhaba,

Kodu denedim çalışıyor..

Örnek dosya ektedir.

http://dosya.co/tp847o0fvbq1/test.xlsm.html

 

[sefa044]

Merhaba,

Kodu denedim çalışıyor..

Örnek dosya ektedir.

http://dosya.co/tp847o0fvbq1/test.xlsm.html

bu çalıştı.teşekkürler

 

[levo26]

bu çalıştı.teşekkürler

Önceki verdiğim kod ile ayni... Değişen bir şey yok. İyi çalışmalar.