Hücre adına göre farklı kaydet

[aydogankemal]

Merhabalar,
Hazırladığım bir dosyada yapılacak işlemler bittikten sonra bir buton atayarak, butona bastıktan sonra
Önce kaydetmesini,
Sonrada "Veri" sayfası A1 hücresinde yazan isimle D:\Teklifler klasörü içerisine yazmak istiyorum.

Örneğin Dosya adı FMT
Önce dosyayı kaydedecek,
Sonrasında Veri sayfasında A1 de yazan FMT 001-0145 adı ile D:\Teklifler klasörüne kaydedecek.
Yardımlarınız için şimdiden teşekkür ederim

 

[dEdE]

Aşağıdaki kodu yeni bir dosyada modüle yapıştırarak dener misiniz?

Sub Kaydet()
'Aşağıdaki dosya yolunu kendinize göre değiştirmelisiniz.
    ThisWorkbook.SaveAs Filename:="C:\Users\dEdE\Desktop\FMT.xlsm", FileFormat:=52
    ThisWorkbook.SaveAs Filename:="D:\Teklifler\" & Range("A1").Value & ".xlsm", FileFormat:=52
End Sub

 

[aydogankemal]

Aşağıdaki kodu yeni bir dosyada modüle yapıştırarak dener misiniz?

Sub Kaydet()
'Aşağıdaki dosya yolunu kendinize göre değiştirmelisiniz.
    ThisWorkbook.SaveAs Filename:="C:\Users\dEdE\Desktop\FMT.xlsm", FileFormat:=52
    ThisWorkbook.SaveAs Filename:="D:\Teklifler\" & Range("A1").Value & ".xlsm", FileFormat:=52
End Sub

Peki şöyle birşey yapabilir miyiz:
Excel dosyamı, işim bittikten sonra bir buton aracılığı ile pdf olarak kaydetmek istiyorum,
Dosya yolu Excel dosyasının olduğu klasör ile aynı olacak,
Dosya adı ise otomatik olarak Excel dosyasındaki K1 hücresinin adı olacak.
Şimdiden yardım eden arkadaşlara teşekkür ederim