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.
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:Op vrijdag 6 maart 2009 15:52 schreef DaFan het volgende:
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]
Maar het werkt wel 
En voor zover ik weet is het de enige vlotte manier om een grafiekje snel op te slaan en in een userform te gebruiken.
En voor zover ik weet is het de enige vlotte manier om een grafiekje snel op te slaan en in een userform te gebruiken.
Werkt het ook met 2007?
En slepen werkt helaas niet.
PRSC wist ik wel maar als het makkelijker kan dan liever dat, gezien ik ook de achtergrond van de grafieken transparant hebt.
En slepen werkt helaas niet.
PRSC wist ik wel maar als het makkelijker kan dan liever dat, gezien ik ook de achtergrond van de grafieken transparant hebt.
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!
Waar wil je het heen hebben dan? Op je website?quote:
Werkt het ook met 2007?
En slepen werkt helaas niet.
PRSC wist ik wel maar als het makkelijker kan dan liever dat, gezien ik ook de achtergrond van de grafieken transparant hebt.
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]
Ja op mijn website / FOK! / Weerwoord 
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!
He allemaal. Ik heb een Excel vraagje waarvan ik dacht dat die simpel was om op te lossen, maar ik kom er maar niet uit.
In kolom C heb ik, ongesorteerd, een reeks van resultaten. Deze lopen van 0 tot 100. Laten we zeggen voor het gemak dat het gaat om de prijsverloop van een aandeel. Nu is het de bedoeling dat ik, beginnend bij C1, de eerste prijs vind die boven de 40 is. In D1 moet het getal worden opgeslagen wat met een formule/macro is gevonden (dus dat kan iets van 41,50 zijn oid). Als het getal is gevonden in C105, heb ik al een formule gevonden die de waarde retouneerd van B105.
Iemand een idee?
In kolom C heb ik, ongesorteerd, een reeks van resultaten. Deze lopen van 0 tot 100. Laten we zeggen voor het gemak dat het gaat om de prijsverloop van een aandeel. Nu is het de bedoeling dat ik, beginnend bij C1, de eerste prijs vind die boven de 40 is. In D1 moet het getal worden opgeslagen wat met een formule/macro is gevonden (dus dat kan iets van 41,50 zijn oid). Als het getal is gevonden in C105, heb ik al een formule gevonden die de waarde retouneerd van B105.
Iemand een idee?
Beter een gat in je hand, dan een hand in je gat
Let's have fun ---- Life will suck soon enough
Hattrick: 206761
Let's have fun ---- Life will suck soon enough
Hattrick: 206761
Ik heb het al gevonden iig bedankt voor jullie hulp.
Oja gewoon copy paste had ik kunnen wonen :p
iig bedankt voor jullie hulp.Oja gewoon copy paste
had ik kunnen wonen :p
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!
Voor mijn stage heb ik een excel uitdraai van het ERP systeem gekregen. In de excel file staan de orders met daarbij een hele hoop gegevens, datums, statussen, hoeveelheden enzovoorts. Nu is het zo dat sommige ordernummers meerdere keren kunnen voortkomen in de lijst, want een order kan worden gesplitst, met behoud van zelfde ordernummer. Niet handig, maar daar kan ik nu niks aan doen.
Het punt is dat dit mijn analyses vervuild, omdat met de reguliere Vlookup/vert.zoeken functie, telkens de eerste de beste ordernummer wordt gepakt en er niet verder wordt gekeken naar andere gelijke entries. Is er een handige manier om dit er voor te zorgen dat er meerdere uitkomsten worden gegeven bij dezelfde invoer? Ik had al een Mvlookup functie gevonden, maar die werkte alleen als je van te voren wist hoeveel gelijke entries er waren, en dat weet ik dus niet. Het is namelijk een lijst met +10.000 rijen
Op mijn stage heb ik de engelstalige excel 2003, en op mijn laptop heb ik excel 2007 NL.
Het punt is dat dit mijn analyses vervuild, omdat met de reguliere Vlookup/vert.zoeken functie, telkens de eerste de beste ordernummer wordt gepakt en er niet verder wordt gekeken naar andere gelijke entries. Is er een handige manier om dit er voor te zorgen dat er meerdere uitkomsten worden gegeven bij dezelfde invoer? Ik had al een Mvlookup functie gevonden, maar die werkte alleen als je van te voren wist hoeveel gelijke entries er waren, en dat weet ik dus niet. Het is namelijk een lijst met +10.000 rijen
Op mijn stage heb ik de engelstalige excel 2003, en op mijn laptop heb ik excel 2007 NL.
Let the beat control your body!
macro'tje:quote:Op zaterdag 7 maart 2009 12:04 schreef RemCOW het volgende:
He allemaal. Ik heb een Excel vraagje waarvan ik dacht dat die simpel was om op te lossen, maar ik kom er maar niet uit.
In kolom C heb ik, ongesorteerd, een reeks van resultaten. Deze lopen van 0 tot 100. Laten we zeggen voor het gemak dat het gaat om de prijsverloop van een aandeel. Nu is het de bedoeling dat ik, beginnend bij C1, de eerste prijs vind die boven de 40 is. In D1 moet het getal worden opgeslagen wat met een formule/macro is gevonden (dus dat kan iets van 41,50 zijn oid). Als het getal is gevonden in C105, heb ik al een formule gevonden die de waarde retouneerd van B105.
Iemand een idee?
| 1 2 3 4 5 6 7 8 9 10 11 | i = 0 Do i = i + 1 If Cells(i, 3).Value > 40 Then Range("D1").Value = Cells(i, 3).Value Exit Sub End If Loop Until Cells(i + 1, 3).Value = "" end sub |
heitieh
Kun je wel weten door:quote:Op zaterdag 7 maart 2009 15:28 schreef Joppy het volgende:
(...)
Ik had al een Mvlookup functie gevonden, maar die werkte alleen als je van te voren wist hoeveel gelijke entries er waren, en dat weet ik dus niet. Het is namelijk een lijst met +10.000 rijen
(...)
Voor kolom A:
AANTAL.ALS(A:A; jouwordernummer)
heitieh
Zal eens proberen! ik heb net zelf ook een werkende gekregen die gebruik maakt van de Find (gejat van een website).quote:
| 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 37 38 39 40 41 42 43 44 | Dim lMin As Double, lMax As Double Dim rFound As Range, rLookin As Range Dim lFound As Double, rStart As Range Dim rCcells As Range, rFcells As Range Dim lCellCount As Long, lcount As Long Dim bNoFind As Boolean lMin = 0 lMax = 2 Set rStart = Range("B6") Set rLookin = Range("B6:B25") lCellCount = rLookin.Cells.Count lcount = 0 Do Until lFound > lMin And lFound < lMax Set rStart = rLookin.Cells.Find(What:="*", After:=rStart, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=True) lFound = rStart.Value lcount = lcount + 1 If lCellCount = lcount Then bNoFind = True Exit Do End If Loop Range("C1") = rStart.Value If bNoFind = True Then Range("C1") = "N/A" End If On Error GoTo 0 End Sub |
Beter een gat in je hand, dan een hand in je gat
Let's have fun ---- Life will suck soon enough
Hattrick: 206761
Let's have fun ---- Life will suck soon enough
Hattrick: 206761
Ik zie wel wat overeenkomsten. Maar volgens mij doet mijn macro'tje precies wat je vroeg en jouw macro is veel omslachtiger...quote:Op zaterdag 7 maart 2009 17:42 schreef RemCOW het volgende:
[..]
Zal eens proberen! ik heb net zelf ook een werkende gekregen die gebruik maakt van de Find (gejat van een website).
[ code verwijderd ]
Succes iig.
heitieh
Die functie ken ik natuurlijk wel. had er alleen nog niet aan gedacht omdat in die multiple Vlookup functie te plaatsenquote:Op zaterdag 7 maart 2009 16:51 schreef Joooo-pi het volgende:
[..]
Kun je wel weten door:
Voor kolom A:
AANTAL.ALS(A:A; jouwordernummer)
. Ik zal morgen eens kijken of dat zou kunnen werken.
Let the beat control your body!
Hoi, ik ben wat excel aan het leren en heb de volgende (simpele) vraag.
Stel dat je twee kolommen data hebt met daarin ofwel 'ja' ofwel 'neen'. In de derde kolom wil je een waarde 1 krijgen als er twee 'neens' zijn en een waarde 2 als dit niet het geval is. Hoe moet ik dit aanpakken? Ik heb met de AND-functie gespeeld maar daar krijg je ofwel een TRUE of FALSE en dat zoek ik dus niet.
Groeten
Stel dat je twee kolommen data hebt met daarin ofwel 'ja' ofwel 'neen'. In de derde kolom wil je een waarde 1 krijgen als er twee 'neens' zijn en een waarde 2 als dit niet het geval is. Hoe moet ik dit aanpakken? Ik heb met de AND-functie gespeeld maar daar krijg je ofwel een TRUE of FALSE en dat zoek ik dus niet.
Groeten
=ALS(EN(A1="neen";B1="neen");2;1)
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]
