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)
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |