Dim iRij, iBR As Integer
iBR = 4
If CheckBox1.Value = False Then GoTo eind1a
If Worksheets("Voorraadscherm").Range("A4") = "" Then
CheckBox1.Value = False
Else
If Application.WorksheetFunction.CountA(Range("A4:H4")) < 8 Then
MsgBox ("Niet volledig ingevuld"): Exit Sub
End If
Lr = Worksheets("Inkoopscherm").Cells(Rows.Count, 1).End(xlUp).Row + 1
For iKol = 1 To 8
Sheets("Inkoopscherm").Cells(Lr, iKol) = Sheets("Voorraadscherm").Cells(4, iKol)
Next
While Worksheets("Voorraadscherm").Cells(iBR, "A").Value <> ""
With Worksheets("Voorraadverloop").Range("A1:IV10")
Set P = .Find(Worksheets("Voorraadscherm").Cells(iBR, "A").Value, LookIn:=xlValues, lookat:=xlWhole)
If Not P Is Nothing Then
iRij = Worksheets("Voorraadverloop").Cells(P.Row, P.Column).End(xlDown).Row + 1
Worksheets("Voorraadverloop").Cells(iRij, P.Column).Value = Worksheets("Voorraadscherm").Range("A" & iBR).Value
Worksheets("Voorraadverloop").Cells(iRij, P.Column + 2).Value = Worksheets("Voorraadscherm").Range("C" & iBR).Value
Worksheets("Voorraadverloop").Cells(iRij, P.Column + 4).Value = Worksheets("Voorraadscherm").Range("E" & iBR).Value
End If
End With
GoTo eind1b
Wend
eind1b:
CheckBox1.Value = False
Sheets("Voorraadscherm").Range("A4:H4").ClearContents
eind1a:
End If
iBR = 5
If CheckBox2.Value = False Then GoTo Eind2a
If Worksheets("Voorraadscherm").Range("A5") = "" Then
CheckBox2.Value = False
Else
If Application.WorksheetFunction.CountA(Range("A5:H5")) < 8 Then
MsgBox ("Niet volledig ingevuld"): Exit Sub
End If
Lr = Worksheets("Inkoopscherm").Cells(Rows.Count, 1).End(xlUp).Row + 1
For iKol = 1 To 8
Sheets("Inkoopscherm").Cells(Lr, iKol) = Sheets("Voorraadscherm").Cells(5, iKol)
Next
While Worksheets("Voorraadscherm").Cells(iBR, "A").Value <> ""
With Worksheets("Voorraadverloop").Range("A1:IV10")
Set P = .Find(Worksheets("Voorraadscherm").Cells(iBR, "A").Value, LookIn:=xlValues, lookat:=xlWhole)
If Not P Is Nothing Then
iRij = Worksheets("Voorraadverloop").Cells(P.Row, P.Column).End(xlDown).Row + 1
Worksheets("Voorraadverloop").Cells(iRij, P.Column).Value = Worksheets("Voorraadscherm").Range("A" & iBR).Value
Worksheets("Voorraadverloop").Cells(iRij, P.Column + 2).Value = Worksheets("Voorraadscherm").Range("C" & iBR).Value
Worksheets("Voorraadverloop").Cells(iRij, P.Column + 4).Value = Worksheets("Voorraadscherm").Range("E" & iBR).Value
End If
End With
GoTo Eind2b
Wend
Eind2b:
CheckBox2.Value = False
Sheets("Voorraadscherm").Range("A5:H5").ClearContents
Eind2a:
End If
etc etc...