Martijn1964
Gebruiker
- Lid geworden
- 18 jan 2020
- Berichten
- 5
Beste,
In een workbook onderstaande opdracht achter een knop gemaakt, om bestand op een bepaalde locatie met bepaalde naam op te slaan:
Private Sub CommandButton2_Click()
'
' Bestand opslaan als
'
Dim Bestandsnaam As String
Bestandsnaam = CStr(Range("H42").Value) & CStr(Range("I10").Value) & " " & CStr(Range("AM11").Value) & " " & CStr(Range("X10").Value) & " " & CStr(Range("AM10").Value) & ".xlsm"
ThisWorkbook.SaveAs Bestandsnaam
Nu overgegaan naar versie 2016 en werkt deze knop niet meer. Krijg fout melding.
fout opsporing geeft aan dat het in de laatste regel zit!!!
Wat moet er aangepast worden om dit weer te laten werken.
In een workbook onderstaande opdracht achter een knop gemaakt, om bestand op een bepaalde locatie met bepaalde naam op te slaan:
Private Sub CommandButton2_Click()
'
' Bestand opslaan als
'
Dim Bestandsnaam As String
Bestandsnaam = CStr(Range("H42").Value) & CStr(Range("I10").Value) & " " & CStr(Range("AM11").Value) & " " & CStr(Range("X10").Value) & " " & CStr(Range("AM10").Value) & ".xlsm"
ThisWorkbook.SaveAs Bestandsnaam
Nu overgegaan naar versie 2016 en werkt deze knop niet meer. Krijg fout melding.
fout opsporing geeft aan dat het in de laatste regel zit!!!
Wat moet er aangepast worden om dit weer te laten werken.