- Katılım
- 5 Ocak 2023
- Mesajlar
- 3
- Excel Vers. ve Dili
- 2019
Merhaba,
Elimde bir VBA kodu var. Hücreye bağlı olarak dosya ismi ile farklı kaydet yapıyor. Bu kod excel dosyasının tamamını kaydediyor. Sadece bir çalışma sayfasını kaydedecek şekilde düzenlenebilir mi ? (Sheet1)
Elimde bir VBA kodu var. Hücreye bağlı olarak dosya ismi ile farklı kaydet yapıyor. Bu kod excel dosyasının tamamını kaydediyor. Sadece bir çalışma sayfasını kaydedecek şekilde düzenlenebilir mi ? (Sheet1)
Kod:
Sub Makro1()
'
' Makro1 Makro
'
'
On Error Resume Next
Dim iResponse As Integer
iResponse = MsgBox("Dosya (" & Range("D7") & ") adı ile kaydedilecektir, Onaylıyor musunuz ? ", vbYesNo, "Farklı Kaydet")
'check to see if cancel button selected
If iResponse = vbNo Then
End If
If iResponse = vbYes Then
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\060368\Documents\" & Range("D7") & ".xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
MsgBox ("Dosya " & Range("D7") & " adı ile ilgili klasöre kaydedilmiştir. ")
'
'
'
On Error GoTo 0
End If
End Sub