Voorraadlijst afboeken

Status
Niet open voor verdere reacties.

Erc

Gebruiker
Lid geworden
30 jul 2014
Berichten
116
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.?

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


afboeken.png
 
Vervang Voorraadlijst eens door Blad1 in je macro, dan werkt ie misschien wel
 
Dag JeanPaul

Dit is de oorspronkelijke code die ik van u had gekregen. Ik heb "sheet1" vervangen door "Factuur".

Hiermee werkt het ook niet in mijn aangepaste versie:

Code:
Lastrow = Blad2.Range("B99999").End(xlUp).Row + 1
For I = 2 To 10
Blad2.Cells(Lastrow, I).Value = Factuur.Range(Blad2.Cells(1, I).Value).Value
Next
'Nog afteboeken artikelen
For Each cl In Factuur.Range("A16:A30")
If cl <> "" 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
 

Bijlagen

  • test_nog af te boeken.xlsm
    67,7 KB · Weergaven: 22
Code:
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
 
Dag JeanPaul

Het is gelukt, hartelijk dank!

Groeten
Ercan Soylu
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan