Sayfayı Kaydedeceğim yeri sorsun

[sinnernekolens]

Arkadaşlar, aşağıdaki koda sayfayı nereye kaydedeceğimi sormasını istiyorum nasıl yapabilirim.

Sub save()
'
yol = ThisWorkbook.Path
ad = Format(Range("M2").Value, "yyyy-mm-dd-hh-mm") & " SPECIAL CREW LIST FOR CUSTOM "
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Special crew list for custom").Copy
If Val(Application.Version) > 11 Then
ActiveWorkbook.SaveAs Filename:=yol & "\" & ad & ".xls", FileFormat:=xlExcel8
Else
ActiveWorkbook.SaveAs Filename:=yol & "\" & ad & ".xls"
End If
ActiveWorkbook.Close True
Application.ScreenUpdating = True
End Sub

 

[Muzaffer Ali]

Aşağıdaki kodları deneyin

Sub save()
'
yol = ThisWorkbook.Path
ad = Format(Range("M2").Value, "yyyy-mm-dd-hh-mm") & " SPECIAL CREW LIST FOR CUSTOM "
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Special crew list for custom").Copy

[B]Application.Dialogs(xlDialogSaveAs).Show[/B]

ActiveWorkbook.Close True
Application.ScreenUpdating = True
End Sub

 

[sinnernekolens]

teşekkür ederim oldu