Cel op basis van andere cel negatief maken

[davylenders123]

Ik heb een tabel met gegevens in van mijn slimme meter.
Hier wordt de afnamen en de injectie beide weergegeven als een positief getal.
Nu zou ik graag de Injecties van zowel dag als nacht als negatief willen weergeven in kolom F
Wat is hier de beste oplossing voor ?

 

[edmoor]

Ik zou dit doen.
De eerste Sub om de bestaande informatie aan te passen en de tweede om het automatisch na het intikken te doen voor de actieve regel.
Beide achter het betreffende werkblad en de eerste start je even middels de F5 toets:

Sub InjectieNaarNegatief()
    With ListObjects("Tabel9")
        For i = 1 To .ListRows.Count
            If Left(.ListColumns("Register").DataBodyRange(i), 8) = "Injectie" Then
                .ListColumns("Volume").DataBodyRange(i) = .ListColumns("Volume").DataBodyRange(i) * -1
            End If
        Next i
    End With
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 6 And Target.Count = 1 Then
        If Left(Target.Offset(, -1), 8) = "Injectie" Then
            Application.EnableEvents = False
            Target.Value = Target.Value * -1
            Application.EnableEvents = True
        End If
    End If
End Sub

 

[emields]

of zo met een extra kolom

 

[davylenders123]

Beide bedankt voor weeral jullie snelle oplossing

 

[emields]

Als er verder geen vragen zijn vergeet dan niet de vraag als opgelost te stellen in uw eerste post.