Hallo,
Ik heb een werkblad met onderstaande code.
Sinds ik een aantal aanpassingen heb gedaan in de plekken waar informatie vandaan gehaald moet worden, slaat Excel steeds vast.
Kan iemand zien of iets structureel fout is aan dit stukje code?
Het bestand anonimiseren is nogal lastig, vandaar dat ik die er nog niet bij heb gedaan.
Ik heb een werkblad met onderstaande code.
Sinds ik een aantal aanpassingen heb gedaan in de plekken waar informatie vandaan gehaald moet worden, slaat Excel steeds vast.
Kan iemand zien of iets structureel fout is aan dit stukje code?
Het bestand anonimiseren is nogal lastig, vandaar dat ik die er nog niet bij heb gedaan.
Code:
Sub WerkbonOpslaan()
ActiveSheet.Shapes.Range(Array("Button 420")).Select
Selection.Delete
MsgBox "Klik in het volgende dialoogvenster op Ja", vbOKOnly
Dim Naam As String
Dim Pad As String
Dim Bestandsnaam As String
Dim MsgString As String
Dim Monteur As String
Monteur = Sheets("WERKBON").Range("B7").Value
Naam = "Werkbon " & Sheets("BON").Range("F2").Value & " " & Format(Now, "yyyymmdd hh_mm")
Pad = "Q:\HFE\S&O\FGO+\Bonnen\" & Monteur & "\"
Bestandsnaam = Pad & Naam
MsgString = Naam
With CreateObject("Scripting.FileSystemObject")
If Not .FolderExists(Pad) Then .CreateFolder Pad
End With
ActiveWorkbook.SaveAs Pad & Naam, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = False
MsgBox "Als je op ok klikt zal het bestand sluiten. Open het bestand [" & MsgString & ".xlsx] daarna in de map [" & Pad & "]."
Sheets("BON").Visible = xlVeryHidden
ActiveWorkbook.Close True
End Sub