DIG Digital Corner
Alles wat je altijd al over computers, hardware, software, internet en elektronische gadgets had willen weten, maar niet op Tweakers.net durft te vragen.
Dat is wel mogelijk, maar dan met een macro (denk ik)quote:Op donderdag 5 maart 2009 12:17 schreef wc-eend het volgende:
Ok die krijg ik werkend, zoals ik hem zo willen..
(dit zijn allemaal voorbeelden, maar dan snap ik de formule)
Nu zou ik graag willen dat in A1 die max 30 komt..
Als ik in B1 een getal invul, dan moet hij dat van A1 aftrekken.
Als ik in c1 een getal invul moet hij dat bij A1 optellen
En als het mogelijk is, zodra ik in B1 of C1 op enter drukt, en hij gaat berekenen dat hij de waarde uit B1 of C1 verwijdert.. zonder dat a1 terugspringt naar vorig getal..
ik vraag veel heh
Als je kolom D er bij wil gebruiken kan het wel:
a1 =D1-B1+C1
b1 =zelf in te vullen
c1 =zelf in te vullen
d1 =ALS(GETAL1+GETAL2>30;30;GETAL1+GETAL2)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Daar moet je je eigen getallen invullenquote:
uh wat zou ik inplaats van getal moeten invullen in de engelse versie? number werkt niet..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Hmm ik krijg hem niet werkend..
voor de verduidelijking:
A1 mag nooit hoger dan 30 worden
Bij B1 vul ik 10 in..
Dan moet A1 20 worden
Vul ik nu bij C1 15 in..
Dan moet A1 weer 30 worden, ipv 35..
voor de verduidelijking:
A1 mag nooit hoger dan 30 worden
Bij B1 vul ik 10 in..
Dan moet A1 20 worden
Vul ik nu bij C1 15 in..
Dan moet A1 weer 30 worden, ipv 35..
Zoiets dan?
a1 =ALS(D1-B1+C1>30;30;D1-B1+C1)
b1 =zelf in te vullen
c1 =zelf in te vullen
d1 =ALS(GETAL1+GETAL2>30;30;GETAL1+GETAL2)
a1 =ALS(D1-B1+C1>30;30;D1-B1+C1)
b1 =zelf in te vullen
c1 =zelf in te vullen
d1 =ALS(GETAL1+GETAL2>30;30;GETAL1+GETAL2)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Druk op Alt-F11, ga links naar de sheet waarin je de formule wil, dubbelklik.
Voer dan rechts dit in:
Let erop dat je A1 nog wel kan aanpassen. Dat kan je zelf oplossen via Data -> Validation.
Voer dan rechts dit in:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | Application.EnableEvents = False If Not Intersect(Target, Range("A1:C1")) Is Nothing Then If Range("B1").Value <> "" Then Range("A1").Value = Range("A1").Value - Range("B1").Value GoTo FinalCheck End If If Range("C1").Value <> "" Then Range("A1").Value = Range("A1").Value + Range("C1").Value GoTo FinalCheck End If End If FinalCheck: If Range("A1").Value > 30 Then Range("A1").Value = 30 Range("B1").Value = "" Range("C1").Value = "" Application.EnableEvents = True End Sub |
Let erop dat je A1 nog wel kan aanpassen. Dat kan je zelf oplossen via Data -> Validation.
als je er niet uitkomt; ik ben er rond half zeven.
Toch nog een vraagje:
Als ik dit wil herhalen op de A2, B2, C2
Kan ik dan diezelfde code neerzetten en dan alleen de eentjes veranderen in een tweetje?
Als ik dit wil herhalen op de A2, B2, C2
Kan ik dan diezelfde code neerzetten en dan alleen de eentjes veranderen in een tweetje?
Ja kan. Denk dat het nog wel eleganter kan maar als je het maar voor 2 rijen hoeft te doen is dat niet nodig.
Plak dat trouwens BINNEN in de sub, maak geen nieuwe, dat werkt niet. Je moet Finalcheck2 maken ook.
Plak dat trouwens BINNEN in de sub, maak geen nieuwe, dat werkt niet. Je moet Finalcheck2 maken ook.
Gelukt neem ik aan? Dan ga ik m ook niet meer eleganter maken 
Lukte trouwens ook niet zo 1-2-3 dus bekijk t lekker
Lukte trouwens ook niet zo 1-2-3 dus bekijk t lekker
ik heb een spreadsheet met ongeveer 300 rijen
Is het mogelijk om op een 2e blad 1 rij voor iedere klant weer te geven met de totalen van de $ bedragen?
Resultaat:
excel 2003 of excel 2007
bvd
| 1 2 3 4 5 6 7 8 9 | klantA | eee | ddd | $50| klantA | eee | ddd | $64| klantB | eee | ddd | $24| klantB | eee | ddd | $49| klantA | eee | ddd | $82| klantC | eee | ddd | $37| klantB | eee | ddd | $18| ------------------------------ |
Is het mogelijk om op een 2e blad 1 rij voor iedere klant weer te geven met de totalen van de $ bedragen?
Resultaat:
| 1 2 3 4 5 | klantA | $196 | klantB | $91 | klantC | $37 | --------------| |
excel 2003 of excel 2007
bvd
Abigail, I'm sure if there is something out there looking down on us from somewhere else in the universe...they're wise enough to stay away from us.
wc-eend:
Dit is eleganter als je met meer rijen gaat werken:
Deze regel
geeft de grens aan tot welke rij het moet werken (in dit geval rij 1 en 2). Je kan dit natuurlijk aanpassen en zelfs aangeven dat het bijvoorbeeld alleen tussen rij 4 en 8 moet werken (If i >4 AND i<9 Then).
Succes ermee.
Dit is eleganter als je met meer rijen gaat werken:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | Application.EnableEvents = False i = Target.Row If i < 3 Then If Not Intersect(Target, Range("A" & i & ":C" & i)) Is Nothing Then If Range("B" & i).Value <> "" Then Range("A" & i).Value = Range("A" & i).Value - Range("B" & i).Value GoTo FinalCheck End If If Range("C" & i).Value <> "" Then Range("A" & i).Value = Range("A" & i).Value + Range("C" & i).Value GoTo FinalCheck End If End If FinalCheck: If Range("A" & i).Value > 30 Then Range("A" & i).Value = 30 Range("B" & i).Value = "" Range("C" & i).Value = "" End If Application.EnableEvents = True End Sub |
Deze regel
| 1 |
geeft de grens aan tot welke rij het moet werken (in dit geval rij 1 en 2). Je kan dit natuurlijk aanpassen en zelfs aangeven dat het bijvoorbeeld alleen tussen rij 4 en 8 moet werken (If i >4 AND i<9 Then).
Succes ermee.
Nog korter/netter:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | Application.EnableEvents = False i = Target.Row If i < 3 Then RijAWaarde = Range("A" & i).Value RijBWaarde = Range("B" & i).Value RijCWaarde = Range("C" & i).Value If Not Intersect(Target, Range("A" & i & ":C" & i)) Is Nothing Then If RijBWaarde <> "" Then RijAWaarde = RijAWaarde - RijBWaarde GoTo FinalCheck End If If Range("C" & i).Value <> "" Then RijAWaarde = RijAWaarde + RijCWaarde GoTo FinalCheck End If End If FinalCheck: If RijAWaarde > 30 Then RijAWaarde = 30 RijBWaarde = "" RijCWaarde = "" Range("A" & i).Value = RijAWaarde Range("B" & i).Value = RijBWaarde Range("C" & i).Value = RijCWaarde End If Application.EnableEvents = True End Sub |
Ik heb een vraag, in kolom K staan alle postcodes vermeld (4 cijfers, spatie, 2 letters). Echter in sommige gevallen staan de 2 letters niet in kolom k, maar in kolom J.
Nu wil ik dat wanneer dit het geval is, de gegevens aan elkaar toegevoegd worden in kolom L.
Tot dusver heb ik:
=ALS(LENGTE(K2)<5;TEKST.SAMENVOEGEN(J2;K2))
Dit werkt in ieder geval niet, wat resulteert in
kan iemand mij hierbij helpen?
Bedankt!!!
Nu wil ik dat wanneer dit het geval is, de gegevens aan elkaar toegevoegd worden in kolom L.
Tot dusver heb ik:
=ALS(LENGTE(K2)<5;TEKST.SAMENVOEGEN(J2;K2))
Dit werkt in ieder geval niet, wat resulteert in
kan iemand mij hierbij helpen?Bedankt!!!
Is het mogelijk om de grafieken in Excel op te slaan? Ik probeer van alles te doen maar ik kan het niet vinden.
Doe mee met het voorspellen van het weer!
Weekvoorspelling -- Week 1
Maandvoorspelling februari.
Jaarvoorspelling 2024 --- Jaarvoorspelling 2025!
Weekvoorspelling -- Week 1
Maandvoorspelling februari.
Jaarvoorspelling 2024 --- Jaarvoorspelling 2025!
Gewoon in het werkblad kan je het toch opslaan? Of wil je het als plaatje? Dan moet je een printscreen maken.
Of gewoon slepen naar het programma waarin je het wil gebruiken..quote:
Gewoon in het werkblad kan je het toch opslaan? Of wil je het als plaatje? Dan moet je een printscreen maken.
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Of:quote:
Is het mogelijk om de grafieken in Excel op te slaan? Ik probeer van alles te doen maar ik kan het niet vinden.
| 1 2 3 | Fname = ThisWorkbook.Path & "\temp.gif" CurrentChart.Export FileName:=Fname, FilterName:="GIF" |
Toevallig gisteren mee bezig geweest. Op deze manier kan je namelijk grafieken in bijv. een userform plaatsen die geupdate wordt met informatie die een gebruiker ingeeft. Onwijs leuk om uit te zoeken
Niet van mezelf maar van http://www.j-walk.com/ss/excel/tips/tip66.htm
Die site heeft het nog over Excel5/95quote:
[..]
Of:
[ code verwijderd ]
Toevallig gisteren mee bezig geweest. Op deze manier kan je namelijk grafieken in bijv. een userform plaatsen die geupdate wordt met informatie die een gebruiker ingeeft. Onwijs leuk om uit te zoeken
Niet van mezelf maar van http://www.j-walk.com/ss/excel/tips/tip66.htm
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
