Hallo
Ik werd hier eerder op het forum al geholpen met een gelijkaardig probleem. Een tijdje terug kon ik a.d.h.v. een macro werkblaadjes afdrukken m.b.v. een knop. Als ik gebruikmaakte van de printknop, werden de werblaadjes afgedrukt en het voorraad werd ook afgeboekt.
Als ik nu klik op de knop, wordt het werkblad leveringsbon en factuur, 2x afgedrukt, maar wordt mijn voorraad niet meer afgeboekt. Aan de code heb ik eigenlijk niets veranderd maar toch werkt het niet meer.
Wat is er mis met de code?
Alvast bedankt voor jullie hulp!
Groeten
Ercan
Ik werd hier eerder op het forum al geholpen met een gelijkaardig probleem. Een tijdje terug kon ik a.d.h.v. een macro werkblaadjes afdrukken m.b.v. een knop. Als ik gebruikmaakte van de printknop, werden de werblaadjes afgedrukt en het voorraad werd ook afgeboekt.
Als ik nu klik op de knop, wordt het werkblad leveringsbon en factuur, 2x afgedrukt, maar wordt mijn voorraad niet meer afgeboekt. Aan de code heb ik eigenlijk niets veranderd maar toch werkt het niet meer.
Wat is er mis met de code?
Code:
Sub PrintTWB()
Sheets("Leveringsbon").Select
Range("A1:E36").Select
Selection.PrintOut Copies:=2, Collate:=True
Sheets("Factuur").Select
Range("A1:H36").Select
Selection.PrintOut Copies:=2, Collate:=True
ActiveWorkbook.Save
MsgBox "Klaar"
End Sub
Sub BoekAf()
'Nog afteboeken artikelen
For Each cl In Sheet3.Range("A15:A30")
If cl > 0 Then
iRow = Blad1.Range("A:A").Find(cl.Value, , xlValues, xlWhole, , , False).Row
Aantal = cl.Offset(0, 1).Value
TotA = Blad1.Cells(iRow, "D").Value
Blad1.Cells(iRow, "D").Value = TotA - Aantal
End If
Next
MsgBox "Klaar"
End Sub
Alvast bedankt voor jullie hulp!
Groeten
Ercan