Sziasztok!

Érdeklődnék, hogyan lehetne "Mentés máskánt" panelt rögtön a mentésre kijelölt mappára állítani, hogy ne kelljen a felhasználónak oda vándorolnia.

Sub mentés()
Dim fldlg As FileDialog
Set fldlg = Application.FileDialog(msoFileDialogSaveAs)
With fldlg
.Title = "Mentés másként"
.InitialFileName = Date & "-" & Range("a20")
If Application.Version = "14.0" Then
.FilterIndex = 2
ElseIf Application.Version = "11.0" Then
.FilterIndex = 4
ElseIf Application.Version = "12.0" Then
.FilterIndex = 2
End If
End With
rv = fldlg.Show
If rv Then
ActiveWorkbook.SaveAs fldlg.SelectedItems(1)
End If

End Sub

Ez így müxik, de mindíg a "Dokumentum" könyvtárra állítja magát.

Köszi.