Aangezien er vaker losse topics langskomen, leek het ons handig een centraal Excel topic te maken waar men hun vragen / antwoorden kwijt kan.
Dus heb je vragen, kom je ergens niet uit, hoe maak ik nu precies die macro?
Stel dan hier je vraag!!!
Tip 1: De help functie van excel of visual basic voor excel kan je echt een eind op weg helpen ! (F1)
Tip 2: Als je een vraag stelt, zet er dan bij welke versie je hebt en op welke taal hij ingesteld staat!
Tip 3: Zet macrocode even tussen [ code ] tags
Tip 4: Zelf de formules in verschillende talen vertalen:
http://dolf.trieschnigg.nl/excel/excel.html
http://branders.name/files/Excel-Function-Reference.pdf
Alle vorige topics zijn hier terug te vinden.
Nieuw topic? Haal de OP bij de wiki
Dit is toch een formule voor 1 criteria ?quote:=ALS(OF(datum(jaar(vandaag());maand(vandaag())-11;dag(vandaag())>vandaag();;"UIT DATUM")
Mijn excel-kennis schiet echt te kort.. ik zou niet weten hoe ik dit in moet vullen. Ik zat redelijk op weg met onderstaande formule maar dan komt het alsnog niet op de datum aan en hij werkt alleen als alle criteria ONWAAR zijn.
=ALS(OF(A1+365>G1;(B1+365>G1);(C1+365>G1));1;"UIT DATUM")
Dus ik wil wel graag die met datum etc gebruiken maar ik heb werkelijk geen idee hoe..
Het enige waar de voorwaardelijke opmaak op controleert is of iets waar is of niet. Als het onwaar is doet ie niets, als het waar is geeft ie een kleurtje (of iets anders) aan de cel waarvoor de voorwaardelijke opmaak hebt ingesteld.quote:Op vrijdag 16 december 2011 17:27 schreef Mind_State het volgende:
Hmm.. hij werkte nu dus alleen als ALLE criteria onwaar zijn.
[..]
Dit is toch een formule voor 1 criteria ?
Mijn excel-kennis schiet echt te kort.. ik zou niet weten hoe ik dit in moet vullen. Ik zat redelijk op weg met onderstaande formule maar dan komt het alsnog niet op de datum aan en hij werkt alleen als alle criteria ONWAAR zijn.
=ALS(OF(A1+365>G1;(B1+365>G1);(C1+365>G1));1;"UIT DATUM")
Dus ik wil wel graag die met datum etc gebruiken maar ik heb werkelijk geen idee hoe..
Deze zou moeten werken:
=ALS(OF(DATUM(JAAR(A1);MAAND(A1)-11;DAG(A1))>G1;DATUM(JAAR(B1);MAAND(B1)-11;DAG(B1))>G1;DATUM(JAAR(C1);MAAND(C1)-11;DAG(C1))>G1);WAAR;ONWAAR)
Of praten we nu compleet langs elkaar heen
Deze werkt nu hoe ik het wil:
=ALS(EN(A1+730>G1;(B1+365>G1);(C1+365>G1));1;"UIT DATUM")
De OF-functie moest dus een EN-functie worden in ieder geval, want nu toont hij UIT DATUM als 1 van de criteria ONWAAR is. Het enige nadeel is nu nog dat hij nog steeds niet precies op de datum is ivm schrikkeljaren, maar ik bouw dan desnoods wel gwn een buffer in dat is geen probleem.
Wordt wel erg ingewikkeld zo...
mocht je macros kunnen gebruiken kun je deze gebruiken:
| 1 2 3 4 | Function MaandenGeleden(datum As Date) As Long MaandenGeleden = DateDiff("m", datum, DateTime.Now) If Day(datum) > Day(DateTime.Now) Then MaandenGeleden = MaandenGeleden - 1 End Function |
ALS(EN(MaandenGeleden(A1)>23;MaandenGeleden(B1)>11;MaandenGeleden(C1)>11;1;"Uit datum")
Ik kan thuis geen Macro's gebruiken maar op mijn werk wel dus ik zal het volgende week met deze formule proberen. Hartstikke bedankt in elk geval.quote:
@mind_state
Wordt wel erg ingewikkeld zo...
mocht je macros kunnen gebruiken kun je deze gebruiken:
[ code verwijderd ]
kun je als functie gebruiken
ALS(EN(MaandenGeleden(A1)>23;MaandenGeleden(B1)>11;MaandenGeleden(C1)>11;1;"Uit datum")
???quote:
[..]
Ik kan thuis geen Macro's gebruiken maar op mijn werk wel dus ik zal het volgende week met deze formule proberen. Hartstikke bedankt in elk geval.
Wel met een formule, maar een andere manier zou ik zo niet weten.
Je kan er dan niet snel komma's tussen plakken zonder formule of VBA.
http://uk.answers.yahoo.c(...)0070929072105AAjHDWuquote:
k wil gegevens uit cellen A1 t/m A50 kopiëren en vervolgens al deze gegevens plakken in 1 cel. Dat lukt wel, maar ik krijg deze gegevens dan verticaal in de cel, is het mogelijk om het ook horizontaal in de cel te krijgen. Helemaal mooi zou zijn als er ook nog telkens een komma tussen zit. Wie weet hoe dit moet? Het liefst zonder het gebruik van een formule.. Alvast bedankt
Je hebt dan wel MS Word nodig. (en paste special rich text)
quote:
k wil gegevens uit cellen A1 t/m A50 kopiëren en vervolgens al deze gegevens plakken in 1 cel. Dat lukt wel, maar ik krijg deze gegevens dan verticaal in de cel, is het mogelijk om het ook horizontaal in de cel te krijgen. Helemaal mooi zou zijn als er ook nog telkens een komma tussen zit. Wie weet hoe dit moet? Het liefst zonder het gebruik van een formule.. Alvast bedankt
| 1 2 3 4 5 6 7 8 9 10 | Sub AddCellVal() Dim Str As String Dim i As Integer For i = 1 To 50 Str = Str & Cells(i, 1) & "," Next ActiveCell.Value = Str End Sub |
Plak dit in de VBA editor in de betreffende sheet
Als je nu "run macro" doet zal in de cel waar je in staat bij het runnen van de macro jouw rij met gegevens staan
kan je dit misschien stap voor stap uitleggen in Jip en Janneke taal voor iemand die Excel nooit gebruikt..quote:
[..]
[ code verwijderd ]
Plak dit in de VBA editor in de betreffende sheet
Als je nu "run macro" doet zal in de cel waar je in staat bij het runnen van de macro jouw rij met gegevens staan
welke excel versie heb je (versie en taal?)quote:
[..]
kan je dit misschien stap voor stap uitleggen in Jip en Janneke taal voor iemand die Excel nooit gebruikt..
Excel voor Mac 2011 (versie 14.0) Nederlandsquote:
[..]
welke excel versie heb je (versie en taal?)
Ik had alles verwacht behalve mac...
ok heb even gegoogled en het schijnt dat de 2011 versie weer VBA ondersteunt (vanaf 2008 niet meer namelijk)
Er schijnt een "develepper Tab" te bestaan met hier de "VBA editor"
Als je deze editor opent zie je als het goed is dit:
(exclusief de modules, want die heb je nog niet)
dubbelclick op "sheet1" en het rechter paneer is een wit werkblad
hierin plak je de code die ik je gaf
je kan de editor nu sluiten
sla je sheet op en zoek naar "macro's"
run macro en kies de macro "AddCellVal"
in de cel die je hebt geselecteerdstaan tijdens het draaien van de macro zou de regel moeten verschijnen
zonderquote:
moet ik die getallen 1 t/m 10 in de code ook pasten of zonder?
dat is automagische toevoeging
dus code is zonder codetag:
Sub AddCellVal()
Dim Str As String
Dim i As Integer
For i = 1 To 50
Str = Str & Cells(i, 1) & ","
Next
ActiveCell.Value = Str
End Sub
ik moet het kennelijk niet op een gewone manier opslaan, omdat er macro's zitten.. hoe dan wel?quote:
[..]
zonder
dat is automagische toevoeging
dus code is zonder codetag:
Sub AddCellVal()
Dim Str As String
Dim i As Integer
For i = 1 To 50
Str = Str & Cells(i, 1) & ","
Next
ActiveCell.Value = Str
End Sub
Die komma's op het eind, is daar wat aan te doen en is het mogelijk om na elke komma één spatie te krijgen?quote:
Sub AddCellVal()
Dim Str As String
Dim i As Integer
For i = 1 To 50
if cells(i,1)="" then exit for
Str = Str & Cells(i, 1) & ", "
Next
ActiveCell.Value = Str
End Sub
[ Bericht 7% gewijzigd door #ANONIEM op 18-12-2011 12:54:41 ]
sweet, het werkt..quote:
tuurlijk:
Sub AddCellVal()
Dim Str As String
Dim i As Integer
For i = 1 To 50
if cells(i,1)="" then exit for
Str = Str & Cells(i, 1) & ", "
Next
ActiveCell.Value = Str
End Sub
door activecell=strquote:
hoe doe ik dit bijvoorbeeld als ik de kolom A1 t/m A15 in een sheet heb, en de cel waarin het wil plakken in een andere sheet zit? dus als je met 2 sheets werkt.
te vervangen door
SHEETNAAM.cells(RIJ NUMMER , KOLOMNUMMER).value = str
te typen
caps houdt in dat je die moet vervangen door passende waarden
Cells werken met rij en kolom nummers je kan ook bijvoorbeeld .range("A1") gebruiken
ok.. KritischeMassa je hebt me geweldig geholpen, super bedankt..quote:
nou
[..]
door activecell=str
te vervangen door
SHEETNAAM.cells(RIJ NUMMER , KOLOMNUMMER).value = str
te typen
caps houdt in dat je die moet vervangen door passende waarden
Cells werken met rij en kolom nummers je kan ook bijvoorbeeld .range("A1") gebruiken
moet wel vet zijn als je dit allemaal kan, lijkt me.. Geen probleemquote:
[..]
ok.. KritischeMassa je hebt me geweldig geholpen, super bedankt..
enne jij kan het nu toch ook?Ja dat is waarquote:
[..]
Geen probleem
, maar jij kent/spreekt echt die codetaal, hoe je het moet aanpassen enzo.. 
Google kan je ook goed helpenquote:
[..]
Ja dat is waar
dat geldt voor zowat iedere vraag in dit topic, en maakt daarmee het topic zinloosquote:
Daarbij, je moet wel weten wat je zoekt, ik denk dat voor El_presidente zelf had uitgevonden dat hij met een for loop door cellen kon lopen om deze in een string variabele samen te voegen hij sneller was geweest door handmatig cel 1 tot 16 samen te voegen.
De kracht van een topic als dit is juist dat je elkaar verder helpt met kennis die voor jou paraat is.
Ik hoop dat El_Presidente geïnspireerd is geraakt en voortbouwt op het stukje code dat ik hem aangaf. Bijvoorbeeld dat hij de code ook kan draaien door deze aan een button toe te wijzen.
Zijn we niet allemaal begonnen door te vragen?
Nee, maar zelf doorzoeken op een antwoord wat hier gegeven wordt is imho leerzamerquote:
[..]
dat geldt voor zowat iedere vraag in dit topic, en maakt daarmee het topic zinloos
Daarbij, je moet wel weten wat je zoekt, ik denk dat voor El_presidente zelf had uitgevonden dat hij met een for loop door cellen kon lopen om deze in een string variabele samen te voegen hij sneller was geweest door handmatig cel 1 tot 16 samen te voegen.
Je gaf El_presidente een zet in de goede richting, iets wat met google mss niet gelukt was, maar google had daarna wel kunnen helpen denk ik
Ja, en mede daarom blijf ik hier ook nog steeds hangenquote:De kracht van een topic als dit is juist dat je elkaar verder helpt met kennis die voor jou paraat is.
Ik hoop dat El_Presidente geïnspireerd is geraakt en voortbouwt op het stukje code dat ik hem aangaf. Bijvoorbeeld dat hij de code ook kan draaien door deze aan een button toe te wijzen.
Zijn we niet allemaal begonnen door te vragen?
Misschien dat ik wat verder ben qua Excelkennis en VBA een beetje kan lezen en daardoor een code makkelijker werkend kan krijgen..
Maar goed, nu de code stap voor stap doornemen en snappen, dan schiet je er wat me op
Maar op verzoek:
| 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 45 | Sub AddCellVal() 'open een subroutine met een herkenbare naam Dim Str As String 'declareer een string variabele met de naam Str Dim i As Integer 'declareer teller i als integer (waarde van -32000 tot +32000) 'we maken een loop met een teller 'in de for loop tellen we met stappen van 1 tot 50 'je kan ook met stappen van bijvoorbeeld twee tellen door 'for i = 1 to 50 step 2 te gebruiken 'werken met een teller is handig omdat we de teller 'meteen gebruiken voor navigatie door de sheet For i = 1 To 50 'als er een lege cel wordt aangetroffen stopt de loop 'door "exit for" if cells(i,1)="" then exit for 'als er geen lege cel wordt aangetroffen 'rijgen we de stringvariabele "Str" met de celwaarden aaneen 'voorzien van een ", " komma spatie 'we lopen door de sheet heen waarin de code is 'aangebracht. Als je deze code vanuit een andere sheet of uit een module draait 'moet je aanwijzen waar de cells zich bevinden door 'bijvoorbeeld sheets("SHEETNAAM").cells(RIJ,KOLOM) of activesheet.cells(RIJ,KOLOM) 'ik maak gebruik van cells in plaats van Range omdat ik dan kan tellen door zowel 'rijen als kolommen (range vraagt celnamen, bv "A1") Str = Str & Cells(i, 1) & ", " 'door de statement "Next" springt de code terug naar het begin van de loop 'als de for loop wordt onderbroken door "exit for" of als er tot 50 is geteld 'gaat de code verder na de "next" statement Next 'De cel die geselecteerd was toen je de code liet draaien 'is de active cell, alternatief kun je verwijzen naar een statische cel 'door deze vast te zetten, bijvoorbeeld cel C1 -> activesheet.cells(1,3) of 'cel C1 in een tabblad met de naam "resultaat" -> sheets("resultaat").cells(1,3) 'ook kun je in dit geval gebruik maken van Range: sheets("resultaat").range("C3") 'zie ook activeworkbook en worbooks("workbooknaam") om 'tussen twee verschillen excel workbooks te schakelen ActiveCell.Value = Str End Sub |
een volledige verwijzing die onafhankelijk van de sheet of module waar de code instaat ziet er als volgt uit:
workbooks("werkboeknaam").sheets("sheetnaam").cells(RIJNUMMER, KOLOMNUMMER)
[ Bericht 5% gewijzigd door #ANONIEM op 18-12-2011 17:52:36 ]
ook niet met een gave sumproduct-formule?quote:
I wish... Fap fap fapquote:Op vrijdag 23 december 2011 14:24 schreef Deetch het volgende:
[..]
ook niet met een gave sumproduct-formule?
Nou ja... http://social.msdn.micros(...)e3-b4e2-0976950ae9faquote:
http://joymonscode.blogsp(...)from-excel-file.html
Ja, deze code scant naar plaatjes in een excel file en geeft het relatieve adres, herkenning van wat in het plaatje te zien is doet het echter niet.quote:
[..]
Nou ja... http://social.msdn.micros(...)e3-b4e2-0976950ae9fa
http://joymonscode.blogsp(...)from-excel-file.html
Dan zou je moeten doorcoderen met gebruik van een OCR lib, maar die zijn gesloten (vaak)
dus, geen kans
Owquote:
[..]
Ja, deze code scant naar plaatjes in een excel file en geeft het relatieve adres, herkenning van wat in het plaatje te zien is doet het echter niet.
Dan zou je moeten doorcoderen met gebruik van een OCR lib, maar die zijn gesloten (vaak)
dus, geen kans
Had het artikel ff snel gescand, niet goed gelezen dus zou ook hele knappe code zijn, google zou dol op die jongen zijn, en captcha makers niet zoquote:
[..]
Ow
Nou ja, een zwart plusje op een witte achtergrond is wel heel anders dan kromme, onduidelijke letters op een gekleurde achtergondquote:
[..]
zou ook hele knappe code zijn, google zou dol op die jongen zijn, en captcha makers niet zo
Het waarom blijft echter.
Dat had ik ook al aangegeven in post #43 maar ik vraag me af in hoevere die gedocumenteerd en open zijn. Daarbij inderdaad, hoe interessant is het om je erin te verdiepen, ik ben het zelf nog nooit tegengekomen (de wens om plaatjes te lezen in excel)quote:
Het kan best, er zijn open source OCR bibliotheken die je met excel (al dan niet met wat klussen) aan kan spreken.
Het waarom blijft echter.
Het bijgevoegde voorbeeld kent drie bladen; één met filtercriteria , één met de database en één waarin de output geplaats moet worden. Op basis van de criteria geplaatst in het eerste blad wil ik graag in het derde blad alle spelers krijgen die aan beide criteria voldoen. Omdat sommige spelers meerdere keren voorkomen in de database, zou ik graag zien dat elke speler maar één keer in het derde blad (de output) terecht komt.
Ik redelijk thuis in Excel, maar van het programmeren in VBA heb ik absoluut geen kaas gegeten. Met filteren kom ik al een heel eind, maar de slag naar unieke records kan ik maar niet slaan. Daarnaast zou het ook heerlijk zijn om alleen maar criteria in te hoeven vullen in plaats van telkens de filters aan te passen. Volgens mij moet dit mogelijk zijn met behulp van VBA, maar ik ken de krachten van die tool ook niet echt goed...
http://www.mediafire.com/?h4sx6dmyjf5oh5d
Ik heb de file bekeken en dat is heel goed mogelijk, ik zou dit in een handomdraai kunnen programmeren, echter, wat is jouw doel?
Wil je een kant en klaar product of wil je leren hoe je het aan moet pakken?
Daarbij heb ik wel aanvullende vragen over de filtercriteria, namelijk in je eerste criteria "kwaliteit" noem je eigenlijk twee keuzemogelijkheden.
Wil je dus een formulier met drie rolmenutjes die als volgt heten:
Kwaliteit 1
Kwaliteit 2 (optioneel)
Lengte
En dan een ok button die alle unieke spelers in blad drie neergooit?
[ Bericht 0% gewijzigd door #ANONIEM op 29-12-2011 19:38:53 ]
Want dan wordt VBA wel een erge trage optie (ik neem ook aan dat je excel >2007 draait?)
En een uitleg hoe het zou moeten zou fijn en leerzaam zijn, maar denk ik dat ik beter eerst kan beginnen met een standaardcursus programmeren om zo zelf tot een uitkomst te komen. Een VBA code zou wat betreft betreft dus al genoeg zijn en ontzettend gewaardeerd worden! Met de opzet van zo'n code zou ik deze aan kunnen passen zodat 'ie toepasbaar is op de database waarvoor de code daadwerkelijk gebruikt gaat worden.
De sheet die bijgevoegd is, is min of meer een voorbeeld van mijn volledige database die bedrijfsgevoelige informatie bevat. De 'voetballers' -voorbeelden zijn meer een greep uit mijn eigen belevingswereld
De namen zelf in dit voorbeeld zijn de unieke regelsDe criteria die ik graag wil gebruiken zijn twee verschillende;
1. Alle regels uit kolom C met óf "eigenschap 1" óf "eigenschap 2" overhouden
2. Alle regels uit kolom D met een waarde tussen "x" en "y"
Ja, dat zijn ze dus niet, dus nogmaals, hebben de echte regels een voor en achternaam of gaat het hier ook om alleen voornamen?quote:
De namen zelf in dit voorbeeld zijn de unieke regels
Daarnaast, 200.000 regels is veel voor VBA, wat je namelijk gaat doen is tellen en door de cellen lopen met een for loop
-----pseudocode-------------------------
For i = 1 to endoflist
if cell(i,3)= criteria1 and cell (i,4) = criteria3 or cell(i,3) = criteria2 and cell (i,4) = criteria3 then
kopieer naar ander blad
end if
next
----------------------------------------------------------
Daarna zal je in blad met resultaten nog een keer moeten loopen om alle dubbels eruit te gooien
zegmaar
Bij 200000 regels ga je denken dat excel vast is gelopen
Ik vraag me ook af in welke database de data oorspronkelijk staat, met een simpele SQL opdracht heb je dan in een handomdraai je data
(bv welke excelversie draai je)
Ik ga geen kant en klaar product leveren, tenminste niet zomaar, je zal hier zelf effort in moeten steken. Ik wil je wel uitleggen hoe je door bladen heen loopt en hoe je een formulier aanmaakt en een rolmenu vult.
Je zal echter zeker moeten zijn dat je een database hebt met werkelijk unieke records, iets wat in excel (zeker met 200000 regels) erg lastig wordt, is chris van 24 jaar dezelfde chris van 25 jaar? of zijn er twee chrissen van 24?
Ben je überhaupt thuis ind e VBA editor van Excel?
Wat voor taal is jouw excel?
Fijn dat je er al naar gekeken hebt!Voornaamste reden waarom het niet in Access staat is dat ik op deze werkplek geen Access heb... Belachelijk maar waar. Ik ga het thuis proberen te plaatsen in Access. Is er ook een topic voor vragen over dat programma?
Ik probeer via een vlookup meerdere resultaten weer te geven. Dat heb ik gedaan d.m.v.
http://www.get-digital-he(...)ng-vlookup-in-excel/
(En dan het onderste voorbeeld, met VBA)
Nu heb ik het in mijn eigen workbook gezet ( http://dl.dropbox.com/u/7579065/Vlookup_Macro_Test.xlsm
) alleen krijg geeft de functie elke keer alleen het eerste resultaat weer.
Dus in de eerste rij op blad twee staat 9x 69947373E, terwijl ik graag 69947373E 69947374F 69947375G, etc. zou willen zien. Hoe krijg ik dit voor elkaar? In het voorbeeld van de bovengenoemde site doen ze het, volgens mij, precies zo als ik het gedaan heb.
Het is een beetje een warrig verhaal, weet niet beter hoe ik het moet omschrijven. Daarom heb ik mijn excel file maar even online gezet. Hopelijk wil iemand er even naar kijken
En dan nog een vraag, kan ik met deze, of een aangepaste functie, niet alleen zoeken op de inhoud van een cel maar ook op de opmaak? Ik heb namelijk aardig wat identieke nummers die ik in mijn sheets uit elkaar houd door de cel een achtergrondkleur te geven.
Dus als ik zoek naar [1x] wil ik niet dat [BLAUWEACHTERGROND 1x] zijn resultaten weergegeven worden. En vice versa natuurlijk.
Kan dat?
Als iets niet duidelijk is of ik te weinig informatie heb gegeven dan hoor ik het graag.
Alvast bedankt voor alle eventuele hulp!
(Invoegen, meer besturings elementen, microsoft date and time picker)
Zie ook hier :
http://danielcurran.com/i(...)excel-choose-a-date/
Op mijn pc werkt dit goed, maar als ik deze excel sheet bij collegas inlees klopt er niets meer van die dropdown, die wordt bij de ene collega opeens heel groot met een veel grotere spatiering tussen de datums waardoor het niet meer overzichtelijk is, en bij de andere collega krijg ik bij de dropdown alleen heel groot linksonder te zien van de datums.
Heeft iemand hier misschien een idee wat er precies fout is op die andere pc's of bij mij toevallig wel goed is.
Schermresolutie en zoomniveau in Excel is overal gelijk?quote:
Ik heb in excel 2007 op mijn werk pc een sheet gemaakt waarin een dropown van de datum zit.
(Invoegen, meer besturings elementen, microsoft date and time picker)
Zie ook hier :
http://danielcurran.com/i(...)excel-choose-a-date/
Op mijn pc werkt dit goed, maar als ik deze excel sheet bij collegas inlees klopt er niets meer van die dropdown, die wordt bij de ene collega opeens heel groot met een veel grotere spatiering tussen de datums waardoor het niet meer overzichtelijk is, en bij de andere collega krijg ik bij de dropdown alleen heel groot linksonder te zien van de datums.
Heeft iemand hier misschien een idee wat er precies fout is op die andere pc's of bij mij toevallig wel goed is.
http://thefinch.wordpress(...)terhalen-zonder-vba/quote:Op maandag 2 januari 2012 17:03 schreef Jesse_ het volgende:
En dan nog een vraag, kan ik met deze, of een aangepaste functie, niet alleen zoeken op de inhoud van een cel maar ook op de opmaak? Ik heb namelijk aardig wat identieke nummers die ik in mijn sheets uit elkaar houd door de cel een achtergrondkleur te geven.
Dus als ik zoek naar [1x] wil ik niet dat [BLAUWEACHTERGROND 1x] zijn resultaten weergegeven worden. En vice versa natuurlijk.
Kan dat?
Als iets niet duidelijk is of ik te weinig informatie heb gegeven dan hoor ik het graag.
Alvast bedankt voor alle eventuele hulp!
Maar Excel, CSV en Unicode is helemaal een ramp.
Misschien een gouden tip voor het hanteren van Non-western CSV's, zonder dat ik naar zoiets als LibreOffice (
) moet grijpen?Alvast bedankt.
Schermresolutie volgens mij niet, het zoomniveau heb ik wel overal op 100% gezet. Het zou natuurlijk ook nog aan de land instellingen en of tekengrote / andere profiel/ thema gerelateerde dingen kunnen liggen. Alhoewel ik dat niet zou verwachten. Dadelijk maar eens even wat testen.quote:
[..]
Schermresolutie en zoomniveau in Excel is overal gelijk?
csv is toch afhankelijk van je landinstellingen of het werkt zoals het ooit bedoelt was. CSV staat eigenlijk voor comma separated values. Maar microsoft heeft bedacht dat de comma's niet perse gebruikt hoeven te worden en als je in je landinstellingen een ander scheidingsteken instelt schrijft excel daarme de csv uit. Als je dan wat oudere programma's hebt die er standaard vanuit gaan dat csv wel door comma's gescheiden worden gaat het fout.quote:
Excel en CSV is nooit echt een goed huwelijk geweest.
Maar Excel, CSV en Unicode is helemaal een ramp.
Misschien een gouden tip voor het hanteren van Non-western CSV's, zonder dat ik naar zoiets als LibreOffice (
Alvast bedankt.
Dat was idd ook een probleem, maar hebben we idd opgelost door het locale op United Kingdom te zettenquote:
[..]
csv is toch afhankelijk van je landinstellingen of het werkt zoals het ooit bedoelt was. CSV staat eigenlijk voor comma separated values. Maar microsoft heeft bedacht dat de comma's niet perse gebruikt hoeven te worden en als je in je landinstellingen een ander scheidingsteken instelt schrijft excel daarme de csv uit. Als je dan wat oudere programma's hebt die er standaard vanuit gaan dat csv wel door comma's gescheiden worden gaat het fout.
Zelfs in Excel 2010 werkt dat gaar.Het probleem is hier dat bepaalde non-western characters in vraagtekens veranderen, zodra je ze convert van XLS naar CSV in Excel (2003).
Aha, dank jequote:
[..]
http://thefinch.wordpress(...)terhalen-zonder-vba/
Nu mijn eerste probleem nog. Dus als iemand er even naar kijken, heel graag.
Ik heb nu het volgende bedacht:
met dit VBA script:
| 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 | Function vbaVlookup(lookup_value As Range, tbl As Range, col_index_num As Integer, Optional layout As String = "v") Dim r As Single, Lrow, Lcol As Single, temp() As Variant ReDim temp(0) For r = 1 To tbl.Rows.Count If lookup_value = tbl.Cells(r, 1) Then temp(UBound(temp)) = tbl.Cells(r, col_index_num) ReDim Preserve temp(UBound(temp) + 1) End If Next r If layout = "h" Then Lcol = Range(Application.Caller.Address).Columns.Count For r = UBound(temp) To Lcol temp(UBound(temp)) = "" ReDim Preserve temp(UBound(temp) + 1) Next r ReDim Preserve temp(UBound(temp) - 1) vbaVlookup = temp Else Lrow = Range(Application.Caller.Address).Rows.Count For r = UBound(temp) To Lrow temp(UBound(temp)) = "" ReDim Preserve temp(UBound(temp) + 1) Next r ReDim Preserve temp(UBound(temp) - 1) vbaVlookup = Application.Transpose(temp) End If End Function |
Wil ik de resultaten die bij een productnummer horizontaal laten weer geven,
dus prodnr.131 onderdeel1 onderdeel2. etc. tot alle genoemd zijn.
En de range die ik hierin mee geef wil ik graag afhankelijk laten worden van de kleur die de cell heeft. Dit d.m.v. een script zoals hier gepost. Ik heb alleen +/- 10 verschillende kleuren, kan ik dit in een IF statement verwerken in de zelfgemaakte functie vbaVlookup?
Het eerste deel van mijn eerste post is op dit moment nog wat belangrijker voor mij, want zonder dat kan ik wat ik nu bedacht heb niet gaan testen
(heb hem nogmaals online gezet, zonder de makro aangezien vast niet iedereen dat vertrouwt)
http://dl.dropbox.com/u/7579065/Vlookup_Macro_Test.xlsx De makro in de code hierboven moet er dan alleen nog los als een module ingezet worden.
Alvast bedankt voor de eventuele hulp en moeite
Tip 1: De help functie van excel of visual basic voor excel kan je echt een eind op weg helpen ! (F1)
Biedt geen uitkomst
Tip 2: Als je een vraag stelt, zet er dan bij welke versie je hebt en op welke taal hij ingesteld staat!
Excel 2003 Engels
Tip 3: Zet macrocode even tussen [ code ] tags
Tja... dat is 'm nou net. Heb een sheet van een ander die naar ik vermoed een query bevat die door een macro gestart kan worden en data uit een ERP (o.i.d.) systeem haalt.
Bij openen van het bestand vraagt Excel, zoals gebruikelijk, toestemming macro's te gebruiken, die geef ik. Vervolgens ontbreekt ieder spoor van de macro.
Hoe vind ik deze macro terug die mijn query kan starten? (Tools, Macro, Macro's / Alt + F8 heb ik natuurlijk al geporbeerd)
Alvast bedankt!
probeer alt f11 even, dan kom je bij VBA dingen terechtquote:
Hello, als nieuweling in dit topic zal ik proberen me zo goed mogelijk aan de regels te houden ondanks dat het juist onderdeel van mijn probleem is:
Tip 1: De help functie van excel of visual basic voor excel kan je echt een eind op weg helpen ! (F1)
Biedt geen uitkomst
Tip 2: Als je een vraag stelt, zet er dan bij welke versie je hebt en op welke taal hij ingesteld staat!
Excel 2003 Engels
Tip 3: Zet macrocode even tussen [ code ] tags
Tja... dat is 'm nou net. Heb een sheet van een ander die naar ik vermoed een query bevat die door een macro gestart kan worden en data uit een ERP (o.i.d.) systeem haalt.
Bij openen van het bestand vraagt Excel, zoals gebruikelijk, toestemming macro's te gebruiken, die geef ik. Vervolgens ontbreekt ieder spoor van de macro.
Hoe vind ik deze macro terug die mijn query kan starten? (Tools, Macro, Macro's / Alt + F8 heb ik natuurlijk al geporbeerd)
Alvast bedankt!
Mijn mss verstopt? Wat betekent dat? Alt+F11 geeft: Zie onderstaandquote:
thnx, daarin staat:quote:
[..]
probeer alt f11 even, dan kom je bij VBA dingen terecht
"Sub XXXXXXonRefresh(queryID As String, resultArea As Range)
End Sub"
Verder niets, kan ik daar iets mee? VCA is niet voor mij
Ja code kan gehuwde zijn dus dat je er niet bij kan als je bv wachtwoord niet hebt.
Denk dat je dan onderhand moet gaan denken aan een alternatieve oplossing.quote:
Wat is het maximum aantal geneste if statements in excel 2007? (en 2010?) Ik lees namelijk dat 2003 er max 7 aankan, terwijl ik er 16 nodig heb voor mijn oplossing
Dat laat mijn kennis van excel en VBA niet toequote:Op dinsdag 3 januari 2012 16:37 schreef Citizen.Erased het volgende:
[..]
Denk dat je dan onderhand moet gaan denken aan een alternatieve oplossing.
Misschien dat iemand hier een oplossing heeft:
Ik gebruik deze formule om nummers uit een ander sheet horizontaal weer te geven (dit werkt)
| 1 | INDEX(Nummers!$C$2:$C$538; SMALL(IF($A1=Nummers!$A$2:$A$538; ROW(Nummers!$A$2:$A$538)-MIN(ROW(Nummers!$A$2:$A$538))+1; ""); COLUMN(A1))) |
Nou wil ik alleen niet dat voor elk getal uit kolom A het hele andere bestand (of sheet) doorzocht wordt.Dit omdat er dubbelen in staan.
Deze dubbele entries zijn ondanks dat ze de naam delen wel degelijk uniek en ik maak onderscheid door ze een kleur te geven.
Nu wil ik dus dat deze zoekopdracht per kleur een afgebakend gebied van de sheet met de data doorzoekt.
Dit heb ik geprobeerd door in kolom B de kleur, d.m.v. een VBA script, om te zetten in een nummer. En dit nummer bepaalt in welk deel
gezocht mag worden.
Dit had ik me zo voorgesteld:
| 1 | IF($B2=3;INDEX(kleurtest!$B$17:$B$38; SMALL(IF($A2=kleurtest!A17:A38; ROW(kleurtest!A17:A38)-MIN(ROW(kleurtest!A17:A38))+1; ""); COLUMN(A1))); IF($B2=6;INDEX(kleurtest!B2:B14; SMALL(IF($A2=kleurtest!A2:A14; ROW(kleurtest!A2:A14)-MIN(ROW(kleurtest!A2:A14))+1; ""); COLUMN(A1)));"Etcetera, alleen kom ik IFjes tekort") |
Is er hier iemand die misschien een handige oplossing weet? Of me in ieder geval in een oplossingsrichting kan duwen?
Verder zou ik als ik jou was dan voor sommige zoekfuncties met losse tabbladen waar wel dingen mogen verdwijnen gaan werken.
Ik wil in een macro het aantal rijen (zonder filters aan o.i.d.) van een lijst hebben. Met dat aantal wil ik een For/Next ding maken om per rij telkens wat gegevens uit cellen over te plaatsen naar cellen op een ander tabblad. Ook hoe ik tijdens die loop dan die cellen en rijen zou moeten benoemen (juiste syntax zeg maar) is me nog niet helemaal duidelijk.
Anyone iets om me op weg te helpen? Exacte code is handig natuurlijk, maar daar leer ik verder niet zoveel van.
.for rij = n to m
next rij
cells(rij,kolom)
sheets('sheetnaam')
Wat heb je dan zelf gevonden waar je neit uit komt?quote:
Maar goed, ik ga wel verder zoeken.
je vraag is dus niet 'snap het niet' maar 'kan iemand dit voor mij maken'?quote:
Ja vanalles. Ik heb de hele middag zitten zoeken op 'VBA count rows' e.d. in weetikhoeveel varianten, en dingetjes met een loop. Dan kom ik bv. een script tegen dat het aantal rijen telt en met een loop vanaf de laatste rij terug elke lege rij delete. Leuk, maar dat is het net niet, en zelfs dat tellen is al niet helemaal zoals ik het wil hebben.
Maar goed, ik ga wel verder zoeken.
Kan je die vba dingen die het bijna doen dan niet wat aanpassen?quote:
Ja vanalles. Ik heb de hele middag zitten zoeken op 'VBA count rows' e.d. in weetikhoeveel varianten, en dingetjes met een loop. Dan kom ik bv. een script tegen dat het aantal rijen telt en met een loop vanaf de laatste rij terug elke lege rij delete. Leuk, maar dat is het net niet, en zelfs dat tellen is al niet helemaal zoals ik het wil hebben.
Maar goed, ik ga wel verder zoeken.
Als je namelijk een schuld X hebt, en je lost iedere maand een deel af en iedere maand een deel rente van je hele rentesom over dat jaar. Hoe bereken je dan een jaarlast? Want aan het begin van het jaar is de Rentelast hoger dan aan het eind van het jaar, je hebt immers afgelost
Net als met sparen, de rente die je ontvangt, als je iedere maand wat spaart, hoe bereken je dan de rente over het hele jaar, want aan het eind van het jaar staat er meer op de rekening dan aan het begin.
Er zijn verschillende manieren om dat te bereken, met ook ieder een verschillende uitkomst. Met rente is het soms zo dat je aan het einde van het jaar rente krijgt over het gemiddelde bedrag wat op je rekening staat. Dus sparen in januari is gunstiger dan in december. Het kan ook zijn dat je bank het berekend aan de hand van het saldo op 1-1 en je extra rente geeft voor iedere euro daarboven die je op je rekening laat staan. Op deze manier wordt geld opnemen eigenlijk ontmoedigt..quote:
Ik zit al een tijdje de dubben over een sheet voor het berekenen van hypotheeklasten en voor sparen
Als je namelijk een schuld X hebt, en je lost iedere maand een deel af en iedere maand een deel rente van je hele rentesom over dat jaar. Hoe bereken je dan een jaarlast? Want aan het begin van het jaar is de Rentelast hoger dan aan het eind van het jaar, je hebt immers afgelost
Net als met sparen, de rente die je ontvangt, als je iedere maand wat spaart, hoe bereken je dan de rente over het hele jaar, want aan het eind van het jaar staat er meer op de rekening dan aan het begin.
Met je hypotheek zou je 12 keer je maandlasten uit kunnen rekenen, die bij elkaar optellen en delen door 12, dan heb je je gemiddelde maandlasten in 1 jaar. Vraag anders even na bij je bank/hypotheekverstrekker hoe zij het berekenen
Zoals ik al zei, een compleet iets zou handig zijn maar daar leer ik weer niks van. Dus ik zoek nog wel even verder.quote:
je vraag is dus niet 'snap het niet' maar 'kan iemand dit voor mij maken'?
| 1 2 3 4 5 6 7 8 9 10 11 12 13 | =IF($B2=-4142;INDEX('[Alles.xlsx]-4142'!$C$2:$C$7209; SMALL(IF($A2='[Alles.xlsx]-4142'!$A$2:$A$7209; ROW('[Alles.xlsx]-4142'!$A$2:$A$7209)-MIN(ROW('[Alles.xlsx]-4142'!$A$2:$A$7209))+1; ""); COLUMN(A1))); IF($B2=3;INDEX('[Alles.xlsx]3'!$C$2:$C$7209; SMALL(IF($A2='[Alles.xlsx]3'!$A$2:$A$7209; ROW('[Alles.xlsx]3'!$A$2:$A$7209)-MIN(ROW('[Alles.xlsx]3'!$A$2:$A$7209))+1; ""); COLUMN(A1))); IF($B2=6;INDEX('[Alles.xlsx]6'!$C$2:$C$7209; SMALL(IF($A2='[Alles.xlsx]6'!$A$2:$A$7209; ROW('[Alles.xlsx]6'!$A$2:$A$7209)-MIN(ROW('[Alles.xlsx]6'!$A$2:$A$7209))+1; ""); COLUMN(A1))); IF($B2=12;INDEX('[Alles.xlsx]12'!$C$2:$C$7209; SMALL(IF($A2='[Alles.xlsx]12'!$A$2:$A$7209; ROW('[Alles.xlsx]12'!$A$2:$A$7209)-MIN(ROW('[Alles.xlsx]12'!$A$2:$A$7209))+1; ""); COLUMN(A1))); IF($B2=14;INDEX('[Alles.xlsx]14'!$C$2:$C$7209; SMALL(IF($A2='[Alles.xlsx]14'!$A$2:$A$7209; ROW('[Alles.xlsx]14'!$A$2:$A$7209)-MIN(ROW('[Alles.xlsx]14'!$A$2:$A$7209))+1; ""); COLUMN(A1))); IF($B2=33;INDEX('[Alles.xlsx]33'!$C$2:$C$7209; SMALL(IF($A2='[Alles.xlsx]33'!$A$2:$A$7209; ROW('[Alles.xlsx]33'!$A$2:$A$7209)-MIN(ROW('[Alles.xlsx]33'!$A$2:$A$7209))+1; ""); COLUMN(A1))); IF($B2=37;INDEX('[Alles.xlsx]37'!$C$2:$C$7209; SMALL(IF($A2='[Alles.xlsx]37'!$A$2:$A$7209; ROW('[Alles.xlsx]37'!$A$2:$A$7209)-MIN(ROW('[Alles.xlsx]37'!$A$2:$A$7209))+1; ""); COLUMN(A1))); IF($B2=40;INDEX('[Alles.xlsx]40'!$C$2:$C$7209; SMALL(IF($A2='[Alles.xlsx]40'!$A$2:$A$7209; ROW('[Alles.xlsx]40'!$A$2:$A$7209)-MIN(ROW('[Alles.xlsx]40'!$A$2:$A$7209))+1; ""); COLUMN(A1))); IF($B2=43;INDEX('[Alles.xlsx]43'!$C$2:$C$7209; SMALL(IF($A2='[Alles.xlsx]43'!$A$2:$A$7209; ROW('[Alles.xlsx]43'!$A$2:$A$7209)-MIN(ROW('[Alles.xlsx]43'!$A$2:$A$7209))+1; ""); COLUMN(A1))); IF($B2=44;INDEX('[Alles.xlsx]44'!$C$2:$C$7209; SMALL(IF($A2='[Alles.xlsx]44'!$A$2:$A$7209; ROW('[Alles.xlsx]44'!$A$2:$A$7209)-MIN(ROW('[Alles.xlsx]44'!$A$2:$A$7209))+1; ""); COLUMN(A1))); IF($B2=46;INDEX('[Alles.xlsx]46'!$C$2:$C$7209; SMALL(IF($A2='[Alles.xlsx]46'!$A$2:$A$7209; ROW('[Alles.xlsx]46'!$A$2:$A$7209)-MIN(ROW('[Alles.xlsx]46'!$A$2:$A$7209))+1; ""); COLUMN(A1))); IF($B2=47;INDEX('[Alles.xlsx]47'!$C$2:$C$7209; SMALL(IF($A2='[Alles.xlsx]47'!$A$2:$A$7209; ROW('[Alles.xlsx]47'!$A$2:$A$7209)-MIN(ROW('[Alles.xlsx]47'!$A$2:$A$7209))+1; ""); COLUMN(A1))); IF($B2=53;INDEX('[Alles.xlsx]53'!$C$2:$C$7209; SMALL(IF($A2='[Alles.xlsx]53'!$A$2:$A$7209; ROW('[Alles.xlsx]53'!$A$2:$A$7209)-MIN(ROW('[Alles.xlsx]53'!$A$2:$A$7209))+1; ""); COLUMN(A1))); "ERROR, geen matchende kleurcode!"))))))))))))) |
Iemand misschien enig idee hoe ik dit efficiënter kan doen? Excel en mijn pc hebben er nog al wat moeite mee om een sheet hiermee weer te geven.
Elke IF laat de functie zoeken op een tablad in het bestand Alles dat overeenkomt met een kleur in een cel eerder.
Ik heb al wel de grootste tabladen de laagste nummers gegeven maar dat helpt vrijwel niks
Ik ben nog niet bekend met deze functiequote:
Werkt de case functie niet, of bestaat deze niet in vba excel?
functie? je bedoelt gewoonquote:
Werkt de case functie niet, of bestaat deze niet in vba excel?
| 1 2 3 4 5 6 | select case Cells(1,1).Value case "jantje" MsgBox "het is jantje" case Else MsgBox "het is iemand anders" end select |
Ja die bedoel ik dan heeft de vraag steller geen last van het beperkt kunnen nesten van if then els constructies.quote:
Zie ook onderstaande voorbeelden :
http://www.databison.com/(...)-statement-in-excel/
VLOOKUP en je INDEX maken met namen in cellen en INDIRECT.quote:
[ code verwijderd ]
(er zitten enters in voor de leesbaarheid)
Iemand misschien enig idee hoe ik dit efficiënter kan doen? Excel en mijn pc hebben er nog al wat moeite mee om een sheet hiermee weer te geven.
Elke IF laat de functie zoeken op een tablad in het bestand Alles dat overeenkomt met een kleur in een cel eerder.
Ik heb al wel de grootste tabladen de laagste nummers gegeven maar dat helpt vrijwel niks
Ik heb in cel A1 een waarde als grondslag. Bij deze grondslag hoort een tabel met zoek bedragen en daarbij de waarde die ik wil weten. Deze bedragen zijn niet per definitie gelijk (dus VLOOKUP werkt niet) maar afgerond. Nu wil ik de afgeleide waarde weten. Hierbij moet echter gezocht worden naar de waarde die het dischte bij de grondslag ligt, maar nooit hoger is dan de grondslag.
Dus bv. een grondslag van 3250,51.
In de zoektabel komen zoekwaarden voor van bv. 3249,85 (met afgeleide waarde van 350) en 3250,52 (met afgeleide waarde van 375).
Hij moet dan de afgeleide waarde geven die hoort bij 3249,85 (dus eigenlijk een vlookup die zoekt naar de dichtsbijliggende waarde maar nooit hoger dan de grondslag); in dit geval dus 350.
Iemand een suggestie hoe dit te doen??
Nadeel is wel dat je lijst gesorteerd MOET zijn.
Dat het zo simpel zou zijn......quote:Op donderdag 5 januari 2012 13:37 schreef DaFan het volgende:
Met VLOOKUP en je laatste argument een 1 (benaderen, en die doet het grootste getal dat kleiner is dan te zoeken waarde).
Nadeel is wel dat je lijst gesorteerd MOET zijn.
Thanks.
Is er ook een mogelijkheid om een document sowieso te openen in alleen-lezen? Zodat anderen gewoon in het originele bestand kunnen.
Hoe kom ik er nu achter uit welk access bestand het excel bestand zijn data haalt?
Thanks
Wat ik dus wil, is dat er in een cel gechecked word of een andere cel een cijfer bevat.
Voorbeeld:
A1: 1.
B1: 1.
C1: 1.
D1: 4.
En dan moet er in een andere cel - we noemen hem voor het gemak A3 - , naar A1 t/m D1 gekeken worden of er een cijfer in staat. Wanneer er een 1 in staat, dan moet er een 1 bij geteld worden bij het originele getal (wat standaard op 0 staat) dat in A3 staat. Maar, dat moet dus continu gebeurd worden. Dus, als er in A1 staat: dan is het 0+1. Echter, als in B1 ook een 1 staat, dan moet er nog een 1 bij opgeteld worden. Kan dat?
Ik hoop dat jullie het snappen.
Voor mijn werk (office 2010), heb ik een lijst in excel met gegevens van klanten, deze bevat o.a.
naam bedrijf, plaats bedrijf, e-mail adres, heer/mevrouw, naam contactpersoon.
Elke dag komt er vanuit ons eigen software pakket (zoals SAP) een excel lijst met dezelfde gegevens en extra offerte informatie. Alleen de e-mail adressen ontbreken. Omdat ik vanuit bestand 2 in word een verzendlijst maak, en nu elke dag apart de betreffende mail adressen een voor een kopieer, vroeg ik me af of het mogelijk is in bestand 2 een nieuwe lege kolom toe te voegen en die met behulp van bestand 1 te laten invullen. Als het kan wel met een check van naam persoon en bedrijfsnaam. Zou me veel werk schelen, maar ik ben niet zo handig met excel.
bijvoorbeeld met een simpele teller
Uitgangspunten
sheet 2:
alles staat in het eerste tablad, eerste regel bevat kolomnamen
naam staat in sheet2.kolom 1
bedrijfsnaam in sheet2.kolom 2
het email adres moet in kolom 3 komen
sheet 1
alles staat in het eerste tabblad, eerste regel bevat kolomnamen
naam staat in sheet1.kolom 1
bedrijfsnaam in sheet1.kolom 2
email adres in sheet1.kolom 3
| 1 2 3 4 5 6 7 8 9 10 11 12 13 | for i = 2 to 32000 for j = 2 to 32000 if workbooks("sheet1").sheets("blad1").cells(j,1)=workbooks("sheet2").sheets("blad1").cells(i,1) and workbooks("sheet1").sheets("blad1").cells(j,2)=workbooks("sheet2").sheets("blad1").cells(i,2) then workbooks("sheet2").sheets("blad1").cells(i,3) = workbooks("sheet1").sheets("blad1").cells(j,3) exit for end if next next |
[ Bericht 0% gewijzigd door #ANONIEM op 11-01-2012 19:51:52 ]
Nou dat maakt toch ook niet uitquote:
Ik verwacht dat de lijst 2 per dag verschillend is anders zou vraagsteller ook dagelijks 1 kolom gekopieerd kunnen hebben.
Je loopt door lijst 1 heen en als de naam uit lijst 1 overeenkomt met de naam uit lijst 2 en idem voor bedrijfsnaam pak je het email adres
het punt is alleen dat de workbooks geen vaste naam zullen hebben.
Dus ik zou het oplossen door er een add-in van te maken met een simpel formulier met twee browse knoppen, 1 voor het bron bestand en 1 voor het doelbestand
edit;
daarbij tel ik nu tot 32000 en als ik het echt zou bouwen zou ik waarschijnlijk de lastactivecell pakken, maar dat is bijschaven
[ Bericht 7% gewijzigd door #ANONIEM op 11-01-2012 20:03:48 ]
En zoals ik zei dat pakket zoals sap waar het uit komt zal waarschijnlijk toch ook wel de mailadressen bevatten dus gewoon het rapport wat lijst 2 genereerd aanpassen. Sterker nog ze zouden een rapport moeten maken wat meteen de word documenten genereerd ipv die omslachtige wegen die bewandeld worden.
Zoals ik al zei, ik zou lastactivecell pakkenquote:
Klopt mijn fout. Gaat alleen jou oplossing niet een hele lang runtime hebben met 2 for loops in elkaar tot 32000?
En zoals ik zei dat pakket zoals sap waar het uit komt zal waarschijnlijk toch ook wel de mailadressen bevatten dus gewoon het rapport wat lijst 2 genereerd aanpassen. Sterker nog ze zouden een rapport moeten maken wat meteen de word documenten genereerd ipv die omslachtige wegen die bewandeld worden.
32000 is het max wat je een integer kan geven (of 64000 maar ik weet niet meteen of ze signed of unsigned zijn in vba)...
Daarbij doe ik exit for als het email adres is gevonden
maar ja, het kan wel een minuut of wat duren afhankelijk van je systeem
tijd voor koffie, beter dan adressen harken
edit;
En ja, SAP moet dit kunnen, maar ik snap de vraagsteller wel ,want als je ooit een wijziging hebt aangevraagd in SAP snap je dat ze het zelf liever nu oplost dan pas over drie jaar en twaalf budgetvergaderingen en 16 nieuwe bugs haar zin te hebben
SAP[ Bericht 12% gewijzigd door #ANONIEM op 11-01-2012 20:11:42 ]
SAP zou dit inderdaad moeten kunnen, alleen hebben we niet de mogelijkheid om bij een contactpersoon een mail adres in te voeren. Ergens dit jaar komt er een nieuwe SAP, en ik heb dit ook aangegeven, maar ja in de tussentijd zou het mijn werk een stuk sneller maken.
Wat knap trouwens dat jullie er zoveel van weten! Ik ben al blij dat ik de autosom functie weet te gebruiken.
Ja, sheet1 en sheet2 zijn de werkboeknamenquote:
Maakt het trouwens nog uit wat voor namen de bestanden krijgen?
blad1 is de naam van het tabblad waar de data staat
in mijn voorbeeld moeten beide workbooks open staan
Ik zou de code testen onder een macro:
| 1 2 3 4 5 | sub macro1() code end sub |
en die macro aanroepen
Uiteindelijk wil je een vaste oplossing, je zou een add-in kunnen maken (een derde sheet die je opslaat als add-in)
daar maak je de macro in en die kun je bijvoorbeeld aan een formulier (dialoogschermpje) hangen met twee browse knoppen om de juiste bestanden aan te wijzen.
Die add-in laad je vast in in excel. De macro kun je dan bijvoorbeeld onder een knop in een ribbon plaatsen. Die knop is er dan altijd en als je erop drukt komt er een dialoogschermpje met de browse knoppen.
Het is een hoop gehobby om dat uit te vogelen, maar aan de andere kant, je leert er een hoop van.
In het uiterste geval wil ik je ook wel helpen hoor, maar dan wil ik graag de twee sheets zien (zonder data, alleen kolomkoppen).
Alleen uit principe vind ik dat je eerst zelf moet vogelen en uitproberen
browseknop:
| 1 2 3 4 5 6 7 8 | Dim fn as string dim Worbook_1 as string fn = Application.GetOpenFilename If fn = False Then MsgBox "U drukte op Cancel" Else workbook_1= fn End If |
Met bovenstaande code onder een knop kun je workbook_1 en (met aanpassing) workbook_2 "aanwijzen"
Je moet elke routine in een sub vangen (zoals in het eerste stukje code sub Macro1(). .. end sub)
Je kan vanuit de ene sub de andere sub aanroepen door de naam te noemen van die routine(sub)
Vervang de 32000 uit mijn eerste post door bijv. 100 (100 regels) als het werkt kun je verder vogelen en uitzoeken hoe lastactivecell werkt. (als je code misgaat ergens en je telt 32000 keer naar 32000 dan lijkt het alsof je pc hangt)
Ellendig is dat Nl mensen de begrippen sheet verkeerd gebruiken, het bestand is eigenlijk een workbook, de tabbladen zijn sheets, in bovenstaande code heb ik het dus ook over workbook_1, dat is wat jij bedoelde met sheet1...
[ Bericht 3% gewijzigd door #ANONIEM op 12-01-2012 06:35:48 ]
Ben je voor je werk met excel bezig, dat je er zoveel van weet? Of is het een hobby?
Waar zie ik dat?quote:
Gekkie0000 let even op of de toolbar/ribbon voor ontwikkelaars wel aanstaat (in ieder geval in office 2007 moet ik dat altijd bij een nieuwe installatie altijd doen) anders kun je geen macro's ed toevoegen.
Als je hem niet ziet moet je hem aanzettenquote:
Help of zeg nietsquote:
[..]
Als je hem niet ziet moet je hem aanzetten
in ieder geval:
http://msdn.microsoft.com/en-us/library/ee814737.aspx
To enable the Developer tab
1.
On the File tab, choose Options to open the Excel Options dialog box.
2.
Click Customize Ribbon on the left side of the dialog box.
3.
Under Choose commands from on the left side of the dialog box, select Popular Commands.
4.
Under Customize the ribbon on the right side of the dialog box, select Main tabs, and then select the Developer check box.
5.
Click OK.
Oh boehoequote:
Dit zijn de begin bestanden.
Je hebt PMquote:
Kritische massa, als je me zou willen helpen als je er tijd voor hebt een keer zou ik het heel erg op prijs stellen. Ik heb de helft van de dag gevogeld, maar ik snap er echt niets van. Voel me heel dom...
[ afbeelding ]
[ afbeelding ]
Dit zijn de begin bestanden.
ik heb een voorbeeld voor je gebouwd http://www.mediafire.com/?n4hg8l23afynnr1
Volgens mij heb ik het geupload (vrij nieuwe materie, ik load nooit up
)Het is wel in excel 2003 format, dus ik weet niet of je als je mailmerge.xls inlaadt een net menu krijgt, maar dat schaven we wel bij
[ Bericht 20% gewijzigd door #ANONIEM op 12-01-2012 17:28:42 ]
Bedankt! Ga morgen testen, thuis ziet het menu er in ieder geval perfect uit!Ben helemaal happy.
let op he:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | Sub Samenvoegen() Workbooks.Open (WB_1) WB_1_Name = ActiveWorkbook.Name WB_1_LastCell = Workbooks(WB_1_Name).Sheets(1).Cells.SpecialCells(xlCellTypeLastCell).Row Workbooks.Open (WB_2) WB_2_Name = ActiveWorkbook.Name WB_2_LastCell = Workbooks(WB_2_Name).Sheets(1).Cells.SpecialCells(xlCellTypeLastCell).Row For i = 2 To WB_1_LastCell For j = 2 To WB_2_LastCell If Workbooks(WB_1_Name).Sheets(1).Cells(i, 1) = Workbooks(WB_2_Name).Sheets(1).Cells(j, 1) And Workbooks(WB_1_Name).Sheets(1).Cells(i, 2) = Workbooks(WB_2_Name).Sheets(1).Cells(j, 2) Then Workbooks(WB_2_Name).Sheets(1).Cells(j, 3) = Workbooks(WB_1_Name).Sheets(1).Cells(i, 3) End If Next Next End Sub |
Cells(i, 1) de 1 wijst hier naar kolom 1, als je kolom C wil vergelijken maak je hier kolom 3 van (gewoon tellen dus)
quote:
@Kritische massa, je bent geweldig! vandaag getest met mijn "eigen" bestanden en zelf de kolomnummers aangepast en het werkt perfect. Nog een keer hardstikke bedankt!
Dat is mooi
Probeer de code ook te snappen
heel ingewikkeld is het namelijk nietAls je de sheet "mailmerge" opslaat als add-in (.xla) kun je hem via add-in inladen vast in excel zetten, zo heb je dat menu altijd en heb je niet die extra sheet meer nodig
http://www.dq.winsila.com(...)-and-excel-2010.html
En je kunt het form natuurlijk altijd zelf pimpen met jouw naam in het userfform, zodat als collega's het gebruiken ze herinnerd worden aan jouw briljantheid
Ik heb al lang verteld dat een geweldige fokker dit voor me gemaakt heeft. Ik ga maandag verder proberen. Fijn weekend!quote:
En je kunt het form natuurlijk altijd zelf pimpen met jouw naam in het userfform, zodat als collega's het gebruiken ze herinnerd worden aan jouw briljantheid
In de VBA editor heb ik een form ingevoegd met 4 commandbuttons, twee tekstvakken en twee labels zoals weergegeven in het plaatje.
Ook heb ik twee modules ingevoegd en deze een handige naam gegeven, namelijk:
Routines
Variabelen
Ik heb eerst mijn variabelen gedeclareerd en deze public gemaakt zodat ze tussen routines uitgewisseld kunnen worden:
module "Variabelen"
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 | 'voor het overzicht declareer ik mijn variabelen altijd in een aparte module 'ik maak ze allemaal public, ook de tellers 'omdat deze voor navigatie worden gebruikt en ik ze eventueel bij uitbreiding van code en functies 'misschien wel wil hergebruiken Public fn As String Public WB_1 As String Public WB_1_Name As String Public WB_2 As String Public WB_2_Name As String Public WB_1_LastCell As Integer Public WB_2_LastCell As Integer Public i As Integer Public j As Integer |
In de module Routines heb ik de code gezet die het eigenlijke prgramma vormen en die moeten worden aangeroepen:
module "Routines"
| 1 2 3 4 5 6 | Sub Dialoog() 'Aanroepen Userform1, start van de routine MailMerge 'Deze routine wordt niet gebruikt maar is wel een macro die kan worden aangeroepen als het plaatsen 'van het menu niet is gelukt (ivm met office 2010 ribbon en het feit dat de code in office 2003 is gebouwd) UserForm1.Show End Sub |
| 1 2 3 4 5 | Sub Get_File() 'Aanroepen interne verkenner van Excel 'Het gekozen bestand wordt in de variabele "fn" opgeslagen fn = Application.GetOpenFilename End Sub |
| 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 | Sub Samenvoegen() 'Routine die wordt uitgevoerd wanneer er op "samenvoegen" wordt geklikt 'WB_1 is het bronbestand waar de email adressen in staan 'Deze is aangewezen door met behulp van de browse knop een bestand te kiezen Workbooks.Open (WB_1) 'Sla de naam van het workbook op in de variabele "WB_1_Name" WB_1_Name = ActiveWorkbook.Name 'Zoek de laatste actieve cell op van sheet WB_1 WB_1_LastCell = Workbooks(WB_1_Name).Sheets(1).Cells.SpecialCells(xlCellTypeLastCell).Row 'WB_2 is het SAP uitvoerbestand waar de email adressen in moeten komen 'Deze is aangewezen door met behulp van de browse knop een bestand te kiezen Workbooks.Open (WB_2) 'Sla de naam van het workbook op in de variabele "WB_2_Name" WB_2_Name = ActiveWorkbook.Name 'Zoek de laatste actieve cell op van sheet WB_1 WB_2_LastCell = Workbooks(WB_2_Name).Sheets(1).Cells.SpecialCells(xlCellTypeLastCell).Row 'met teller i lopen we door het bronbestand met de email adressen 'om de routine niet onnodig lang te laten duren tellen we tot de laatste actieve cel For i = 2 To WB_1_LastCell 'met teller j lopen we door het doelbestand waar de email adressen heen moeten 'om de routine niet onnodig lang te laten duren tellen we tot de laatste actieve cel For j = 2 To WB_2_LastCell 'Als de naam uit kolom 1 overeenkomt en het bedrijf uit kolom 2 kopieeren we het emailadres uit kolom 3 naar kolom 3 If Workbooks(WB_1_Name).Sheets(1).Cells(i, 1) = Workbooks(WB_2_Name).Sheets(1).Cells(j, 1) And Workbooks(WB_1_Name).Sheets(1).Cells(i, 2) = Workbooks(WB_2_Name).Sheets(1).Cells(j, 2) Then Workbooks(WB_2_Name).Sheets(1).Cells(j, 3) = Workbooks(WB_1_Name).Sheets(1).Cells(i, 3) End If Next Next End Sub |
| 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 45 | Sub AddMenus() 'Routine om een menu item toe te voegen aan excel 'We declareren een control, commandbar en een commandbarcontrol 'We willen het nieuwe menu voor het Help item in excel plaatsen Dim cMenu1 As CommandBarControl Dim cbMainMenuBar As CommandBar Dim iHelpMenu As Integer Dim cbcCustomMenu As CommandBarControl 'Schakel errordetectie uit omdat we geen lelijke melding willen in het volgende stuk 'voor de netheid verwijderen we namelijk eerst het menu item 'om te voorkomen dat er twee identiek menuitems kunnen bestaan On Error Resume Next 'verwijder het menu "mailmerge" 'als mailmerge niet bestaat geeft dit een fout 'maar foutdetect staat uit, dus code zal gewoon doorgaan Application.CommandBars("Worksheet Menu Bar").Controls("MailMerge").Delete 'zet error detect weer aan On Error GoTo 0 'stel een commandbar in in excel (application) Set cbMainMenuBar = Application.CommandBars("Worksheet Menu Bar") 'stel vast welk indexnummer het menu "Help" heeft iHelpMenu = cbMainMenuBar.Controls("Help").Index 'voeg het menu toe aan excel, voor het menu "Help" 'menutype is pop-up Set cbcCustomMenu = cbMainMenuBar.Controls.Add(Type:=msoControlPopup, Before:=iHelpMenu) 'stel de naam in van het menu cbcCustomMenu.Caption = "MailMerge" 'Voeg een item toe aan het menu With cbcCustomMenu.Controls.Add(Type:=msoControlButton) 'geef het item een naam .Caption = "Mailbestand Samenvoegen" 'geef het item een uit te voeren routine .OnAction = "OpenMe" 'geef het item een kek plaatje .FaceId = 733 End With End Sub |
Overzicht Kekke plaatjes inclusief FaceID nummer
| 1 2 3 4 5 | Sub OpenMe() 'er is geklikt op "mailbestand samenvoegen"in het menu "MailMerge" 'het dialoogscherm wordt aangeroepen UserForm1.Show End Sub |
| 1 2 3 4 5 6 7 | Sub DeleteMenu() 'als de gebruiker excel, of het bestand "MailMerge.xls", afsluit 'wordt deze routine aangeroepen om de menubar weer op te ruimen On Error Resume Next Application.CommandBars("Worksheet Menu Bar").Controls("MailMerge").Delete On Error GoTo 0 End Sub |
Vervolgens heb in "ThisWorkbook" code toegevoegd die moet worden uitgevoerd bij openen en sluiten van het workbook:
code in "ThisWorkbook"
| 1 2 3 4 5 6 7 8 9 | Private Sub Workbook_Open() 'actie als workbook wordt geopend AddMenus End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) 'actie als workbook wordt gesloten DeleteMenu End Sub |
In het form heb ik code toegevoegd die moet worden uitgevoerd bij het indrukken van de knoppen
code in "Userform1"
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | Private Sub CommandButton1_Click() 'Commandbuttonactie Browse bestand 1 Get_File TextBox1.Text = fn WB_1 = fn End Sub Private Sub CommandButton2_Click() 'Commandbuttonactie Browse bestand 2 Get_File TextBox2.Text = fn WB_2 = fn End Sub Private Sub CommandButton3_Click() 'Commandbuttonactie Samenvoegen Samenvoegen Unload Me End Sub Private Sub CommandButton4_Click() 'Commandbuttonactie Annuleer Unload Me End Sub |
In excel ziet het nieuwe menu er dan zo uit:
[ Bericht 4% gewijzigd door #ANONIEM op 14-01-2012 11:14:45 ]
Ik weet dat het in dit topic niet de bedoeling is om kant en klare programma's aan te reiken maar in dit geval was de oplossing tegelijk eenvoudig en ingewikkeld.
De code voor het samenvoegen is immers zo aan iemand uit te leggen, maar hoe je vervolgens ervoor zorgt dat je willekeurige workbooks kunt bewerken en hoe je ervoor zorgt dat de code op een gebruiksvriendelijke manier aan te bieden is, is andere koek.
In principe vind ik dat mensen zelf moeten vogelen, en afhankelijk van de uitgangskennis van de vraagsteller kan je ook wel inschatten of dat goed gaat komen, of niet.
Als iemand de VBA editor met moeite kan vinden is het goed om (naar mijn mening) een wat meer "kant en klare" oplossing aan te bieden in de hoop dat diegene dan verder kan vogelen om de code aan te passen naar eigen wens.
In het meest ideale geval raken mensen geïnspireerd en leren ze op basis van wat ze is aangereikt zichzelf nieuwe "skills" aan.
Ik het geval van Gekkie waren er een aantal zaken, waarvan de eerste ook terecht werd aangegeven, zorg ervoor dat SAP dit zelf doet! Echter uit ervaring weet ik dat je als individuele gebruiker erg hard moet trekken om iets voor elkaar te krijgen.
Juist de vrijheid die je hebt als je zelf in staat bent om met behulp van eigen kennis in de kantooromgeving zelf je eigen tools te bouwen (en die heb je met VBA) kan inspirerend werken.
Edit:
Ik heb een voorbeeld toegevoegd van een wat meer uitgebreid menu
FOK! Menu
SPOILER
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106Sub AddMenus()
'Routine om een menu item toe te voegen aan excel
Dim cbMainMenuBar As CommandBar
Dim iHelpMenu As Integer
Dim cMenu As CommandBarControl
Dim cMenu1 As CommandBarControl
Dim cMenu2 As CommandBarControl
Dim cMenu3 As CommandBarControl
'Schakel errordetectie uit omdat we geen lelijke melding willen in het volgende stuk
'voor de netheid verwijderen we namelijk eerst het menu item
'om te voorkomen dat er twee identiek menuitems kunnen bestaan
On Error Resume Next
'verwijder het menu "FOK! macro"
'als deze niet bestaat geeft dit een fout
'maar foutdetect staat uit, dus code zal gewoon doorgaan
Application.CommandBars("Worksheet Menu Bar").Controls("FOK! Macro").Delete
'zet error detect weer aan
On Error GoTo 0
'stel een commandbar in in excel (application)
Set cbMainMenuBar = Application.CommandBars("Worksheet Menu Bar")
'stel vast welk indexnummer het menu "Help" heeft
iHelpMenu = cbMainMenuBar.Controls("Help").Index
'voeg het menu toe aan excel, voor het menu "Help"
'menutype is pop-up
Set cMenu = cbMainMenuBar.Controls.Add(Type:=msoControlPopup, Before:=iHelpMenu)
'stel de naam in van het menu-item dat in de werkbalk van Excel zal verschijnen
cMenu.Caption = "FOK! Macro"
With cMenu.Controls.Add(Type:=msoControlButton)
.Caption = "FOK! Item 1"
.FaceId = 59
.OnAction = "MyMacro1"
End With
With cMenu.Controls.Add(Type:=msoControlButton)
.Caption = "FOK! Item 2"
.FaceId = 59
.OnAction = "MyMacro2"
End With
'De eerste groep macro's onder een eigen rolmenu
Set cMenu1 = cMenu.Controls.Add(Type:=msoControlPopup)
cMenu1.Caption = "FOK! submenu 1"
With cMenu1.Controls.Add(Type:=msoControlButton)
.Caption = "FOK! Item 3"
.FaceId = 59
.OnAction = "MyMacro3"
End With
With cMenu1.Controls.Add(Type:=msoControlButton)
.Caption = "FOK! item 4"
.FaceId = 59
.OnAction = "MyMacro4"
End With
'De tweede groep macro's onder een eigen rolmenu
Set cMenu2 = cMenu.Controls.Add(Type:=msoControlPopup)
cMenu2.Caption = "FOK! submenu 2"
With cMenu2.Controls.Add(Type:=msoControlButton)
.Caption = "FOK! Item 5"
.FaceId = 59
.OnAction = "MyMacro5"
End With
With cMenu2.Controls.Add(Type:=msoControlButton)
.Caption = "FOK! item 6"
.FaceId = 59
.OnAction = "MyMacro6"
End With
'De derde groep macro's onder een eigen rolmenu
Set cMenu3 = cMenu.Controls.Add(Type:=msoControlPopup)
cMenu3.Caption = "FOK! submenu 3"
With cMenu3.Controls.Add(Type:=msoControlButton)
.Caption = "FOK! Item 7"
.FaceId = 59
.OnAction = "MyMacro7"
End With
With cMenu3.Controls.Add(Type:=msoControlButton)
.Caption = "FOK! item 8"
.FaceId = 59
.OnAction = "MyMacro8"
End With
End Sub
Sub DeleteMenu()
'als de gebruiker excel, of het bestand "FOK menu.xls", afsluit
'wordt deze routine aangeroepen om de menubar weer op te ruimen
On Error Resume Next
Application.CommandBars("Worksheet Menu Bar").Controls("FOK! Macro").Delete
On Error GoTo 0
End Sub
[ Bericht 39% gewijzigd door #ANONIEM op 14-01-2012 14:21:50 ]
Heb je hier wat aan?quote:
Is het mogelijk om een recursieve functie uit te rekenen met Excel?
http://social.msdn.micros(...)3c-a990-046e987ab421
http://www.excelforum.com(...)ursive-function.html
bron: google...
Een recursieve functie als in Ackerman recursie? Dan denk ik dat je MathLab moet hebben.quote:
Is het mogelijk om een recursieve functie uit te rekenen met Excel?
Wat wil je precies doen?
quote:
[..]
Een recursieve functie als in Ackerman recursie? Dan denk ik dat je MathLab moet hebben.
Wat wil je precies doen?
Ik weet van te voren de gegevens in A1, A2 en A3. A4 is uitgerekend met de functie BET. Het antwoord dat ik wil weten is het bedrag in B17. Alleen de bedoeling is dat ik dat antwoord niet verkrijg door zo'n hele tabel op te stellen, maar door 1 formule (dus maar 1 cel) te gebruiken.SPOILER
http://office.microsoft.c(...)ons-HA001111701.aspx
Ik ga nu eens kijken of ik een vriend heb die informatica studeert zodat ik wel zo'n directe functie in Excel heb
Je wil dat het dus gebouwd wordt voor je, zeg dat dan...quote:
Ik heb het al anders gedaan. Ik had de formule van de bijbehorende rekenkundige rij opgesteld, een vriend gezocht die wiskunde studeert en hem de functie laten aanpassen zodat hij niet meer recursief was. En het werkte
Ik ga nu eens kijken of ik een vriend heb die informatica studeert zodat ik wel zo'n directe functie in Excel heb
| 1 2 3 4 5 6 7 8 9 10 | Function FOK(rente, startbedrag, aflossing, looptijd) For i = 1 To looptijd FOK = startbedrag - (aflossing - (rente / 100 * startbedrag)) startbedrag = FOK Next End Function |
Deze code in een module zetten en voila
Type in =FOK() en druk op fx
[ Bericht 1% gewijzigd door #ANONIEM op 14-01-2012 18:19:49 ]
Alleen verandert de verhouding tussen aflossing en rente elk jaar, dan kan je dit toch niet gebruiken?quote:Op zaterdag 14 januari 2012 18:14 schreef KritischeMassa het volgende:
[..]
Je wil dat het dus gebouwd wordt voor je, zeg dat dan...
[ code verwijderd ]
Deze code in een module zetten en voila
[ afbeelding ]
Type in =FOK() en druk op fx
Dit is de situatie:
Ik moet uitzoeken welke waarde er in cel B3 komt te staan, zodat de waardes in F11 en J11 gelijk zijn. Kan ik de doelzoeker gebruiken? En zo ja: hoe moet ik die invullen?SPOILER
Als er verder nog info nodig is over de gegevens die er in de sheet staan hoor ik het wel
Nou dat gebeurt toch ook, het startbedrag wordt steeds ge-updatequote:
[..]
Alleen verandert de verhouding tussen aflossing en rente elk jaar, dan kan je dit toch niet gebruiken?
Volgens mij werkt het, heb je het al getest?
Die looptijd in de functie is dus bijvoorbeeld 10
[ Bericht 4% gewijzigd door #ANONIEM op 14-01-2012 18:44:58 ]
Ik heb het net getest, maar als ik als aflossing die 24081,89 invul, looptijd 10, rente 5,5% en startbedrag 350.000, dan komt er iets heel anders uit...quote:
[..]
Nou dat gebeurt toch ook, het startbedrag wordt steeds ge-update
Volgens mij werkt het, heb je het al getest?
Die looptijd in de functie is dus bijvoorbeeld 10
is die 5,5 het getal 5,5 of 5,5% want ik deel die 5,5 eerst door 100quote:
[..]
Ik heb het net getest, maar als ik als aflossing die 24081,89 invul, looptijd 10, rente 5,5% en startbedrag 350.000, dan komt er iets heel anders uit...
0,055 en dan de cel als eigenschap percentage meegegeven.quote:
[..]
is die 5,5 het getal 5,5 of 5,5% want ik deel die 5,5 eerst door 100
Probeer het eens met het getal 5,5?quote:
[..]
0,055 en dan de cel als eigenschap percentage meegegeven.
Ja, nu werkt ie. Thanks!quote:
[..]
Probeer het eens met het getal 5,5?
Nu deze:
quote:
Maar ik zal hem zo proberen, eerst even het volgende
Dit is de situatie:Ik moet uitzoeken welke waarde er in cel B3 komt te staan, zodat de waardes in F11 en J11 gelijk zijn. Kan ik de doelzoeker gebruiken? En zo ja: hoe moet ik die invullen?SPOILER[ afbeelding ]
Als er verder nog info nodig is over de gegevens die er in de sheet staan hoor ik het wel
Lieverd, kijk naar de code en help jezelf verderquote:
[..]
Ja, nu werkt ie. Thanks!
Nu deze:
[..]
Ik vind je best lief denk ik maar ik ben geen code-FEBO, waar je half warme code uit de muur trekt. Als je er niet uitkomt en je hebt specifieke vragen wil ik ze best beantwoorden...
Code-FEBOquote:
[..]
Lieverd, kijk naar de code en help jezelf verder
Ik vind je best lief denk ik maar ik ben geen code-FEBO, waar je half warme code uit de muur trekt. Als je er niet uitkomt en je hebt specifieke vragen wil ik ze best beantwoorden...
Maar ik hoef geen code
Ik vraag me alleen af of ik de doelzoeker kan gebruiken om cel B3 te veranderen in een waarde waarbij F11 en J11 gelijk zijn. Want ik heb een aantal dingen geprobeerd met die doelzoeker, maar het lukt me niet. En om nou de hele tijd willekeurige dingen in te vullen totdat F11 en J11 gelijk zijn....is er ook een mogelijkheid dat ie juist zoekt in de meest rechtse kolom?
Nee, met Verticaal zoeken moet je op te zoeken waarde links staan.quote:
bij verticaal zoeken: Zoekt in de meest linkse kolom in de matrix naar een bepaalde waarde.
is er ook een mogelijkheid dat ie juist zoekt in de meest rechtse kolom?
Anders moet je INDEX(VERGELIJKEN(etc)) gebruiken. Succes, eerst zelf proberen
eerst zelf proberen?..quote:
[..]
Nee, met Verticaal zoeken moet je op te zoeken waarde links staan.
Anders moet je INDEX(VERGELIJKEN(etc)) gebruiken. Succes, eerst zelf proberen
gast ik heb de ballenverstand van Excel daarom vraag ik het ook hier..
maar uh ik heb dus dit..
=VERT.ZOEKEN(A:A;Blad1!A:B;2;ONWAAR) (hij zoekt dus (default) in de meest linker kolom)
wat moet ik hiervan maken zodat ie in de meest rechter kolom zoekt?
En dan geeft iemand het antwoord, werkt het niet, moeten we t aanpassen, werkt nog niet, etc., tot dat het wel werkt. En een week later weer een vraag..quote:
[..]
eerst zelf proberen?..
gast ik heb de ballenverstand van Excel daarom vraag ik het ook hier..
En dat je er de ballen verstand van hebt is geen probleem, dat je het ook niet wil weten (en dus geen inzet toont) wel..
Een hele andere formule, met bijvoorbeeld =INDEX(VERGELIJKEN())) zoals DaFan al zei..quote:maar uh ik heb dus dit..
=VERT.ZOEKEN(A:A;Blad1!A:B;2;ONWAAR) (hij zoekt dus (default) in de meest linker kolom)
wat moet ik hiervan maken zodat ie in de meest rechter kolom zoekt?
dat is als excelexpert makkelijk praten tegen een excelnoob die gisteren excel ontdekt heeft..quote:
[..]
En dan geeft iemand het antwoord, werkt het niet, moeten we t aanpassen, werkt nog niet, etc., tot dat het wel werkt. En een week later weer een vraag..
En dat je er de ballen verstand van hebt is geen probleem, dat je het ook niet wil weten (en dus geen inzet toont) wel..
[..]
Een hele andere formule, met bijvoorbeeld =INDEX(VERGELIJKEN())) zoals DaFan al zei..
even uitproberen dan maar.quote:
En dan tussen de haakjes ongeveer wat je bij VERT.ZOEKEN al had staan
Je formule kan niet. Je zoekwaarde is een kolom, dat kan niet.
Maar stel dat je in B:B je op te zoeken waarden staan. In A:A je resultaten, in C1 je op te zoeken waarde
INDEX(A:A;VERGELIJKEN(C1;B:B;0))
als ik de formule in die cel moet doen he, begin ik dan eerst met INDEX of begin ik eerst met VERGELIJKEN?quote:
Fine.
Je formule kan niet. Je zoekwaarde is een kolom, dat kan niet.
Maar stel dat je in B:B je op te zoeken waarden staan. In A:A je resultaten, in C1 je op te zoeken waarde
INDEX(A:A;VERGELIJKEN(C1;B:B;0))
[ Bericht 0% gewijzigd door EL_Presidente op 15-01-2012 22:59:14 ]
mijn zoekwaarde staat in kolom A van Blad 2 (resultaat Vlookup moet komen in kolom B van dit Blad)quote:
Fine.
Je formule kan niet. Je zoekwaarde is een kolom, dat kan niet.
Maar stel dat je in B:B je op te zoeken waarden staan. In A:A je resultaten, in C1 je op te zoeken waarde
INDEX(A:A;VERGELIJKEN(C1;B:B;0))
en de matrix is kolom A en B van Blad 1, en ik wil dus dat ie de meest rechtse kolom neemt.
Denk je dat ik als 'expert' geboren ben dan?quote:
[..]
dat is als excelexpert makkelijk praten tegen een excelnoob die gisteren excel ontdekt heeft..
Erger is nog een Engelse Excel met de functies in t Nederlands. Dus alle menu's e.d. in 't Engels, functies in NL's. *ril*quote:
laat maar..quote:
[..]
Denk je dat ik als 'expert' geboren ben dan?
ik vraag het wel ergens anders.. Daar doelde ik eigenlijk ook op.quote:
Erger is nog een Engelse Excel met de functies in t Nederlands. Dus alle menu's e.d. in 't Engels, functies in NL's. *ril*
Dat was niet mijn bedoeling, maar inzit van jouw kant wordt iig beloond met inzet van mijn kant. De helpfunctie van Excel had je al kunnen vertellen dat VERT.ZOEKEN() niet kon doen wat jij wilde, en een korte Google-zoekopdracht had je al een stuk verder geholpen..quote:
[..]
laat maar..
is cool man..quote:
[..]
Dat was niet mijn bedoeling, maar inzit van jouw kant wordt iig beloond met inzet van mijn kant. De helpfunctie van Excel had je al kunnen vertellen dat VERT.ZOEKEN() niet kon doen wat jij wilde, en een korte Google-zoekopdracht had je al een stuk verder geholpen..
ik swap wel die twee kolommen van plek, dan kan ik in principe alsnog ''verticaal zoeken'' gebruiken
Kijk, dat is ook een oplossing! Roep maar als je weer vast looptquote:
[..]
is cool man..
ik swap wel die twee kolommen van plek, dan kan ik in principe alsnog ''verticaal zoeken'' gebruiken
Gewoon allebei kunnen.quote:
Alhoewel ik laatst aan het zoeken was wat de nl versie was van trim()
(spaties.verwijderen)
Daar gebruik ik deze link uit de OP voor: http://dolf.trieschnigg.nl/excel/excel.htmlquote:
[..]
Gewoon allebei kunnen.
Alhoewel ik laatst aan het zoeken was wat de nl versie was van trim()
(spaties.verwijderen)
je kunt ook cell.formula gebruiken; hierin staat altijd de engelse syntax. nl->engels is dus formule in excel invoeren en in vba uitlezen, engels->nl is net andersomquote:
[..]
Daar gebruik ik deze link uit de OP voor: http://dolf.trieschnigg.nl/excel/excel.html
Ik heb een probleem en ik kom er niet uit, hebben jullie een advies; een reeks aan getallen die ik graag allemaal op dezelfde notatie wil in Excel, namelijk de komma vanaf achter bekeken 4 getallen naar voren ongeacht een eventuele punt of komma, maar het lukt me niet.
Hierbij het voorbeeld:
Huidig > Wenselijk
249000 > 24,9000
44100 > 4,4100
0.0000 > 0,0000
0.1234 > 0,1234
0.7100 > 0,7100
1,287.9876 > 1287,9876
1417500 > 141,7500
152549 > 15,2549
Geen idee of het in excel zelf kan in een of ander ingebouwd menutje, maar hier heb je in ieder geval een manier:quote:
Hallo,
Ik heb een probleem en ik kom er niet uit, hebben jullie een advies; een reeks aan getallen die ik graag allemaal op dezelfde notatie wil in Excel, namelijk de komma vanaf achter bekeken 4 getallen naar voren ongeacht een eventuele punt of komma, maar het lukt me niet.
Hierbij het voorbeeld:
Huidig > Wenselijk
249000 > 24,9000
44100 > 4,4100
0.0000 > 0,0000
0.1234 > 0,1234
0.7100 > 0,7100
1,287.9876 > 1287,9876
1417500 > 141,7500
152549 > 15,2549
als je in kolom A je getallen hebt staan, is dit de formule voor kolom b:
| 1 | =SUBSTITUEREN(SUBSTITUEREN(A1;",";"");".";"") |
| 1 | =LINKS(B1;LENGTE(B1)-4) & "," & RECHTS(B1;4) |
Maar die laatste zal niet werken met 123456789 bijvoorbeeld..quote:
[..]
Geen idee of het in excel zelf kan in een of ander ingebouwd menutje, maar hier heb je in ieder geval een manier:
als je in kolom A je getallen hebt staan, is dit de formule voor kolom b:
[ code verwijderd ]
en dit voor kolom c:
[ code verwijderd ]
kolom c heeft dus het antwoord dat je zoekt.
123456789 wordt 12345,6789 en dat is wat het moest zijn?quote:
[..]
Maar die laatste zal niet werken met 123456789 bijvoorbeeld..
Ohja, shit.. Foutje!quote:
[..]
123456789 wordt 12345,6789 en dat is wat het moest zijn?
Ik heb 1 lijst met allemaal namen
en ongeveer 5 lijsten met andere namen
Ik wil dus graag zien hoeveel namen er uit lijst 1 bijvoorbeeld in lijst 2 voorkomen
Even een simpel voorbeeldje:
lijst 1 staat in kolom A, andere namen staan in kolommen B,C,D,E,F.
In een lege cel zet je de volgende formule:
=countif(A1,B:B)
A1 is de naam uit lijst 1
B:B betekend tellen in kolom B
Echter: de namen moeten dan wel exact hetzelfde zijn in de lijsten
n4 is de cel die ik wil opzoekenquote:
staan alle lijsten in het zelfde bestand?
Even een simpel voorbeeldje:
lijst 1 staat in kolom A, andere namen staan in kolommen B,C,D,E,F.
In een lege cel zet je de volgende formule:
=countif(A1,B:B)
A1 is de naam uit lijst 1
B:B betekend tellen in kolom B
Echter: de namen moeten dan wel exact hetzelfde zijn in de lijsten
a2:a35 is de lijst waarin ik wil zoeken
maar hij geeft alleen 0 weer, ook al staat hij wel in de lijst
=COUNTIF(N4;$A$2:$A$35)
zie ik nog iets over het hoofd?
zijn de tekst in N4 en in de lijst exact hetzelfde?
Jansen en jansen zijn voor excel 2 totaal verschillende namen
"jansen" en " jansen" (met spatie) ook
Dan zou het COUNTIF($A$2:$A$35,N4) moeten zijn.
De komma werkt niet, dan geeft ie een error aan.quote:
probeer eens =COUNTIF(N4,$A$2:$A$35)
zijn de tekst in N4 en in de lijst exact hetzelfde?
Jansen en jansen zijn voor excel 2 totaal verschillende namen
"jansen" en " jansen" (met spatie) ook
De teksten zijn exact het zelfde (inclusief spaties en hoofdletters)
haha, noog vet lang doorgezocht en het uiteindelijk gevonden.quote:
IN het nederlands moet je bij aantal als (de engelse count if) als eerste het bereik opgeven, en daarna pas de zoekwaarde, is dat in het engels ook niet zo?
Dan zou het COUNTIF($A$2:$A$35,N4) moeten zijn.
wil ik trots het resultaat posten, zie ik deze post
ze moeten idd andersom, thx!
Maar ook hier kun je natuurlijk perfect zelf achterkomen door een keer de FX button te gebruiken en te zien wat er nu precies gevraag wordt per argument.quote:
[..]
haha, noog vet lang doorgezocht en het uiteindelijk gevonden.
wil ik trots het resultaat posten, zie ik deze post
ze moeten idd andersom, thx!
(links van de 10 YR)Dit is dus zoals het er uitziet als het niet geselecteerd is. Als ik echter de cel selecteer ziet het er in de sheet zelf wel normaal uit, maar zie ik een tekentje in de formulebalk:
Lijkt wel of dit een kopieer bug of iets dergelijks is. Het zit dus zo door de hele sheet. Iemand een idee hoe ik dit goed kan krijgen? Het ziet er zo niet zo erg uit, maar als ik het als pdf opsla is de cel in zijn geheel niet meer goed leesbaar.
Alvast bedankt.
=SUBSTITUEREN(P7;TEKEN(9);TEKEN(32))
Bovenstaande code is alleen om tabs te veranderen in spaties, ik weet niet welk teken de return is.
http://www.asciitable.com/quote:
Het heeft waarschijnlijk te maken met stuurtekens. De harde return zul je er op de een of andere manier uit moeten gooien.
=SUBSTITUEREN(P7;TEKEN(9);TEKEN(32))
Bovenstaande code is alleen om tabs te veranderen in spaties, ik weet niet welk teken de return is.
TEKEN(13)quote:
Het heeft waarschijnlijk te maken met stuurtekens. De harde return zul je er op de een of andere manier uit moeten gooien.
=SUBSTITUEREN(P7;TEKEN(9);TEKEN(32))
Bovenstaande code is alleen om tabs te veranderen in spaties, ik weet niet welk teken de return is.
Maar werkt het niet als het tekentje kopieert uit de menubalk en dan zoeken, vervangen door "" doet?
Als eerst degen boven jou bedankt voor de asciitabel.quote:
[..]
TEKEN(13)
Maar werkt het niet als het tekentje kopieert uit de menubalk en dan zoeken, vervangen door "" doet?
Volgens mij werkt het niet zo makkelijk sturingtekens zijn volgens mij niet te selecteren met die functie.
Probeer ook maar eens zomaar sturingstekens in een excel sheet te krijgen zonder een import te maken, dat is zo geod als onmogelijk. Bij een return of een tab wordt de celinvoer afgebroken, ik heb geprobeerd nog even vanuit word wat te pasten met deze sturingstekens erbij maar dat ging ook niet.
Als je aanneemt dat het inderdaad een sturingteken is kan dat wel kloppen echter ik weet dat niet zeker, het kan ook een, in de huidige charset, onbekend teken zijn.quote:
[..]
Als eerst degen boven jou bedankt voor de asciitabel.
Volgens mij werkt het niet zo makkelijk sturingtekens zijn volgens mij niet te selecteren met die functie.
Probeer ook maar eens zomaar sturingstekens in een excel sheet te krijgen zonder een import te maken, dat is zo geod als onmogelijk. Bij een return of een tab wordt de celinvoer afgebroken, ik heb geprobeerd nog even vanuit word wat te pasten met deze sturingstekens erbij maar dat ging ook niet.
Als het selecteerbaar is en te kopieren kan mijn oplossing werken.
Ik zou de sheet graag zien, als is het maar met 1 gevulde cel
Doe maar eens in excel:
cel a1
=teken(b1)
en in cel b1: "1"
en dan doortrekken tot B255
edit:
ach, er staat een tabel onder... :|[ Bericht 27% gewijzigd door #ANONIEM op 18-01-2012 18:36:23 ]
Ik heb de file thuis met excel 2010 geopend en daarin wordt alles wel goed weergeven, dus het is in ieder geval opgelost. Naja niet opgelost, maar het is geen probleem meer.
Thanks.
abcdef:12345:abcdef:3435:abcdef
Nu wil ik graag de tekst hebben achter de 3e komma. Tekst naar kolommen gaat echter niet, omdat er in die tekst die ik eruit wil filteren soms ook een komma staat. Dan krijg ik die tekst dus in meerdere cellen, en ik wil m in 1 cel. Hoe kan ik dit doen?
Komma? Of dubbele punt?quote:
Ik heb in een cell het volgende staan:
abcdef:12345:abcdef:3435:abcdef
Nu wil ik graag de tekst hebben achter de 3e komma. Tekst naar kolommen gaat echter niet, omdat er in die tekst die ik eruit wil filteren soms ook een komma staat. Dan krijg ik die tekst dus in meerdere cellen, en ik wil m in 1 cel. Hoe kan ik dit doen?
Je kan ook zelf een scheidingsteken opgeven, probeer eens ", " (een komma met een spatie er achter)
Bedankt alvast, ik ga even prutsen!
Dit kan je mss in een paar stappen doen:quote:
Ik heb in een cell het volgende staan:
abcdef:12345:abcdef:3435:abcdef
Nu wil ik graag de tekst hebben achter de 3e komma. Tekst naar kolommen gaat echter niet, omdat er in die tekst die ik eruit wil filteren soms ook een komma staat. Dan krijg ik die tekst dus in meerdere cellen, en ik wil m in 1 cel. Hoe kan ik dit doen?
De reeks eindigt wanneer er -1 in kolom C komt te staan. De cel rechtsonder geeft dan je resultaat.
De stappen kan je combineren (genest inbouwen) in 1 formule. Alleen moet het aantal repetities dan altijd >= aan het max aantal tekens dat je zoekt. Of je moet uitgebreidere foutcorrectie inbouwen
[ Bericht 6% gewijzigd door DumDaDum op 19-01-2012 12:35:50 ]
| 1 | =RECHTS(B3;LENGTE(B3)-VIND.SPEC("|";SUBSTITUEREN(B3;":";"|";3);3)) |
Ik heb een Vloopup gemaakt die bij een match het woordje "Match" presenteert in de gewenste kolom en wanneer er geen match is komt er #N/A te staan.
Alleen nu vroeg ik me af of het mogelijk was of in geval er geen match is en er #N/A in het veld komt te staan, ik een voorgedefinieerd woord kan laten verschijnen.
Is dit mogelijk met wat Jut & Jul Excel, of moet daar flink voor geprogrammeerd worden?
Excel 2010 (Engels)
Bedankt alvast!
Grt. Jeroen
quote:
Beste Fokkers,
Ik heb een Vloopup gemaakt die bij een match het woordje "Match" presenteert in de gewenste kolom en wanneer er geen match is komt er #N/A te staan.
Alleen nu vroeg ik me af of het mogelijk was of in geval er geen match is en er #N/A in het veld komt te staan, ik een voorgedefinieerd woord kan laten verschijnen.
Is dit mogelijk met wat Jut & Jul Excel, of moet daar flink voor geprogrammeerd worden?
Excel 2010 (Engels)
Bedankt alvast!
Grt. Jeroen
| 1 | IFERROR(VLOOKUP(zooi),"Niet gevonden") |
=IFERROR(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0),"Niet gevonden")
Maar die geeft een error....., dus ik zal ergens nog wel een foutje hebben laten staan denk ik.
Ja, je hebt een , voor niet gevonden, dat moet een ; zijnquote:
Bedankt voor de reactie ralfie, dan zou ik hier op uitkomen:
=IFERROR(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0),"Niet gevonden")
Maar die geeft een error....., dus ik zal ergens nog wel een foutje hebben laten staan denk ik.
Wat een geniaal programma kan Excel toch zijn. Jesse_ en ralfie, bedankt voor de feedback. :-P
Ik heb in een Excel-sheet een databaseje gemaakt met een kolom met data (meervoud van datum
) staan. Nu wil ik in een andere cel een totaalsom hebben voor een maand. Bijvoorbeeld er zijn 19 records met een datum die in oktober vallen, dan wil ik in die cel '19' zien staan.Ik heb al gekloot met COUNTIF en SUMPRODUCT, maar ik kom er niet echt uit.
maak iig eerst een kolom aan met =Month(a1) waarin je dus de maand van alle datums berekend
vervolgens kun je met een simpele =countif(b1:b100,1) tellen hoeveel records er in januari vallen
of met sumif(b1:b100,1,c1:c100) de waarden in kolom C optellen waarbij de maand januari is
Alleen het aantal records tellen:
=SUMPRODUCT(--(MONTH(A1:A4)=1))
de waarden van de juiste recors optellen:
=SUMPRODUCT(--(MONTH(A1:A4)=1),B1;B4)
Ik wil graag iets doen met alleen de worksheet die op dat moment open staat, maar weet niet hoe ik de naam daarvan opvraag ofzo.
Alvast bedankt voor je antwoord.
EDIT:
Het antwoord is heel simpel, gewoon ActiveSheet.Name
[ Bericht 12% gewijzigd door FZN05 op 20-01-2012 18:32:20 ]
ik heb een aantal excelsheets met allemaal info, deze zijn als volgt opgebouwd:
nr - cijfer
221 - 10,0
222 - 6,9
223 - 7,8
224 - 6,8
Hoe zorg ik ervoor dat ik al deze sheets kan combineren tot éen grote? Het kan dus ook voorkomen dat bijv. 222 niet in sheet 2 staat.
copy pastequote:Op zaterdag 21 januari 2012 19:54 schreef hello_moto1992 het volgende:
Hoi,
ik heb een aantal excelsheets met allemaal info, deze zijn als volgt opgebouwd:
nr - cijfer
221 - 10,0
222 - 6,9
223 - 7,8
224 - 6,8
Hoe zorg ik ervoor dat ik al deze sheets kan combineren tot éen grote? Het kan dus ook voorkomen dat bijv. 222 niet in sheet 2 staat.
ID - cijfer
1 - 5,5
2 - 6,0
3 - 6,0
4 - 5,0
5 - 1,0
6 - 9,8
7 - 8,8
8 - 7,8
9 - 1,0
en
ID - cijfer
2 - 7,0
3 - 7,0
4 - 8,0
6 - 9,8
8 - 7,8
Heb?
Hoe zorg ik dan dat je
1 - 5,5
2 - 6,0 - 7,0
3 - 6,0 - 7,0
4 - 5,0 - 8,0
5 - 1,0
6 - 9,8 - 9,8
7 - 8,8
8 - 7,8 - 7,8
9 - 1,0'
Krijgt?
Die ID is dus niet uniek
edit:
aaah ninja edit
[ Bericht 16% gewijzigd door #ANONIEM op 21-01-2012 20:01:40 ]
Zijn het meerder workbooks of is het 1 workbook met meerdere sheets?
Meerdere workbooks.quote:
Ja ok ik snap je uitdaging nu
Zijn het meerder workbooks of is het 1 workbook met meerdere sheets?
Op school krijgen we altijd excelsheets van de tentamenresultaten. Er staat dan studentnr - cijfer. Bij sommige staat ook de naam vermeld met het studentnr.
Ik wil dus van alle cijferlijsten een lijstje studentnr - naam - cijfer maken
.http://www.techrepublic.c(...)sheets-using-vba/967
En dan kopje 3 is interessant voor je
Je moet gewoon gaan tellen door die sheets, en als je de waarde van kolom a al hebt (zeg ID 2) dan samenvoegen (of een kolom verschuiven, dus resultaat 1 in kolom b, resultaat 2 in kolom c etc)
Denk dat je dit het beste met de excel funcite vlookup kan doen, ben je daar bekent mee?quote:
Ja maar als ik bijv
ID - cijfer
1 - 5,5
2 - 6,0
3 - 6,0
4 - 5,0
5 - 1,0
6 - 9,8
7 - 8,8
8 - 7,8
9 - 1,0
en
ID - cijfer
2 - 7,0
3 - 7,0
4 - 8,0
6 - 9,8
8 - 7,8
Heb?
Hoe zorg ik dan dat je
1 - 5,5
2 - 6,0 - 7,0
3 - 6,0 - 7,0
4 - 5,0 - 8,0
5 - 1,0
6 - 9,8 - 9,8
7 - 8,8
8 - 7,8 - 7,8
9 - 1,0'
Krijgt?
Nee dat niet, maar op Google vind ik al genoeg info. Hier kan ik denk ik wel verder mee. Bedankt allemaal.quote:
[..]
Denk dat je dit het beste met de excel funcite vlookup kan doen, ben je daar bekent mee?
ben net ook bezig geweest en het is geluktquote:
[..]
Nee dat niet, maar op Google vind ik al genoeg info. Hier kan ik denk ik wel verder mee. Bedankt allemaal.
=VERT.ZOEKEN(A1;I$12:J$16;1;ONWAAR)
Ik stootte vooral mijn hoofd omdat ik de Nederlandse Excel gebruik waarin false ONWAAR is
Vergeet ook niet de dollar tekens voor de tabel waarin gezocht gaat worden
Thx, zal er na het weekend effe na kijken!quote:
of zonder hulpkolom met een gave sumproduct:
Alleen het aantal records tellen:
=SUMPRODUCT(--(MONTH(A1:A4)=1))
de waarden van de juiste recors optellen:
=SUMPRODUCT(--(MONTH(A1:A4)=1),B1;B4)
=IFERROR(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);"LV+")
Het komt erop neer dat ik voor hetzelfde veld twee vlookups wil doen op dezelfde waarden en als hij hem niet kan vinden dan de waarde "LV+" weergeeft.
Waarschijnlijk zit hij helemaal fout in elkaar, want ik heb gewoon de werkende vlookupt gekopieerd en nogmaals in de formule gezet.
Bvd. Jeroen
Bij IFERROR moet je de waarde en de waarde wanneer er een error is mee geven. Je geeft hier meer dingen meequote:
Kan iemand mij vertellen wat er fout is aan deze formule?
=IFERROR(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);"LV+")
Het komt erop neer dat ik voor hetzelfde veld twee vlookups wil doen op dezelfde waarden en als hij hem niet kan vinden dan de waarde "LV+" weergeeft.
Waarschijnlijk zit hij helemaal fout in elkaar, want ik heb gewoon de werkende vlookupt gekopieerd en nogmaals in de formule gezet.
Bvd. Jeroen
Je zou het met een gewone IF moeten doen.
Wat wil je precies doen?
Een Vlookup die in Tabel A gaat zoeken naar een waarde, als dat niet lukt
moet hij op een ander tabblad dezelfde Vlookup doen, kan hij hem niet
vinden, dan moet hij waarde X geven.
De enkele Vlookup met error waarde werkt prima, maar de dubbele krijg ik
niet voor elkaar.
Deze werkt, output is of MATCH (kolom 29) of LV+ ( = geen match).
=IFERROR(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);"LV+")
Deze moet naast de vlookup in de AR (Gas) ook nog eens zoeken naar
diezelfde waarde in AR (Elec). Bij een match moet de waarde uit kolom 29
worden gegeven, anders LV+. Onderstaande formule werkt helaas niet.
=IFERROR(VLOOKUP(K2;'Aansluitregister
(Gas)'!$D$2:$AF$500;29;0);(VLOOKUP(K2;'Aansluitregister
(Elec)'!$D$2:$AF$500;29;0);"LV+")
Is dit wat duidelijker? Die IFERROR was om te zorgen dat als er geen waarde aanwezig was om op te zoeken dat er dan geen #N/A kwam te staan, maar een lege cel.
Waarom wil je twee keer exact dezelfde Vlookup doen? De IFERROR functie kijkt naar de eerste variabele en als die een foutmelding genereerd dan geeft de functie de waarde uit de 2e variabele. IN dit geval krijg je dus altijd een fotoutmelding of de waarde van de Vlookup.quote:
Kan iemand mij vertellen wat er fout is aan deze formule?
=IFERROR(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);"LV+")
Het komt erop neer dat ik voor hetzelfde veld twee vlookups wil doen op dezelfde waarden en als hij hem niet kan vinden dan de waarde "LV+" weergeeft.
Waarschijnlijk zit hij helemaal fout in elkaar, want ik heb gewoon de werkende vlookupt gekopieerd en nogmaals in de formule gezet.
Bvd. Jeroen
Maw. wat wil je precies bereiken?
Is er niet iets waardoor je onderscheid kan maken tussen de twee tabladen vanuit het nummer dat je zoekt? Dus een bijvoorbeeld een kleur of een andere extra variablele waardoor je kan vertellen waar je moet zoeken?quote:
Ik ben op zoek naar de formule voor het volgende.
Een Vlookup die in Tabel A gaat zoeken naar een waarde, als dat niet lukt
moet hij op een ander tabblad dezelfde Vlookup doen, kan hij hem niet
vinden, dan moet hij waarde X geven.
De enkele Vlookup met error waarde werkt prima, maar de dubbele krijg ik
niet voor elkaar.
Deze werkt, output is of MATCH (kolom 29) of LV+ ( = geen match).
=IFERROR(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);"LV+")
Deze moet naast de vlookup in de AR (Gas) ook nog eens zoeken naar
diezelfde waarde in AR (Elec). Bij een match moet de waarde uit kolom 29
worden gegeven, anders LV+. Onderstaande formule werkt helaas niet.
=IFERROR(VLOOKUP(K2;'Aansluitregister
(Gas)'!$D$2:$AF$500;29;0);(VLOOKUP(K2;'Aansluitregister
(Elec)'!$D$2:$AF$500;29;0);"LV+")
Is dit wat duidelijker? Die IFERROR was om te zorgen dat als er geen waarde aanwezig was om op te zoeken dat er dan geen #N/A kwam te staan, maar een lege cel.
IF(K2=VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);IF(K2=VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);"LV+")
Iets beters dan dit kan ik niet bedenken
Ik hoop dat een beetje duidelijk is.
=iferror(if(iserror(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);(VLOOKUP(K2;'Aansluitregister (Elec)'!$D$2:$AF$500;29;0);(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0)));"LV+")
weet niet of haakjes kloppen, heb hem uit het hoofd gedaan ivm geen toegang excel
je had een typfout in je oorspronkelijke vraag, daar stond twee keer een verwijzing naar AR gas terwijl je AR gas en AR elec bedoelde.
Dat is slimmerquote:
Deze?
=iferror(if(iserror(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0);(VLOOKUP(K2;'Aansluitregister (Elec)'!$D$2:$AF$500;29;0);(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0)));"LV+")
weet niet of haakjes kloppen, heb hem uit het hoofd gedaan ivm geen toegang excel
je had een typfout in je oorsprionkelijke vraag, daar stond twee keer een verwijzing naar AR gas terwijl je AR gas en AR elec bedoelde.
hopelijk werkt hij ook.quote:
@Jesse: Hij gaf LV+ terwijl er een match was een dus de waarde uit kolom 29 getoond had moeten worden.
Het zou makkelijker zijn als het onderscheid tussen Gas en Electra voor het zoeken gemaakt zou kunnen wordenquote:
Kan je dan niet beter twee losse vlookups houden?quote:
Die van Deetch geeft een error.....de standaard error dat er een fout in de formule zit.
@Jesse: Hij gaf LV+ terwijl er een match was een dus de waarde uit kolom 29 getoond had moeten worden.
Dus in kolom B de vlookup voor gas en in C die voor electra, en dan in kolom D iets van IF(B="LV+";Cnummer;Bnummer). Kolom B en C hide je dan zodat het er toch netjes uit ziet
Voorwaarde is dan wel dat je niet resultaat uit beide sheets kan halen.
Ik hou jullie op de hoogte.
In principe is de regel dan, ALS er een match bij zit tussen de twee kolommen, dan moet hij die nemen, anders LV+ tonen.
IF(B2="LV+";C2;B2).quote:
Jesse ik ben jou optie aan het uitwerken. Heb twee losse Vlookups, waarbij kolom GAS nu een MATCH (waardes zijn gevonden) aangeeft en kolom ELEC LV+ (logisch want het is een GAS waarde waarop gezocht wordt) geeft. Hij zorg ik dan in de formule van kolom C dat hij de waarde prensenteerd van de juiste kolom.
In principe is de regel dan, ALS er een match bij zit tussen de twee kolommen, dan moet hij die nemen, anders LV+ tonen.
dit zegt: Als er in kolom B geen match is dan moet het resultaat uit kolom C weergegeven worden en als er wel een match is in kolom B (dan is B dus niet gelijk aan LV+) dan moet B weergegeven worden. En is er geen match dan wordt LV+ weergegeven want B of C staat hoe dan ook in cel D straks.
Of wat Deetch zegt, dat is het omgekeerde
[ Bericht 0% gewijzigd door Jesse_ op 23-01-2012 11:17:06 ]
=IFERROR(IF(ISERROR(VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0));VLOOKUP(K2;'Aansluitregister (Elec)'!$D$2:$AF$500;29;0);VLOOKUP(K2;'Aansluitregister (Gas)'!$D$2:$AF$500;29;0));"LV+")
Volgens mij is het een probleem met het veld format ofzo......kan het zijn dat dit allemaal niet werkt als het veldformat TEXT op GENERAL staat? :-(
Het gaat namelijk over EAN nummer en die zijn 18 karakters lang, dus die kan je niet in Excel als nummeriek instellen, dan krijg je zijn afgekorte variant waar de laatste cijfers 0 zijn.
Stel de gezochte waarde is aanwezig in AR gas cel D15, wat zegt de formule =K2='Aansluitregister (Gas)'!$D$15 ??
Laat ook nog eens je formule zien, misschien ben je een haakje vergeten of staat ergens een spatie die er niet moet staan?
=IF(ISNA(VLOOKUP(L2;'Aansluitregister (Gas)'!$AF:$AF;1;FALSE));IF(ISNA(VLOOKUP(L2;'Aansluitregister (Elec)'!$AF:$AF;1;FALSE));"LV+";"MATCH");"MATCH")
En het veld met de te zoeken waardes hebben we door ="'"&K2 aangevuld met een ' voor het nummer. Nu werkt alles :-)
Enige nadeel is dat hij nu de LV+ ook laat zien als er geen waarde is ingevuld. Dat was in de initiële optzet niet meer het geval door de IFERROR en dan aan het einde " ".
Iemand daar nog ideëen voor met de huidige formule?
Alleen werkt hij met 3x ) op het einde ook niet. :-(
*edit* met een extra sluit ) werkt hij wel :-D
Thanks !!
=IF(K2<>"";IF(ISNA(VLOOKUP(L2;'Aansluitregister (Gas)'!$AF:$AF;1;FALSE));IF(ISNA(VLOOKUP(L2;'Aansluitregister (Elec)'!$AF:$AF;1;FALSE));"LV+";"MATCH");"MATCH");"")
Anyway, iedereen super bedankt, vooral Deetch en Jesse!
Grt. Jeroen
Sluiten doet excel toch ook zelf? (vanaf 2007 iig wel)quote:
graag gedaan en haakjes tellen is ook niet mijn sterkste punt ;-)
Ja, maar niet per se op de juiste plekquote:
[..]
Sluiten doet excel toch ook zelf? (vanaf 2007 iig wel)
Is het mogelijk om een vlookup te doen op een getal van 5 characters binnen een andere kolom waar de getallen 18 characters hebben.
Dus kolom A heeft 18 cijfers per veld, kolom X (ander tabblad) heeft 5 cijfers veld (EAN netbeheerder is 13 chars, maar die heb ik al terug naar de 5 gebracht die bedrijfsspecifiek zijn). Ik wil dat er in kolom B (naast kolom A) gezocht is of getal 3 t/m 7 voorkomen in de lijst in kolom X.
Ter verduidelijking: Een EAN in de energiesector is 18 cijfers lang, maar cijfer 3 tot en met 7 zijn de referentie naar de Netbeheerder die dit aansluitpunt beleverd. Ik heb een lijst met EAN's (18 char) van aansluitingen en een lijst (Kolom X) met +/- 30 netbeheerders.
Misschien vraag ik nu het onmogelijk hoor, ik weet niet hoeveer Excel kan gaan.
Nogmaals dank voor de mensen die hierin duiken.
Grt. Jeroen
Ps. Een mogelijke oplossing zou ook zijn om eerst in elke veld met 18 chars de eerste 2 eraf te halen en daarna de laatste 11 en dan hebben we als het goed is een 5 cijferig getal dat moet matchen met één van de EANS's uit de Netbeheerderslijst.
meestal niet inderdaad.quote:
[..]
Ja, maar niet per se op de juiste plek
Excel: "zal ik hier een haakje doen?"
Deetch: "nee, donder op hoerige zelfnadenkende verborgen clippy, ik haat je!!!
"Excel: "Oke dan, #error"
Deetch: "hehe, lekker zelf doen"
Deetch: "pompedompiedom en dan zet ik hier een haakje en daar ook nog eentje, klaar"
Excel: "haha nog steeds #error"
Deetch: "hoerige *pieperdepiep*"
Deetch: ".....1 haakje open, 2,3,4, haakje sluiten maakt 3,4,3,2,1,2,3,2,1,oh en nog eentje aan het eind = 0"
Excel: "42"
Deetch: "jeweetz"
=MID(A1,3,5) dan krijg je een tekst.quote:
....
Ps. Een mogelijke oplossing zou ook zijn om eerst in elke veld met 18 chars de eerste 2 eraf te halen en daarna de laatste 11 en dan hebben we als het goed is een 5 cijferig getal dat moet matchen met één van de EANS's uit de Netbeheerderslijst.
als je =VALUE(MID(A1,3,5)) krijg je een getal van 5 cijfers.
[ Bericht 20% gewijzigd door Deetch op 23-01-2012 16:37:31 (welk haakje?) ]
*edit* zelfs met dat sluithaakje ;-)
gezeik met verschillende taalversies en lijstscheidingstekens
=VALUE(MID(A11;3;5))
Hij werkt, nu Vloopkupje erbij en hoppa!
Thanks ik ga eve naan de knutsel!
*edit* En als ik hem dan alleen wil tonen als er input is, wordt het dit toch: =IF(K2="";"";VALUE(MID(K2;3;5)))
quote:
Nice !
=VALUE(MID(A11;3;5))
Hij werkt, nu Vloopkupje erbij en hoppa!
Thanks ik ga eve naan de knutsel!
*edit* En als ik hem dan alleen wil tonen als er input is, wordt het dit toch: =IF(K2="";"";VALUE(MID(K2;3;5)))
Ja, datquote:
[..]
meestal niet inderdaad.
Excel: "zal ik hier een haakje doen?"
Deetch: "nee, donder op hoerige zelfnadenkende verborgen clippy, ik haat je!!!
Excel: "Oke dan, #error"
Deetch: "hehe, lekker zelf doen"
Deetch: "pompedompiedom en dan zet ik hier een haakje en daar ook nog eentje, klaar"
Excel: "haha nog steeds #error"
Deetch: "hoerige *pieperdepiep*"
Deetch: ".....1 haakje open, 2,3,4, haakje sluiten maakt 3,4,3,2,1,2,3,2,1,oh en nog eentje aan het eind = 0"
Excel: "42"
Deetch: "jeweetz"
En vooral dat haakjes tellen wordt een hel als je werkt met 10 geneste functies ofzo
Bedankt allemaal!
Hallo,
Ik heb een lijst van 3000 temperatuurmetingen die ik wil 'comprimeren': het zijn nu metingen per 5 minuten, ik wil naar het gemiddelde per uur en evt daarna gemiddelde per dag.
De opbouw is: A: datum/tijd B: temperatuur
Kan natuurlijk in C een formule neerzetten die telt en steeds een setje van 12 B waarden middelt maar da's nogal omslachtig. Zeker als ik lijsten ga samenvoegen (meetwaarden over een heel jaar).
Is er een manier om dit eenvoudiger te doen? Heb al aan draaitabel zitten denken (heb daar ervaring mee) maar zie daar geen oplossing.
Interval functie gebruiken? (heb ik geen ervaring mee)
Excel versie 2003NL
Dank
Weet niet of er anders een avgif bestaat?
GEMIDDELDE.ALS bedoel je?quote:
Wellicht met een array if functie?
Weet niet of er anders een avgif bestaat?
Maar ik weet niet hoe data werken met VBA
Met vba zou je de witte rijen niet eens erin creerenquote:
Ik zou zoiets met een VBA script doen en dan later de witte rijen er uit halen.
Maar ik weet niet hoe data werken met VBA
Witte cellen danquote:
[..]
Met vba zou je de witte rijen niet eens erin creeren
Daar raak je wel de kern: ALS wat? Hoe definieer je de voorwaarde dat een waarde in een schuivend venster valt? (Als datumtijd binnen venster van een uur, en dat steeds voor alle uren) Moet dus een relatieve voorwaarde zijn ipv een absolute.quote:
Met deze functie krijg je een gemiddelde van de laatste 12 rijen, ongeacht het aanatl rijen:quote:
[..]
Daar raak je wel de kern: ALS wat? Hoe definieer je de voorwaarde dat een waarde in een schuivend venster valt? (Als datumtijd binnen venster van een uur, en dat steeds voor alle uren) Moet dus een relatieve voorwaarde zijn ipv een absolute.
| 1 | =GEMIDDELDE(VERSCHUIVING($B$2;VERGELIJKEN(9,99999999999999E+307;$B2:$B92)-12;0;12;1)) |
De data staat bij mij in B2:B92 en pakt nu het gemiddelde van B58:B69 met behulp van bovenstaande functie
Voorbeeld:
"Valuta: 100"
"Geld: 200"
"Money: 300"
Graag zou ik dus het gemiddelde van deze cellen automatisch willen laten bereken iedere minuut.
Is er een manier om in een formule letters te negeren?
Excel 2010
Edit:
En een UDF (user designed function), handiger als je hem vaak gebruikt, maar een UDF is altijd trager dan excel ingebouwde functie
http://www.ozgrid.com/VBA/ExtractNum.htm
[ Bericht 41% gewijzigd door #ANONIEM op 24-01-2012 16:45:04 ]
WOOW! Bedankt voor je reactie.quote:
http://office.microsoft.c(...)ngs-HA001154901.aspx
Edit:
En een UDF (user designed function), handiger als je hem vaak gebruikt, maar een UDF is altijd trager dan excel ingebouwde functie
http://www.ozgrid.com/VBA/ExtractNum.htm
Ik probeer me in te lezen maar snap er niet veel van.
In Cel A2, A9, A16 en A23 staat het volgende "Euro: ¤1.285.18" maar in alle vier de cellen verschilt het bedrag.
het liefst zou ik dus Cel A2+A9+A16+A23/4 willen doen maar de text zit in de weg
Heb je het voorbeeld zoals op die site staat al werkend gekregen?quote:
[..]
WOOW! Bedankt voor je reactie.
Ik probeer me in te lezen maar snap er niet veel van.
In Cel A2, A9, A16 en A23 staat het volgende "Euro: ¤1.285.18" maar in alle vier de cellen verschilt het bedrag.
het liefst zou ik dus Cel A2+A9+A16+A23/4 willen doen maar de text zit in de weg
Onder de categorieën staan dezelfde titels genoemd die in kolom A staan. Hoe krijg ik het nu makkelijk voor elkaar dat ik in kolom B de behorende categorie krijg van de titel in kolom A?
Ik kan een hoop zoeken.als formules gaan nesten, maar dat is zo omslachtig als er een nummer bij komt of af gaat, dus dat is niet zo handig.
Hebben jullie tips? Het gaat om (helaas) excel 2003 en in het Nederlands.
ps. het gaat niet echt om muziektitels en categorieën, dat is enkel om het probleem duidelijk te maken. Dat voordat jullie daarvoor met andere oplossingen komen
.Jezus. Je hebt helemaal gelijk. Wat deed ik moeilijk met zoeken.als nesten, haha.quote:
Dankjewel.
Nee, niet gelukt.quote:
[..]
Heb je het voorbeeld zoals op die site staat al werkend gekregen?
Nu is opeen mijn Data van uit een website ook niet meer werkend. Raar, ik doe het wel weer handmatig
Na welke stap lukt het niet meer dan?quote:
dan zou deze functie moeten werken om alleen het bedrag eruit te halen:
=(SUBSTITUTE(MID(A1,FIND("¤",A1)+1,LEN(A1)-FIND("¤",A1)+1),".",""))/100
Ik vond: =REPLACE(LEFT(F7,LOOKUP(10,MID(F7,ROW(INDIRECT("1:30")),1)+0,ROW(INDIRECT("1:30")))),1,MIN(FIND(0,SUBSTITUTE(F7&0,{1,2,3,4,5,6,7,8,9},0)))-1,"")+0
Wat ik ook in F7 plaats, het nummer wordt eruit gehaald. Dus "Euro: A¤A3,8540.1220AA" wordt 38540.122.
Het moet wel een echt nummer zijn en niet zoals in het voorbeeld "Euro: ¤1.285.18" want daar zitten 2 punten in ipv een comma en een punt.
Ik ga er eens verder mee spelen.
bijvoorbeeld: klik op a1 --> rood, nog een klik -->groen, en dan weer rood en weer groen etc.
Er hoeft geen waarde in de cel oid.
Duitse excel is nog jofeler. WENN en SVERWEISquote:
Wees bij dat het niet Tsjechisch is. HLOOKUP = VVYHLEDAT bv.quote:Op woensdag 25 januari 2012 19:06 schreef Falco het volgende:
[..]
Duitse excel is nog jofeler. WENN en SVERWEIS
Excelwoordenboek: http://wwwhome.cs.utwente.nl/~trieschn/excel/excel.html
Open VBA editorquote:
Weet iemand of je met een formule een cel een kleur kan geven door er op te klikken
bijvoorbeeld: klik op a1 --> rood, nog een klik -->groen, en dan weer rood en weer groen etc.
Er hoeft geen waarde in de cel oid.
Plak deze code in het betreffende werkblad
| 1 2 3 4 5 6 7 | Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If ActiveCell.Interior.Color <> vbRed Then ActiveCell.Interior.Color = vbRed Else ActiveCell.Interior.Color = vbGreen End If End Sub |
Mooie code, ik heb hem aangevuld met een derde kleur (nl. weer zonder kleur)quote:
[..]
Open VBA editor
Plak deze code in het betreffende werkblad
[ code verwijderd ]
Dus hij gaat nu van rood, naar groen naar ongekleurd.
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) With ActiveCell.Interior If .Color <> vbRed Then If .Color <> vbGreen Then .Color = vbRed Else: .Pattern = xlNone End If Else: .Color = vbGreen End If End With End Sub |
Bijvoorbeeld zo een rooster: http://asklepios.eur.nl/iris/definitief/11_1/11_1_Def-Rooster_Totaal_Studiegroep_BA3_30.html
Oh okay, is het dan niet mogelijk die webagenda te importeren?quote:Op vrijdag 27 januari 2012 00:51 schreef KomtTijd... het volgende:
Mja. Dacht je niet dat er misschien iets van een standaard zou bestaan voor agenda importbestanden?
Je zou het uit kunnen lezen door middel van PHP en dan parsen naar een .ics of .csv. Hiervoor kan je alleen beter bij [PHP/(My)SQL] voor dummies #98 zijnquote:
Ik snap geen shit van Excel dus vandaar deze vraag. Hoe maak ik van een online web rooster een CSV bestand in Excel?
Bijvoorbeeld zo een rooster: http://asklepios.eur.nl/iris/definitief/11_1/11_1_Def-Rooster_Totaal_Studiegroep_BA3_30.html
Vraag je school om een import tool.
Chill thanks, bedankt voor de link. Ga het op die manier proberen.quote:
http://support.google.com(...)y?hl=en&answer=45656
Vraag je school om een import tool.
@qu63 Geen flauw idee wat dat allemaal betekent, maar toch bedankt.
Met deze gegevens
http://kthnxbai.info/draaitabel.xlsx
?
Dat komt ten eerste omdat er nergens een komma staat. Dus je google agenda ziet alleen maar regels met tekst.quote:
En dan? Ik probeer hem in te voeren in Google Agenda, maar hij pakt hem niet als ik alleen copy-paste doe en vervolgens opsla als CSV.
Een importtool is denk ik het handigste.
Ik wil uiteindelijk alleen die draaitabel gebruiken. Het probleem is dat ik op de een of andere manier niet kan krijgen wat ik in excel getypt heb...quote:
je gegevens staan toch al zo? Wat wil je dan nog met je draaitabel doen?
alvast bedankt
Opmaak -> voorwaardelijk opmaak (Format -> conditional format.)quote:
even een vraagje, (hoe) kan ik het instellen dat een grafiek met negatieve waardes rood is maar dat de lijn bij positieve waardes groen is?
alvast bedankt
Ik weet niet of dat ook werkt met je grafieklijn..quote:
[..]
Opmaak -> voorwaardelijk opmaak (Format -> conditional format.)
werkt inderdaad niet met de grafieklijn, iemand nog een idee?quote:
[..]
Ik weet niet of dat ook werkt met je grafieklijn..
kolom A = X-as (teller, datum weet ik veel)
kolom B = oorspronkelijke data
kolom C = als($B1<=0;$B1;#N/B) (#N/B zonder " ")
En dan een spreidingsgrafiek maken van beide kolommen met kolom A als X-as
Door #N/B zal de lijn van, bv, kolom C niet naar nul terug vallen maar onderbroken worden.
edit:
Helaas, in bovenstaand voorbeeld werkt het idee, maar in de meeste gevallen niet kom ik net achter...
[ Bericht 7% gewijzigd door #ANONIEM op 28-01-2012 10:01:12 ]
Dat is idd de oplossing. Je gaat dan wel uit van 0 waarden tussen positief en negatief.quote:
NIet echt behalve een tussenoplossing, Deel de data op in twee kolommen:
kolom A = X-as (teller, datum weet ik veel)
kolom B = oorspronkelijke data
kolom C = als($B1<=0;$B1;#N/B) (#N/B zonder " ")
En dan een spreidingsgrafiek maken van beide kolommen met kolom A als X-as
Door #N/B zal de lijn van, bv, kolom C niet naar nul terug vallen maar onderbroken worden.
[ afbeelding ]
edit:
Helaas, in bovenstaand voorbeeld werkt het idee, maar in de meeste gevallen niet kom ik net achter...
Als je bv van +20 naar -10 gaat zou je per formule er een 0 tussen moeten zetten. In dat geval zou je dat tussen elke stap in de teller moeten doen. Ipv een 0 zou je ook een gemiddelde kunnen berekenen tussen +20 en -10 waardoor de lijn vloeiender is, maar de kleur zou dan niet direct bij de as veranderen.
Wat ik nu heb verzonnen is het volgende:
| 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 45 46 47 48 49 | Sub Macro1() Dim i As Integer Dim j As Integer Dim x As Variant Dim y As Variant Dim SP As Double Dim xnew() As Variant Dim ynew() As Variant x = ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).XValues y = ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Values For i = 1 To UBound(x) j = j + 1 ReDim Preserve xnew(j) ReDim Preserve ynew(j) xnew(j) = x ynew(j) = j If i > 1 Then A1 = x(i - 1) B1 = y(i - 1) A2 = x(i) B2 = y(i) SP = -1 * (B2 - (A2 * (B2 - B1) / (A2 - A1))) / (B2 - B1) / (A2 - A1) If SP > A1 And SP < A2 Then j = j + 1 ReDim Preserve xnew(j) ReDim Preserve ynew(j) xnew(j) = 0 ynew(j) = SP End If End If Next i 'ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Values = ynew 'ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).XValues = xnew End Sub |
met SP = -1 * (B2 - (A2 * (B2 - B1) / (A2 - A1))) / (B2 - B1) / (A2 - A1) bereken ik de punten waar de lijn de x-as snijdt en die voeg ik met redim preserve aan een tussen array toe
so far so good
Echter ik krijg het nu niet voor elkaar om die tussenarray's aan de chart toe te wijzen (twee laatste stukjes code met ' ervoor.)
Mijn idee was namelijk om vervolgens de chart door te lopen en ieder lijndeel dat 0 of kleiner is rood te maken.
Ik stoei er nog wat mee door maar mocht iemand heldere ideeën hebben, wees welkom
Het doel is een dynamische macro die op willekeurige grafieken kan werken
edit:
ok, het blijkt dus dat een array maximaal 250 tekens mag bevatten als je deze naar een chart serie wil schrijven, daar gaat mijn code dus nu mis.
Ik zal als alternatief dus naar een range in een workbook moeten schrijven en de grafiek naar die range verwijzen, pest is dat mijn code uitgaat van de dataseries en dat is dus al onnodig ik kan beter verwijzen naar de bronkolom
Mooi wordt het niet dus
[ Bericht 3% gewijzigd door #ANONIEM op 28-01-2012 17:30:37 ]
Een oplossing zou zijn om 2 aparte grafieken over elkaar heen te leggen waarvan de achtergrond doorzichtig is. Het zal wat gepriegel zijn de 2 precies op elkaar aan te laten sluiten, maar wel mogelijk. Toch krijg je nog steeds geen mooie vloeiende lijn.
Daar zou je ook geen VBA voor nodig hebben.
Nee grijpen naar VBA is mijn zwakte, wat bedoel je precies met tussenformule? Waar ik SP bereken? Dat is het snijpunt van de x-as, dus y is in dat geval per definitie 0quote:
De tussenformules (die dezelde zijn als de waardenformules) hebben geen categoriewaarde ervoor dus zie je niet op die manier in de grafiek.
Een oplossing zou zijn om 2 aparte grafieken over elkaar heen te leggen waarvan de achtergrond doorzichtig is. Het zal wat gepriegel zijn de 2 precies op elkaar aan te laten sluiten, maar wel mogelijk. Toch krijg je nog steeds geen mooie vloeiende lijn.
Daar zou je ook geen VBA voor nodig hebben.
Ik bereken het snijpunt steeds tussen twee punten in (rechte lijn) en test of het snijpunt van de x-as groter is dan x1 en kleiner dan x2...
Als je eenmaal alle snijpunten met de x as hebt kun je lijnsegmenten opmaken en alles in 1 chart houden...
1. Als #11 bv +20 is en #12 -10 dan kan de tussenstap het gemiddelde +5 zijn.
2. Of de tussenstap die uitrekent dat #11 positief is en #12 negatief en daarom de tussenstap 0 moet zijn.
Het probleem met 1. is dat de kleur niet met de as verandert en het probleem met 2. is dat de lijn niet vloeiend is.
Ik hoop dat het nog een beetje begrijpelijk is. Voor zover ik weet is er zonder een uitgebreid VBA-script of heel veel tussenstappen geen andere weg.
Interessant onderwerp wel en als iemand de magische werkwijze heeft posten maar want ik zie hier wel het nut van in.
Welke versie van Excel heb je eigenlijk? 2003? 2007? 2010?quote:
even een vraagje, (hoe) kan ik het instellen dat een grafiek met negatieve waardes rood is maar dat de lijn bij positieve waardes groen is?
alvast bedankt
