Goedenavond allen,
Bij wijze van uitgebreid testen heb ik de afgelopen 2 dagen eens alle transacties uit mijn originele (oude) bestand ingegeven
in de recentste versie van mijn nieuw bestand. Heeft ff geduurd om al die transacties van om en bij de acht maanden in te geven
maar dit was volgens mij de enige manier om echt te testen of er nog foutjes aanwezig waren.
Op deze manier heb ik er dan toch nog enkele gevonden en aangepast.
In principe werkt de volledige code nu naar behoren en is het bestand dus 'af'.
Doch zou ik hier en daar enkele code-blokjes willen verbeteren indien mogelijk.
Zo heb ik een aantal loops met (serieus geneste) If-statements en ik vroeg me dus af of dit in sommige gevallen niet beter kan omgezet worden naar een 'select case'. Maar gezien mijn beperkte algemene kennis en het feit dat ik met 'select case' totaal geen ervaring heb en er soms best wel wat diverse voorwaarden verbonden zijn wou ik hier eens één van die code-blokjes laten zien om enerzijds te achterhalen of het al dan niet beter is er een 'select case' (of iets anders) van te maken en zo ja, hoe ik dit dan dien op te bouwen.
Een eerste blokje dat ik eventueel wil verbeteren is het volgende :
With Sheets("Rek-overzichten")
.Cells(rek, 1) = datum
.Cells(rek, 2) = tgnprt & " " & nota
If categorie = "INKOMSTEN" Then
.Cells(rek, 3) = bedrag
End If
If categorie = "SPREK's" Then
If tgnprt = "Sprek -59" Then
If bedrag > 0 Then
.Cells(rek, 6) = bedrag
.Cells(rek, 9) = bedrag
Else
.Cells(rek, 3) = bedrag * -1
.Cells(rek, 10) = bedrag * -1
End If
End If
If tgnprt = "Sprek -74" Then
If bedrag > 0 Then
.Cells(rek, 6) = bedrag
.Cells(rek, 13) = bedrag
Else
.Cells(rek, 3) = bedrag * -1
.Cells(rek, 14) = bedrag * -1
End If
End If
End If
If categorie <> "INKOMSTEN" And categorie <> "SPREK's" Then
If tgnprt = "Sparen -59" Or tgnprt = "Sparen -74" Then
.Cells(rek, 6) = bedrag
If tgnprt = "Sparen -59" Then
.Cells(rek, 9) = bedrag
Else
.Cells(rek, 13) = bedrag
End If
ElseIf tgnprt = "CM-Tsskmst" Then
.Cells(rek, 3) = bedrag
Else
.Cells(rek, 4) = bedrag
End If
If CheckBox1.Value = True Then
.Cells(rek, 5) = verschil
.Cells(rek, 13) = verschil
End If
End If
.Cells(rek, 7) = .Cells(rek - 1, 7) + .Cells(rek, 3) - (.Cells(rek, 4) + .Cells(rek, 5) + .Cells(rek, 6))
.Cells(rek, 11) = .Cells(rek - 1, 11) + .Cells(rek, 9) - .Cells(rek, 10)
.Cells(rek, 15) = .Cells(rek - 1, 15) + .Cells(rek, 13) - .Cells(rek, 14)
End With
Alvast dank op voorhand.
Groetjes,
BlackDevil