Sub Kaydet()
Dim kitapAdi As String
Dim dosyaAdi As String
kitapAdi = Range("A1").Value
dosyaAdi = ThisWorkbook.Path & "\" & kitapAdi & ".xlsx"
ActiveWorkbook.SaveAs dosyaAdi, FileFormat:=xlOpenXMLWorkbook
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.