Goedemorgen,
Mijn naam is Bart en ik heb een klein probleempje met VBA en Excel. ik hoop dat jullie mij op weg kunnen helpen.
Ik heb een excel bestand voor mijn facturatie waarbij ik via VBA een aantal taken uitvoer.
Op zich nooit een probleem echter heb ik een nieuwe laptop met Windows 10 Pro en Excel 2016. (vorige laptop draaide op XP en Excel 2010)
Nu heb ik het probleem dat het factuurnummer niet wordt opgehoogd maar op 1 wordt gezet. (bij het opslaan van het nummer 1364 zou het dus 1365 moeten worden maar de waarde wordt 1)
En dat in plaats van het aanmaken van een PDF wordt het geopend in Word.
Ik heb deze VBA code staan:
Heeft iemand een suggestie hoe ik dit op kan lossen? Ik heb eerlijk gezegd nul ervaring met VBA was al erg blij dat ik het destijds met knippen en plakken en heel veel tijd voor elkaar heb gekregen.
Mijn naam is Bart en ik heb een klein probleempje met VBA en Excel. ik hoop dat jullie mij op weg kunnen helpen.
Ik heb een excel bestand voor mijn facturatie waarbij ik via VBA een aantal taken uitvoer.
- ophogen factuurnummer
- 1 werkblad opslaan als PDF
- 1 werkblad opslaan als csv file
Op zich nooit een probleem echter heb ik een nieuwe laptop met Windows 10 Pro en Excel 2016. (vorige laptop draaide op XP en Excel 2010)
Nu heb ik het probleem dat het factuurnummer niet wordt opgehoogd maar op 1 wordt gezet. (bij het opslaan van het nummer 1364 zou het dus 1365 moeten worden maar de waarde wordt 1)
En dat in plaats van het aanmaken van een PDF wordt het geopend in Word.
Ik heb deze VBA code staan:
Code:
Sub VolgFact()
ActiveWorkbook.Worksheets("invoerblad").Range("I9").Value = Range("I9").Value + 1
ActiveWorkbook.Worksheets("invoerblad").Range("C1").ClearContents
ActiveWorkbook.Worksheets("invoerblad").Range("C2").ClearContents
ActiveWorkbook.Worksheets("invoerblad").Range("F8").ClearContents
ActiveWorkbook.Worksheets("invoerblad").Range("D11:D13").ClearContents
ActiveWorkbook.Worksheets("invoerblad").Range("A17:B23").ClearContents
ActiveWorkbook.Worksheets("invoerblad").Range("F17:L23").ClearContents
End Sub
Public Sub OpslBestand()
ActiveWorkbook.Worksheets("invoerblad").Unprotect Password:="***"
ActiveWorkbook.Worksheets("exportU4").Unprotect Password:="***"
'bewaar sheet factuur als pdf
myFactuur = ActiveWorkbook.Worksheets("invoerblad").Cells("10", "H")
myDebiteur = ActiveWorkbook.Worksheets("invoerblad").Cells("1", "C")
With Sheets("factuur")
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=myFactuur + "_" + myDebiteur + ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End With
'bewaar sheet exportU4 als csv
ActiveWorkbook.Worksheets("exportU4").Copy
With ActiveWorkbook
.SaveAs Filename:=myFactuur + ".csv", FileFormat:=xlCSV
.Close False
End With
VolgFact
ActiveWorkbook.Worksheets("invoerblad").Protect Password:="***"
ActiveWorkbook.Worksheets("exportu4").Protect Password:="***"
With ActiveWorkbook
.Save
End With
End SubHeeft iemand een suggestie hoe ik dit op kan lossen? Ik heb eerlijk gezegd nul ervaring met VBA was al erg blij dat ik het destijds met knippen en plakken en heel veel tijd voor elkaar heb gekregen.
Laatst bewerkt:
