21
Handige tips & tools voor Excel / Re: BTW Verkoop
« Laatste bericht door Della Jordan Gepost op 06 september 2024, 17:13:56 »Ik moet wel zeggen, dit is een stuk leesbaarder.
Sub opslaanexcel()
Application.ScreenUpdating = False
Set dlgSaveFolder = Application.FileDialog(msoFileDialogFolderPicker)
With dlgSaveFolder
.Title = "Selecteer een Folder"
.AllowMultiSelect = False
If .Show <> -1 Then GoTo CancelFolderSelection
sFolderPathForSave = .SelectedItems(1)
End With
Set dlgSaveFolder = Nothing
ActiveSheet.Copy
With ActiveWorkbook
.SaveAs Filename:=sFolderPathForSave & "\ " & Range("P5").Value, FileFormat:=xlOpenXMLWorkbookMacroEnabled
.Close savechanges:=False
End With
CancelFolderSelection:
Application.ScreenUpdating = True
End Sub