megoldást keresek erre a problémára
-
Storey #2375 Sziasztok!
Egy makró problémám lenne!
Szeretnék egy munkafüzetet makróbarát munkafüzetként elmenteni, de sajnos hiába állítom be, csak sima excel sablonként meni el.
Nem tudtam rájönni, hogy mi a probléma.
Hátha valaki tud segíteni.
Itt a makróm:
Sub Mentés_Másként()
Dim fldlg As FileDialog
Set fldlg = Application.FileDialog(msoFileDialogSaveAs)
With fldlg
.Title = "Mentés másként"
.InitialFileName = "A mentett dokumentum neve" & Range("e4") & " " & Range("g4")
End With
rv = fldlg.Show
If rv Then
ActiveWorkbook.SaveAs fldlg.SelectedItems(1), FileFormat:=xlOpenXMLWorkbookMacroEnabled
End If
Application.CutCopyMode = False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Előre is köszi!
Utoljára szerkesztette: Storey, 2018.07.09. 14:13:20