Mutaties

[MrSvennie]

Hallo,

Ik wil een excel document maken waarmee ik mutaties kan doorvoeren
Ik heb in A1 een hoeveelheid staan (getal). In B1 kan ik invullen hoeveel er bij gaat. in C1 hoeveel er af gaat. In D1 komt de nieuwe hoeveelheid eruit
D1 heeft berekening:
=ALS(ISLEEG(B1);ALS(ISLEEG(C1);"";A1-C1);A1+B1)

Nu wil ik na die berekening de cel waar een getal in stond, helemaal leegmaken. Normaal als je een cel invult en dan het antwoord weghaalt, heeft de cel de waarde 0. Ik wil dus dat ie weer geen waarde krijgt. Hoe doe ik deze hele stap?
Mvg,

MrSvennie

 

[Ad Becude]

Bedoel je zoiets?

=ALS(AANTAL(A1)>0;ALS(ISLEEG(B1);ALS(ISLEEG(C1);"";A1-C1);A1+B1);"")

 

[MrSvennie]

Misschien begrijpt u het verkeerd. Ik heb hierbij een excel document gevoegd. Hopelijk is het dan wat duidelijker

Mvg,

MrSvennie

 

[HSV]

Lukt het hier mee.

In moduleblad plaatsen.

Private Sub Worksheet_Change(ByVal Target As Range)
If [B3] <> "" And [C3] <> "" Then
     [A3] = [B3] + [C3]
      [B3].Resize(, 2).ClearContents
  End If
End Sub

Misschien voldoet bovenstaande niet, en moet het zo worden.

Private Sub Worksheet_Change(ByVal Target As Range)
If [B3] <> "" Or [C3] <> "" Then
     [D3] = [A3] + [B3] - [C3]
      [B3].Resize(, 2).ClearContents
        [B3].Activate
  End If
End Sub

 

[Ad Becude]

@Harry,

Ik heb je code afgekeken, en heb er dit van gemaakt.

Private Sub Worksheet_Change(ByVal Target As Range)
If [B3] = "" And [C3] = "" Then
Exit Sub
Else
     [D3] = [A3] + [B3] - [C3]
      [B3:C3].Resize(, 2).ClearContents
  End If
End Sub

 

[HSV]

Hallo Ad,

Zet ze eens in een gewone module.
Sub tst()
code
End sub.

en zie eens hoe de code van beide loopt.

 

[Ad Becude]

Harry,
Ja Oké......ze doen beide het zelfde, maar omdat de formulebalk met een waarde stond te knipperen...dacht ik die Exit sub in te bouwen. VBA is niet echt mijn ding, maar dat weet je wel denk ik:d

 

[HSV]

Hallo Ad,

Dat doet de code alleen in Excel 2007, versie 2003 geen last en Pc stiller.

Waarom weet ik niet, maar zo draait het rustiger (Pc begon te janken).

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:C3")) Is Nothing Then
   If [B3] <> "" Or [C3] <> "" Then
     [D3] = [A3] + [B3] - [C3]
      [B3].Resize(, 2).ClearContents
        [B3].Activate
     End If
  End If
End Sub

Overigens: Gewoon doorzetten met VBA, codes afkijken en nabootsen.
Hier zijn helpers genoeg om je ergens op te wijzen en van te leren.
Driekwart jaar geleden kon ik nog geen noot spelen, maar fluit nu al een paar bekende deuntjes.