Hallo
Ik heb een Excel-document met VBA code waarmee ik voorraad kon afboeken. Ik heb wat aanpassingen aan het document gedaan (werkbladen toegevoegd en namen gewijzigd) en nu werkt mijn code niet meer.
Als ik op de print-knop druk, op mijn pagina van factuur, moet er ook afgeboekt worden. Kan iemand mij zeggen waar het fout loopt a.u.b.?
Ik heb een Excel-document met VBA code waarmee ik voorraad kon afboeken. Ik heb wat aanpassingen aan het document gedaan (werkbladen toegevoegd en namen gewijzigd) en nu werkt mijn code niet meer.
Als ik op de print-knop druk, op mijn pagina van factuur, moet er ook afgeboekt worden. Kan iemand mij zeggen waar het fout loopt a.u.b.?
Code:
Lastrow = Voorraadlijst.Range("B99999").End(xlUp).Row + 1
For I = 2 To 10
Voorraadlijst.Cells(Lastrow, I).Value = Factuur.Range(Voorraadijst.Cells(1, I).Value).Value
Next
'Nog afteboeken artikelen
For Each cl In Factuur.Range("A15:A30")
If cl <> "" Then
iRow = Voorraadlijst.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