DIG Digital Corner
Alles wat je altijd al over computers, hardware, software, internet en elektronische gadgets had willen weten, maar niet op Tweakers.net durft te vragen.
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
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Hmm.. hij werkte nu dus alleen als ALLE criteria onwaar zijn.
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..
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
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Hmm.. Ja als ik die formule invul dan zegt hij eigenlijk altijd ONWAAR.. ook als ik de datum van gister 3x invul.
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.
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.
Mijn macro doet het trouwens, maar ik ben er nog niet tevreden over. Want na het printen laat hij ze op verborgen staan, en dat is niet de bedoeling.
Op dinsdag 25 augustus 2015 15:48 schreef Toekito het volgende:
de grootste schande van heel FOK! naast Fylax is Kano als mod.
de grootste schande van heel FOK! naast Fylax is Kano als mod.
@mind_state
Wordt wel erg ingewikkeld zo...
mocht je macros kunnen gebruiken kun je deze gebruiken:
kun je als functie gebruiken
ALS(EN(MaandenGeleden(A1)>23;MaandenGeleden(B1)>11;MaandenGeleden(C1)>11;1;"Uit datum")
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.
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 
=A1&","&A2&","&A3
Wel met een formule, maar een andere manier zou ik zo niet weten.
Wel met een formule, maar een andere manier zou ik zo niet weten.
Op dinsdag 25 augustus 2015 15:48 schreef Toekito het volgende:
de grootste schande van heel FOK! naast Fylax is Kano als mod.
de grootste schande van heel FOK! naast Fylax is Kano als mod.
Knippen, Plakken speciaal -> Transponeren.
Je kan er dan niet snel komma's tussen plakken zonder formule of VBA.
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)
reset
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?)
aaaarrgh
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
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:
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
[ Bericht 7% gewijzigd door #ANONIEM op 18-12-2011 12:54:41 ]
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
hoe doe ik dit bijvoorbeeld als ik de kolom A1 t/m A15 in een sheet heb, en de cel waarin ik deze wil plakken in een andere sheet zit? dus als je met 2 sheets werkt.
nou
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
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
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
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..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Ben het deels eens met qu63. Je had een goede voorzet gegeven, de overige vragen had hij zelf wel over kunnen nadenken en uitvogelen...
Maar goed, nu de code stap voor stap doornemen en snappen, dan schiet je er wat me op
Maar goed, nu de code stap voor stap doornemen en snappen, dan schiet je er wat me op
Ja ok, maar ik heb een hekel aan "google is your friend" reacties, ze voegen zelden wat toe.
Maar op verzoek:
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 ]
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 ]
Ik heb een excel bestand waarin vanuit een ander bestand plaatjes zijn geplakt. Kan ik op 1 of andere manier excel deze plaatsjes laten lezen, dus bijvoorbeeld wanneer er ergens een plaatje van een plusje staat dat excel dat herkent?
ook niet met een gave sumproduct-formule?quote:
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
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
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Ja, 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
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
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
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
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 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.
Ik loop al een dag te worstelen met een probleem dat volgens mij redelijk makkelijk opgelost kan worden. Ik heb een uitgebreide database (>500.000 records) met privacy gevoelige informatie waar ik graag wat analyses op los wil laten. Omdat ik deze database helaas niet kan delen, heb ik een document bijgevoegd waarin ik enkele fictieve gegevens heb genoteerd, maar waarop ik wat betreft systemathiek vergelijkbare analyses wil draaien.
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
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
Beste Thijs,
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 ]
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 ]
