Cellen optellen met getal in C1

[FakeMessiah]

ik zit met een klein probleem
==>
kheb in Excel in cel A1 en B1 een getal staan en in cel C1 staat eral een cijfer.
de cellen A1 en B1 moeten opgeteld worden en afgetrokken worden met het getal dat in C1 staat.
maar de cel C1 moet altijd het het vorige blijven staan ook als ik iets verander in cel A1 en/of B1.

weet er iemand een formule ofzo omdat te kunnen bereken
bv.
stap 1
A1: 2
B1: 2
C1: 10000 (= bepaald bedrag)

stap 2
A1: 2
B1: 2
C1: 9996

stap 3
A1: 3
B1: 4
C1: 9989 (9996 - 7 (A1+B1)

stap 4
A1: 4
B1: 5
C1: 9980 (9989 - 9 (A1+B1)

.....


weet er iemand zo een formule ofzo, aub
kheb al vanalles geprobeerd maar niets werkte

 

[Wigi]

weet er iemand zo een formule ofzo, aub
kheb al vanalles geprobeerd maar niets werkte

Weet je ook dat dit niet met formules kan? En dat je hiervoor moet programmeren?

 

[FakeMessiah]

Weet je ook dat dit niet met formules kan? En dat je hiervoor moet programmeren?

ik dacht dat het zoiets ging zijn, maar ik weet zogoed als niets van programmeren

als je de code weet mag je ze altijd geven

mercie voor de tip inieder geval

 

[Wigi]

Je krijgt van mij de code als jij in het vervolg een betere topic titel kiest

Plak deze code in the VBAcode bij het blad waar het hoort.

Druk Alt-F11 om in VBA te geraken. in De Project Explorer zou je dan je bestand en je tabblad moeten zien staan.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = [B1].Address Then [C1] = [C1] - [A1] - [B1]
    
End Sub

Wigi

 

[FakeMessiah]

Je krijgt van mij de code als jij in het vervolg een betere topic titel kiest

Plak deze code in the VBAcode bij het blad waar het hoort.

Druk Alt-F11 om in VBA te geraken. in De Project Explorer zou je dan je bestand en je tabblad moeten zien staan.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = [B1].Address Then [C1] = [C1] - [A1] - [B1]
    
End Sub

Wigi

het werkt :thumb: echt waar mercie, je hebt men leven gered

 

[FakeMessiah]

Je krijgt van mij de code als jij in het vervolg een betere topic titel kiest

Plak deze code in the VBAcode bij het blad waar het hoort.

Druk Alt-F11 om in VBA te geraken. in De Project Explorer zou je dan je bestand en je tabblad moeten zien staan.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = [B1].Address Then [C1] = [C1] - [A1] - [B1]
    
End Sub

Wigi

sorry nog een vraagje en als je nu vanuit een ander tabblad dat wilt aftrekken, wat moet er dan in de code veranderd worden?

 

[FakeMessiah]

Als je werkt met 2 hulp cellen gaat dit ook werken zonder VBA
om aanje tweede vraag te voldoen zie tweede bestandje

nee sorry dit heb ik al geprobeerd toch bedankt voor de moeite

die VB is goed, maar nu moet die cel A1 en B1 van een andere pagina komen :/

ik zal nog wat verder zoeken, toch bedankt allemaal :thumb:

 

[Wigi]

Laat dat dan op dat ene tabblad staan, en laat met een simpele celverwijzing:

=Blad2!C1

bijvoorbeeld, de celwaarde overkomen.

 

[FakeMessiah]

Laat dat dan op dat ene tabblad staan, en laat met een simpele celverwijzing:

=Blad2!C1

bijvoorbeeld, de celwaarde overkomen.

ok dit werkt perfect :thumb:

geen vragen meer voorlopig

MERCIE AAN: Wigi en Daniël :thumb::thumb:

 

[Warme bakkertje]

Zet je de vraag dan nog even op opgelost (rechts onderaan de pagina)

 

[FakeMessiah]

ok dit werkt perfect :thumb:

geen vragen meer voorlopig

MERCIE AAN: Wigi en Daniël :thumb::thumb:

lol sorry nog is ^^

maar hoe doe je meerdere van die codes in een pagina

ik heb al verschillende aanpassingen geprobeerd, maar het lukt niet :/


als ik dezelfde code kopieer dan verschijnt er dit bericht:

Comileerfout:
er is een dubbelzinnige naam gevonden: Worksheet_Change

hoe kan ik dit oplossen aub

 

[trucker10]

Je kan inderdaad maar 1 keer een Worksheet_Change event code inbrengen , mijn eerste gedacht is dan om te kijken of een intersect macro ( if intersect range ( cel ... ) enz. geen oplossing kan bieden . P.S. heropen je vraag " vraag is niet opgelost " !

 

[FakeMessiah]

Je kan inderdaad maar 1 keer een Worksheet_Change event code inbrengen , mijn eerste gedacht is dan om te kijken of een intersect macro ( if intersect range ( cel ... ) enz. geen oplossing kan bieden . P.S. heropen je vraag " vraag is niet opgelost " !

kan je dat is in een volledige code zetten want ik weet niet waar je dat moet zetten


alvast bedankt

 

[trucker10]

Zou je niet beter een voorbeeldje posten wat waar staat , dan kan er gezocht worden voor een oplossing , in een code moet je een range opgeven .

 

[FakeMessiah]

Zou je niet beter een voorbeeldje posten wat waar staat , dan kan er gezocht worden voor een oplossing , in een code moet je een range opgeven .

da zou beter zijn, ik hoop dat dit een goed voorbeeld is enzo

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then Target.Offset(, 1) = _
            Target.Offset(, 1) - WorksheetFunction.Sum(Target.Offset(, -1), Target)
End Sub

 

[FakeMessiah]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then Target.Offset(, 1) = _
            Target.Offset(, 1) - WorksheetFunction.Sum(Target.Offset(, -1), Target)
End Sub

dat werkt goed :thumb:

is het mogelijk dat de 'uitkomst' bv in kollom G en de cijfers die moeten worden afgetrokken in kollom D staan. Wat moet er dan veranderd worden in de code?

 

[huijb]

"Een vraagje" zegt niets over je probleem, topictitel aangepast.

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 4 Then Target.Offset(, 3) = Target.Offset(, 3) -Target
End Sub

 

[FakeMessiah]

mercie, dit is de juiste oplossing voor men probleem :thumb::thumb:


mercie