İsmini Belirleyip Kitap Kaydetme isimli içerikte, Excel dosyanızın ismini belirleyerek kaydetmenizi sağlayan bir Hazır Makro Kodu yer almaktadır.
Hazır Kodlar
VBA:
Sub KitapKaydet()
Dim kitapIsmi As String
kitapIsmi = InputBox("Kaydetmek istediğiniz dosya adını girin:", "Dosya Kaydet")
If kitapIsmi <> "" Then
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & kitapIsmi & ".xlsx"
MsgBox "Dosya " & kitapIsmi & " ismiyle kaydedildi.", vbInformation
Else
MsgBox "Dosya ismi belirtilmedi. İşlem iptal edildi.", vbExclamation
End If
End SubAçıklama
Bu kod, kullanıcıdan bir dosya ismi alır ve bu isimle Excel dosyasını kaydeder. Kullanıcı, bir dosya adı girmezse, işlem iptal edilir ve bir uyarı mesajı gösterilir. Kaydedilen dosya, mevcut dosyanın bulunduğu dizinde oluşturulur.Kullanım
- Excel'de VBA Editor (Alt + F11) penceresini açın.
- Bir modül ekleyin ve yukarıdaki kodu yapıştırın.
- Kodu çalıştırarak dosya ismini belirleyin ve dosyanızı kaydedin.