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 |
1 |
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 |
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.
Of:quote:Op vrijdag 6 maart 2009 15:41 schreef SpeedyGJ het volgende:
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" |
Die site heeft het nog over Excel5/95quote:Op vrijdag 6 maart 2009 16:13 schreef Hi_flyer het volgende:
[..]
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
Waar wil je het heen hebben dan? Op je website?quote:Op vrijdag 6 maart 2009 17:10 schreef SpeedyGJ het volgende:
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.
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 |
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
(...)
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 |
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 ]
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)
Je gebruikt de Engelse versie neem ik aan?quote:Op zondag 8 maart 2009 13:19 schreef Buonissimo het volgende:
Er komt #NAME? staan. Wellicht doe ik iets fout?
die van jou is idd veel minder omslachtig ;) maar deze kon ik makkelijker ombouwen naar een functie.quote:Op zaterdag 7 maart 2009 17:52 schreef Joooo-pi het volgende:
[..]
Ik zie wel wat overeenkomsten. Maar volgens mij doet mijn macro'tje precies wat je vroeg en jouw macro is veel omslachtiger...
Succes iig. ^O^
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 | Dim lFound As Double Dim lCellCount As Long, lcount As Long Dim bNoFind As Boolean lCellCount = rLookin.Cells.Count lcount = 0 Do Until lFound = ValueFirst 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 Test = rStart.Row RowValue = Sheets("GBM").Range("A" & Test).Value If bNoFind = True Then RowValue = "N/A" End If On Error GoTo 0 End Function |
Is je vraag om de overenkomstige waarde uit kolom A ook ergens te noteren? Dat past simpel in mijn code:quote:Op zondag 8 maart 2009 20:18 schreef RemCOW het volgende:
[..]
die van jou is idd veel minder omslachtigmaar deze kon ik makkelijker ombouwen naar een functie.
Daar heb ik ook direct een vraag over. stel dat ik met jouw code, of die van mij, een bepaald getal heb gevonden in kolom C25. Nu wil ik de waarde uit A25 ook ergens opslaan.
Nu doe ik het door een andere functie die bijna hetzelfde doet als mijn andere functie; nl:
[ code verwijderd ]
Het probleem is, de functie wordt aangeroepen in de sheet: GMB-profit.
De range die wordt opgegeven is dan bijvoorbeeld =RowValue(GBM!C7;GBM!C7:C762;D53)
Als ik in plaats van
RowValue = Sheets("GBM").Range("A" & Test).Value
RowValue = Range("A" & Test).Value
gebruik, krijg ik de waarde op het huidige blad (GMB-profit). Als ik Sheets("GMB") defineer werkt op zich wel prima, het probleem is dat ik de functie voor meerdere sheets moet toepassen. Ik heb geen zin om voor elke sheet een andere functie te bouwen.... Is er op een manier de sheet op te vragen? Dan wel via die invoer ("rLookin / rStart") dan wel op een andere manier.
1 2 3 4 5 6 7 8 9 10 11 12 | i = 0 Do i = i + 1 If Cells(i, 3).Value > 40 Then Range("D1").Value = Cells(i, 3).Value Range("E1").Value = Cells(i, 1).Value Exit Sub End If Loop Until Cells(i + 1, 3).Value = "" end sub |
Het probleem is dat dat volgens mij niet kan met een functie. Dan krijg ik een foutmelding zodra ik buiten het veld iets wil opslaan. Is overigens wel wat ik zoekquote:Op zondag 8 maart 2009 22:12 schreef Joooo-pi het volgende:
[..]
Is je vraag om de overenkomstige waarde uit kolom A ook ergens te noteren? Dat past simpel in mijn code:
[ code verwijderd ]
Nu komt de waarde uit de kolom A in D1 te staan.
Ik weet alleen niet zeker of dat je vraag precies is...
Activesheet.Name geeft de huidige naam van de sheet waarin je werkt. De andere kan je opvragen door:quote:Is er op een manier de sheet op te vragen?
1 2 3 | ..... Next |
Ik denk dat je dit kunt gebruiken:quote:Op maandag 9 maart 2009 12:38 schreef BuupWerk het volgende:
ik zoek een forumule...
ik heb 1 rij met namen en 1 rij met beheer of behandeling of vraagteken
nu wil ik de naam in combinatie met beheer op tellen en de naam in combinatie met behandeling
ik kan wel het aantal namen of beheer of behandeling optellen...
maar ik wil dus de combinatie tussen de ene rij en de andere rij optellen...
ik hoop dat het duidelijk is...
Functie EN toevoegen?quote:Op maandag 9 maart 2009 14:21 schreef BuupWerk het volgende:
maar werkt dat ook met twee kolommen ??
want ik gebruik nu :
=AANTAL.ALS(BEHANDELING!B2:B2987;"Marieke")
en ik wil dus eigenlijk
kolom b = naam
kolom c = behandeling of beheer
=AANTAL.ALS(BEHANDELING!B2:B2987;"Marieke") bu telt tie alleen marieke en alleen kolom b
ik wil dus kolom b marieke en kolom c behandeling....
SOM.ALS(BEHANDELING!B2:B2987;"Marieke";BEHANDELING!C2:C2987)quote:Op maandag 9 maart 2009 14:21 schreef BuupWerk het volgende:
maar werkt dat ook met twee kolommen ??
want ik gebruik nu :
=AANTAL.ALS(BEHANDELING!B2:B2987;"Marieke")
en ik wil dus eigenlijk
kolom b = naam
kolom c = behandeling of beheer
=AANTAL.ALS(BEHANDELING!B2:B2987;"Marieke") bu telt tie alleen marieke en alleen kolom b
ik wil dus kolom b marieke en kolom c behandeling....
Ik had volgens mij de vraag niet goed begrepen. Ik ga er nog even naar kijken.quote:Op maandag 9 maart 2009 15:17 schreef Metal_Jag het volgende:
[..]
SOM.ALS(BEHANDELING!B2:B2987;"Marieke";BEHANDELING!C2:C2987)
quote:Op maandag 9 maart 2009 20:19 schreef Maartel het volgende:
Ik ben een grote Excel-noob, dus dit is ws een domme vraag, maar:
ik heb in kolom A namen van liedjes staan (voor een tournament) en in kolom B/C/D.. scores per ronde.. nu wil ik in kolom E de opgetelde score van kolom B t/m D voor elk nummer hebben, hoe doe ik dit?
Overigens is niet in elke ronde even veel gestemd, dus wil ik eigenlijk ook de score per kolom daar op aanpassen door een formule SCORE: AANTAL STEMMEN x 11 (aantal stemmen uit ronde 1, die houd ik graag zo)
Kan ik dit makkelijk laten berekenen door Excel, en hoe?
(Ik word zelf echt niet wegwijs uit Excel in Vista of de helpfunctie)
edit: het optellen is al opgelost, ik wist niet dat ik de weergave aan moest passen om resultaten te zien ipv een formule.. dan rest me nog die laatste vraag: hoe vermenigvuldig/deel ik een hele kolom door een getal naar keuze?
hoe pas ik een formule óp een cel toe, zonder dat het resultaat in een andere cel verschijnt?quote:Op maandag 9 maart 2009 20:36 schreef Joooo-pi het volgende:
[..]
Een formule kun je doorvoeren (sleep het puntje rechtsonderin cel 1 naar beneden).
Dus als je voor 1 cel een formule maakt (bijv. B1*4) kun je die doorvoeren voor een hele kolom.
Dat kan eigenlijk niet. Of je moet eerste de getallen in een extra kolom maken en dan kopieren, plakken als speciaal, en "waarden" aanvinken. En daarmee je originele waarden overschrijven. Daarna zijn je begingetallen weg.quote:Op maandag 9 maart 2009 20:35 schreef Maartel het volgende:
O, ik bedoel overigens zó dat de getallen wel gewoon in hun eigen kolom blijven staan, ik wil er geen extra kolommen bij hebben (want dan klopt de som weer niet)
ah oke, dat lukt me ws wel.. nog even heel stom (maar scheelt me een hoop puzzelen): welke formule gebruik ik om een bepaalde cel met iets t vermenigvuldigen (+ delen, maar ik kan zelf die factor nog wel even op de rekenmachine berekenen als 2 commando's voor 1 cel te veel is)quote:Op maandag 9 maart 2009 20:40 schreef Joooo-pi het volgende:
[..]
Dat kan eigenlijk niet. Of je moet eerste de getallen in een extra kolom maken en dan kopieren, plakken als, en "waarden" aanvinken. En daarmee je originele waarden overschrijven. Daarna zijn je begingetallen weg.
= (cel * getal1) / getal2quote:Op maandag 9 maart 2009 20:44 schreef Maartel het volgende:
[..]
ah oke, dat lukt me ws wel.. nog even heel stom (maar scheelt me een hoop puzzelen): welke formule gebruik ik om een bepaalde cel met iets t vermenigvuldigen (+ delen, maar ik kan zelf die factor nog wel even op de rekenmachine berekenen als 2 commando's voor 1 cel te veel is)
Jep, dat is 'mquote:Op maandag 9 maart 2009 20:48 schreef Joooo-pi het volgende:
[..]
= (cel * getal1) / getal2
bedoel je dat?
Hoe doe ik 'plakken als'? Ik zie wel 'plakken speciaal' staan, maar die is grijsquote:Op maandag 9 maart 2009 20:40 schreef Joooo-pi het volgende:
[..]
Dat kan eigenlijk niet. Of je moet eerste de getallen in een extra kolom maken en dan kopieren, plakken als, en "waarden" aanvinken. En daarmee je originele waarden overschrijven. Daarna zijn je begingetallen weg.
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |