• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Hoe kan ik een bedrag negatief maken als het Credit is

Status
Niet open voor verdere reacties.
Y

yh1995

Gebruiker
Lid geworden
7 jul 2020
Berichten
13
Kolom A : Debit of Credit
Kolom B : altijd positieve bedragen

Ik zou graag als het Credit is dat het bedrag ernaast in Kolom B negatief wordt.

dit lijkt misschien simpel maar het lukt mij niet...
 

Bijlagen

  • CreditStreepje.xlsx
    9,1 KB · Weergaven: 42
Deze in C2:
PHP: 
=ALS(A2="Credit";B2*-1;B2)

Als je wilt dat dat direct in kolom B wordt gedaan dan is er een stukje VBA voor nodig.
 
Dit achter het werkblad:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Column = 2 And Target.Row > 1 And Target.Count = 1 Then
        If Target.Offset(, -1) = "Credit" And Target.Value > 0 Then Target.Value = Target.Value * -1
    End If
    Application.EnableEvents = True
End Sub
 
Laatst bewerkt:
Ik zei ook, achter het werkblad, niet in een module.
 
Oke, nu krijg ik negatieve getallen als ik er paar nieuwe getallen met Credit erbij voeg maar de bestaande bedragen met Credit blijven positief.
 
Klopt. Die routine reageert op het wijzigen of invullen van een cel.
bestaande gegevens worden dus pas aangepast als je ze een keer opnieuw intikt.
Als je de bestaande gegevens er ook op wilt aanpassen zal je een aparte sub moeten maken die dat ineens doet voor alle reeds aanwezige bedragen.

Bijvoorbeeld met dit achter een knop op het werkblad:
Code: 
Private Sub CommandButton1_Click()
    Application.EnableEvents = False
    For i = 2 To Cells(1).CurrentRegion.Rows.Count
        If Cells(i, 1) = "Credit" And Cells(i, 2) > 0 Then
            Cells(i, 2).Value = Cells(i, 2).Value * -1
        End If
    Next i
    Application.EnableEvents = True
End Sub

N.B.:
Code in #4 ook nog iets aangepast.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan