Btw uit een bedrag halen in éénzelfde cel via VBA

[agrashh]

Ik moest een nieuwe topic starten van spaarie dus hier ben ik

Ik ben bezig met een factuur op te stellen en ik zou graag in een cel een bedrag intypen waarna die cel automatisch de btw eruit haalt.

De formule om btw van iets af te trekken= bedrag x 100 /121
Ik typ dus bv '500' in die cel waarna die cel automatisch verandert naar '413,22'


Geen idee hoe VBA in elkaar zit, maar ik heb een testversie geupload en het zou voor cel f26 zijn of is het beter dan ik mijn "echte" factuur upload?

 

[Warme bakkertje]

Zet onderstaande in de bladmodule van je bestand.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$F$26" Then
        Application.EnableEvents = False
        aTarget.Value = Target.Value / 1.21
    End If
    Application.EnableEvents = True
End Sub

 

[agrashh]

Hmm, het werkt precies niet tenzij ik iets verkeerds heb gedaan:

Wat ik wel erbij heb vergeten te vermelden is dat het voor de cellen f25 tem f49 van toepassing zou zijn.

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("F25:F49")) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = Target.Value / 1.21
    End If
    Application.EnableEvents = True
End Sub

 

[agrashh]

Bedankt voor de snelle hulp, die laatste heeft het gedaan.
Moest merksem geen 100 km van mijn huis zijn, ging ik wel eens een broodje bij je halen :thumb:

 

[agrashh]

Oei, ik heb te vroeg victorie gekraait.

Daarstraks maakte ik nog eens een nepfactuur en alles werkte naar behoren, maar toen ik daarna de bedragen delete kreeg ik een soort van foutmelding en in de programmacode stond "Target.Value = Target.Value / 1.21" in geel aangeduid. Ik heb dan de hele boel nog eens gecopy/paste, maar nu werkt die niet meer

 

[Warme bakkertje]

Draai eerst eens deze

Sub reset()
    Application.EnableEvents = True
End Sub

En vervang dan de andere code door deze

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("F25:F49")) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = Target.Value / 1.21
    End If
    Application.EnableEvents = True
End Sub

 

[agrashh]

Wat bedoelde u met "Draai eerst eens deze".
Ik heb de eerste code gekopieerd in de programmacode, opgeslaan, naar excel gegaan, terug naar de programmacode en daarna de 2de code gekopieerd en daarna ook opgeslaan, maar het resultaat blijft hetzelfde.


Ik heb ook al 2 maal deze foutmelding gekregen. Mag ik die macro beveiliging op "laag" zetten?

 

[ExcelAmateur]

agrashh,

De code van Warme bakkertje voor je in de file geplaatst.

 

[Warme bakkertje]

Zet je cursor ergens in de resetcode en druk op F5. Je zal niets zien gebeuren, maar probeer daarna eens terug cijfers in te brengen op je factuur.
Als je enkel betrouwbare bestanden met macro's gebruikt mag je de macrobeveiliging op laag zetten, anders opgelet.

 

[agrashh]

Zet je cursor ergens in de resetcode en druk op F5. Je zal niets zien gebeuren, maar probeer daarna eens terug cijfers in te brengen op je factuur.

Dit had ik idd niet gedaan, maar nu werkt het.

Hopelijk blijft ie nu werken