Opgelost berekening BTW

[sponsken]

ik heb 2 kolommen A1=prijs incl BTW ,A2=prijs ex BTW
nu wil ik dat als cel A1<>0 dat cel A2 berekend word en andersom
voor de volgende records hetzelfde
ik heb dit in VBA kunnen oplossen via een invulformulier maar probeer dit nu rechtstreeks in de worksheet te doen

If txtprijsaankoop.Text <> "" Then
Sheets("aankoop").Cells(Rows.Count, 6).End(xlUp).Offset(0).Resize(, 1) = txtprijsaankoop.Value - (txtprijsaankoop.Value / 100) * 21

End If
If Txtaankoopexbtw.Text <> "" Then
Sheets("aankoop").Cells(Rows.Count, 5).End(xlUp).Offset(0).Resize(, 1) = Txtaankoopexbtw.Value + (Txtaankoopexbtw.Value / 79) * 21

grtz
sponsken

End If

 

[peter59]

Kan je het betreffende blad eens uploaden?

 

[HSV]

.Offset(0).Resize(, 1)

Mag je verwijderen, dat doet namelijk helemaal niets anders dan.
Sheets("aankoop").Cells(Rows.Count, 6).End(xlUp) = txtprijsaankoop.Value - (txtprijsaankoop.Value / 100) * 21
(verschuiving, rijen naar onderen = 0 en breed is 1)

 

[sponsken]

hier wat ik al geprobeerd heb

 

[emields]

Wat je allemaal wil bereiken weet ik niet, maar hier een oplossing zonder uw userform

 

[sponsken]

ik wil dat als ik enkel het bedrag in de cel aankoop inbtw heb dat automatisch het bedrag in de cel aankoop exbtw wordt berekend en ingevuld of als ik enkel het bedrag aankoop exbtw heb dat het bedrag in de cel aankoop inbtw word berekend en ingevuld.
zo ook voor de volgende records.
ik heb geprobeerd met geneste ALS functies maar krijg dan een kringverwijzing

 

[jverkerk]

Zoiets?

 

[AHulpje]

Probeer het eens zo:

Private Sub txtprijsaankoop_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    'Als bedrag gewijzigd wordt dan prijs ex BTW berekenen
    Application.EnableEvents = False
    Txtaankoopexbtw = txtprijsaankoop / 1.21
    Application.EnableEvents = True
End Sub

Private Sub Txtaankoopexbtw_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    'Als bedrag gewijzigd wordt dan prijs incl. BTW berekenen
    Application.EnableEvents = False
    Me.txtprijsaankoop = 1.21 * Txtaankoopexbtw
    Application.EnableEvents = True
End Sub

En dan de resultaten toekennen aan de juiste cellen.

 

[sponsken]

zoals ik reeds gezegd heb wil ik volgende:

 

[jverkerk]

Wil je het in VBA of zonder VBA

 

[Tech8]

heb je hier iets aan?

 

[sponsken]

@ Ahulpje
waar moet ik die code in vba toevoegen?
heb geprobeerd in een module maar werkt niet

 

[AHulpje]

Toevoegen aan de code van het formulier zoals je kunt zien aan de naamgeving van de sub's.
En kijk nog eens goed naar jouw berekening van het bedrag incl. BTW:

Txtaankoopexbtw.Value + (Txtaankoopexbtw.Value / 79) * 21

Een berekening overigens die je niet meer hoeft uit te voeren als je mijn code gebruikt.

 

[sponsken]

@jverkerk
ik probeer het zonder VBA te verkrijgen

 

[peter59]

Of misschien zo?

 

[jverkerk]

Of zo?

 

[AHulpje]

Hier en daar wat aangepast.

 

[jverkerk]

Met kolom verwijzingen, dan neemt hij de formule automatisch mee.

 

[sponsken]

@jverkerk
de bedoeling is wel dat deze bewerking in de tabel word uitgevoerd en niet daarboven

 

[jverkerk]

Hij werkt toch ook in de tabel, of ik heb het helemaal verkeerd begrepen.