als je het bestand open dan start het met de code uit "thisworkbook" , daar wordt gekeken of er geen maandelijkse betalingen moeten uitgevoerd worden , dit tot 4 dagen voor de huidige dag en 4 dagen na de huidige dag : een maandelijkse betaling is normaal op dezelfde dag maar kan verschillen van maand tot maand , b.v. mijn pensioen komt toe de 14de maar als de 14de in het weekend valt dan kan het al zijn dat de betaling de donderdag of de vrijdag al wordt uitgevoerd of pas de maandag de 15de of 16de...
indien er zo'n betaling moet gebeuren en ik bevestig in de msgbox dan wordt de sub procedure "verrichting_uitvoeren" aangeroepen.
zijn er geen maandelijkse betalingen dan kan je op het blad "Budget" gewoon een verrichting ingeven en uitvoeren via de de code van blad "Budget" en de commandbutton1 click die ook de procedure "verrichting_uitvoeren" aanroept.
hoop dat dit meer duidelijkheid geeft ?
dus het is volgende code die niet (meer) werkt :
Rem ga naar werkblad "Herhalend" en check op dagen die een terugkerende betaling zijn
herhalend = Sheets("Herhalend").Cells(1, 1).CurrentRegion 'alle 'herhalingen' inlezen
For i = 1 To UBound(herhalend) 'aflopen van boven naar onder
dag = DateSerial(Year(Date), Month(Date), herhalend(i, 1)) ': vandaag = herhalend(i, 1) 'dag eruit halen
If herhalend(i, 1) < 5 And Day(Date) > 23 Then
dag = WorksheetFunction.EDate(dag, 1)
End If
If herhalend(i, 1) > 5 And Day(Date) < 23 Then
dag = WorksheetFunction.EDate(dag, -1)
End If
If dag > Date - 5 And dag < Date + 5 Then 'is herhalende dag 5 dagen minder of meer dan vandaag
categorie = herhalend(i, 2) ' categorie wordt opgehaald uit het blad "herhalend"
tegenpartij = herhalend(i, 3) 'tegenpartij wordt opgehaald uit het blad "herhalend"
bedrag = herhalend(i, 4) 'bedrag wordt opgehaald uit het blad "herhalend"
soort = herhalend(i, 5) 'als soort een T is dan een betaling in de toekomst , een M dan maandelijkse betaling
Rem vul alvast de gegevens van de weerkerende verhandeling in , in de invoervelden , dit om de rij en de kolom te kunnen bepalen
Cells(3, 6) = categorie
Cells(3, 8) = tegenpartij
Cells(3, 15) = bedrag
Mvg,
Montagnard.
ps : heb nogmaals mijn bestand bijgevoegd met meer bemerkingen om het duidelijker te maken.....