Robert Smidt
Gebruiker
- Lid geworden
- 26 mei 2009
- Berichten
- 901
Beste Helpmij'ers,
Ik ben op zoek naar een vba-code die een berekening maakt in werkblad 'Uitgaven' en de berekeningsgegevens genereert vanuit een ander werkblad (Persoonlijke instelling).
Wanneer ik in kolom I (factuurbedrag) een willekeurig bedrag zet het systeem eerst kijkt/zoekt onder categorie (in dit geval "Accountantskosten") deze in werkblad (Persoonlijke instelling) in kolom C welke gegevens in die regel vermeld staan. Het betreft hier een percentage zakelijk en vrijgesteld.
Stel de accountantskosten zijn €1.000 (kolom I), dan moet de btw berekend worden (zie werkblad: Persoonlijke instelling) over: 50% van €1.000 = €500. Van die €500 is 20% vrijgesteld, dus 80% niet vrijgesteld, de berekening is dan 80% van €500 = €450 waar tot slot 21% btw over berekend moet worden. In kolom K komt dan de uitkomst van: €450 / 121 * 21% = €78,10 te staan.
Het gaat dus alleen om de bedragen hierboven in het rood die uit het systeem gehaald moeten worden vanuit werkblad Persoonlijke instellingBekijk bijlage Testberekening.xlsm.
In het VBA-project onder "Blad 8 (uitgaven) staat inmiddels een rekenmodule voorafgaand aan (---->)
Alvast heel erg bedankt voor het meedenken.
Robert
Ik ben op zoek naar een vba-code die een berekening maakt in werkblad 'Uitgaven' en de berekeningsgegevens genereert vanuit een ander werkblad (Persoonlijke instelling).
Wanneer ik in kolom I (factuurbedrag) een willekeurig bedrag zet het systeem eerst kijkt/zoekt onder categorie (in dit geval "Accountantskosten") deze in werkblad (Persoonlijke instelling) in kolom C welke gegevens in die regel vermeld staan. Het betreft hier een percentage zakelijk en vrijgesteld.
Stel de accountantskosten zijn €1.000 (kolom I), dan moet de btw berekend worden (zie werkblad: Persoonlijke instelling) over: 50% van €1.000 = €500. Van die €500 is 20% vrijgesteld, dus 80% niet vrijgesteld, de berekening is dan 80% van €500 = €450 waar tot slot 21% btw over berekend moet worden. In kolom K komt dan de uitkomst van: €450 / 121 * 21% = €78,10 te staan.
Code:
Range("K" & Target.Row) = ((((Range("I" & Target.Row)[COLOR="#FF0000"] * 50%) *(100%-20%))[/COLOR] / [Btwhoogformule].Value) * (100 * (Range("H" & Target.Row))))
Het gaat dus alleen om de bedragen hierboven in het rood die uit het systeem gehaald moeten worden vanuit werkblad Persoonlijke instellingBekijk bijlage Testberekening.xlsm.
In het VBA-project onder "Blad 8 (uitgaven) staat inmiddels een rekenmodule voorafgaand aan (---->)
Alvast heel erg bedankt voor het meedenken.
Robert