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.
Wat zegt de ANWB API erover?
Dit is informatie halen van/uit een website, ik denk niet dat Excel daar de juiste tool voor is.
Dit is informatie halen van/uit een website, ik denk niet dat Excel daar de juiste tool voor is.
De ANWB ...que?quote:Op dinsdag 7 augustus 2012 21:20 schreef DaFan het volgende:
Wat zegt de ANWB API erover?
Dit is informatie halen van/uit een website, ik denk niet dat Excel daar de juiste tool voor is.
http://nl.wikipedia.org/wiki/Application_programming_interfacequote:
Op 
Je moet iets hebben wat de communicatie tussen de ANWB site en Excel kan doen. Dat kan Excel zelf (bijna) niet.
Het kan wel met Google Maps, maar daar zitten wel wat haken en ogen aan:
http://stackoverflow.com/(...)-via-excel-web-query
Succes...
Of kijk hier eens, een opensource database met alle NLse postcodes: http://www.d-centralize.nl/projects/6pp/quote:
[..]
http://nl.wikipedia.org/wiki/Application_programming_interface
Je moet iets hebben wat de communicatie tussen de ANWB site en Excel kan doen. Dat kan Excel zelf (bijna) niet.
Het kan wel met Google Maps, maar daar zitten wel wat haken en ogen aan:
http://stackoverflow.com/(...)-via-excel-web-query
Succes...
Bij de voorbeelden staat onderaan het voorbeeld om de afstand tussen 2 postcodes te bereken: http://www.d-centralize.nl/pro6pp/demo
En hier de source (in JavaScript) http://www.d-centralize.nl/pro6pp/examples/distance
Als je het in Excel voor elkaar kunt krijgen dat je gegevens uit je browser kunt halen is het makkelijk te implementeren, maar anders....
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]
Beste mensen,
ben bezig met wat code in VBA, en natuurlijk gaat er weer iets fout, anders kwam ik hier niet.
Onderstaand de code die ik opgenomen heb in een leeg werkblad om te proberen
Dit is getest, en werkt.
Als ik nu echter dezelfde code toe ga passen in mijn hoofdmap loopt hij er op vast. Code ziet er daar als volgt uit:
Iemand enig idee waarom het verticaal zoeken in een nieuwe lege werkmap wel werkt, maar in de andere code niet?
Alvast bedankt!
ben bezig met wat code in VBA, en natuurlijk gaat er weer iets fout, anders kwam ik hier niet.
Onderstaand de code die ik opgenomen heb in een leeg werkblad om te proberen
| 1 2 3 4 5 6 7 8 9 | Sub vert_zoeken() Range("B2").Select ActiveCell.FormulaR1C1 = _ "=IFERROR(VLOOKUP(RC[-1],'[Producten per leverancier.xlsx]Blad1'!R1:R1048576,4,FALSE),"""")" Range("B3").Select ActiveCell.FormulaR1C1 = _ "=IFERROR(VLOOKUP(RC[-1],'[Leverancier per inkoper.xls]Lijst'!R1:R65536,2,FALSE),"""")" Range("C2").Select End Sub |
Dit is getest, en werkt.
Als ik nu echter dezelfde code toe ga passen in mijn hoofdmap loopt hij er op vast. Code ziet er daar als volgt uit:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | 'Verkoper informatie bestanden openen Workbooks.Open Filename:="u:\Inkoop\Producten per leverancier.xlsx" Workbooks.Open Filename:="u:\Inkoop\Leverancier per inkoper.xls" 'Verkoper informatie toevoegen Windows("mankorapport.xls").Activate Columns("C:D").Select With Selection .Insert shift:=xlToRight .ColumnWidth = 17 End With Range("C1").FormulaR1C1 = "Leverancier" Range("C2").Select ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-1],'[Producten per leverancier.xlsx]Blad1!'R1:R1048576,4,FALSE),"""")" Range("C2").AutoFill Destination:=Range("C2:C4520"), Type:=xlFillDefault Range("C2:C4520").Select Range("D1").FormulaR1C1 = "Inkoper" Range("D2").Select ActiveCell.Formula = "=IFERROR(VLOOKUP(RC[-1],'[Leverancier per inkoper.xls]Lijst'!R1:R65536,2,FALSE),"""")" Range("D2").AutoFill Destination:=Range("D2:D4520"), Type:=xlFillDefault Range("D2:D4520").Select |
Iemand enig idee waarom het verticaal zoeken in een nieuwe lege werkmap wel werkt, maar in de andere code niet?
Alvast bedankt!
Op zaterdag 17 mei 2014 13:15 schreef stinkie het volgende:
zodra ik een echt gespierde en droge pt'r tegenkom, ga ik ik mijn blote reet deadliften bij een gays 'r us gym
zodra ik een echt gespierde en droge pt'r tegenkom, ga ik ik mijn blote reet deadliften bij een gays 'r us gym
omdat je in regel 14 van je code '! hebt staan in plaats van !' ?quote:Op woensdag 8 augustus 2012 12:03 schreef Champy het volgende:
Beste mensen,
ben bezig met wat code in VBA, en natuurlijk gaat er weer iets fout, anders kwam ik hier niet.
Onderstaand de code die ik opgenomen heb in een leeg werkblad om te proberen
[ code verwijderd ]
Dit is getest, en werkt.
Als ik nu echter dezelfde code toe ga passen in mijn hoofdmap loopt hij er op vast. Code ziet er daar als volgt uit:
[ code verwijderd ]
Iemand enig idee waarom het verticaal zoeken in een nieuwe lege werkmap wel werkt, maar in de andere code niet?
Alvast bedankt!
[ Bericht 0% gewijzigd door Deetch op 08-08-2012 12:38:14 ]
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
Precies andersomquote:Op woensdag 8 augustus 2012 12:29 schreef Deetch het volgende:
[..]
omdat je in regel 14 van je code '! hebt staan in plaats van !' ?
, er moet namelijk '! staan.Dit gewijzigd, maar hij blijft weer steken op regel 14.
Ergens anders in de hoofdcode, die door iemand anders 2 jaar geleden opgenomen is staat de volgende vertikaal zoeken:
| 1 2 | ActiveCell.FormulaR1C1 = _ "=IF(ISNA(VLOOKUP(RC[-1],[weeknummer.xls]Blad1!R1:R65536,2,FALSE)),"""",VLOOKUP(RC[-1],[weeknummer.xls]Blad1!R1:R65536,2,FALSE))" |
Voordat deze functie gebruikt wordt, wordt ook eerst het betreffende bestand geopend.
Echter als ik deze oude code gebruik om toe te passen op mijn nieuwe vertikaal zoeken werkt deze ook niet
Op zaterdag 17 mei 2014 13:15 schreef stinkie het volgende:
zodra ik een echt gespierde en droge pt'r tegenkom, ga ik ik mijn blote reet deadliften bij een gays 'r us gym
zodra ik een echt gespierde en droge pt'r tegenkom, ga ik ik mijn blote reet deadliften bij een gays 'r us gym
zo te lezen doe je nu een Vlookup in de vierde kolom van een tabel die maar 1 kolom breed is (nl. R1:R65536) waarschijnlijk moet dit een RC achtige verwijzing worden of in ieder geval een breed genoege (hmmmzz) dataset.
hier meer over RC verwijzing.
http://www.lytebyte.com/2(...)ence-style-in-excel/
hier meer over RC verwijzing.
http://www.lytebyte.com/2(...)ence-style-in-excel/
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
Dat lijkt me sterk, en ik zal uitleggen waarom ik dat denk.quote:
zo te lezen doe je nu een Vlookup in de vierde kolom van een tabel die maar 1 kolom breed is (nl. R1:R65536) waarschijnlijk moet dit een RC achtige verwijzing worden of in ieder geval een breed genoege (hmmmzz) dataset.
hier meer over RC verwijzing.
http://www.lytebyte.com/2(...)ence-style-in-excel/
Ten eerste heb ik een macro opname gestart, en daarna de volgende formule ingevuld in de cel:
=ALS.FOUT(VERT.ZOEKEN(B2;'[Producten per leverancier.xlsx]Blad1'!$1:$65536;2;ONWAAR);"")
Deze formule werkt an sich prima.
Omdat VBA hier niet mee om kan gaan maakt ie er zelf de =IFERROR(VLOOKUP code van, dus ik neem aan dat dan alle zoekparameters goed mee overgenomen worden.
Ten tweede werkt de als tweede genoemde "oude" formule met dezelfde RC verwijzing voor alle cellen in het werkblad, R1:R65536, welke dus wel werkt.
Vreemd.
In ieder geval alvast bedankt voor alle input!
Op zaterdag 17 mei 2014 13:15 schreef stinkie het volgende:
zodra ik een echt gespierde en droge pt'r tegenkom, ga ik ik mijn blote reet deadliften bij een gays 'r us gym
zodra ik een echt gespierde en droge pt'r tegenkom, ga ik ik mijn blote reet deadliften bij een gays 'r us gym
Is je 'hoofdmap' een xls file? want in dat geval kan excel in de compatibiliteitsmode staat. Dan kan je niet zoeken naar rijeen boven de 65536 (bestond namelijk nog niet). Dat doe je wel in regel 14. Dus het werkt in principe wel als je er even een xlsx van maakt (in je test bestandje deed hij het wel omdat een nieuwe file standaard een xlsx bestand is).quote:
Beste mensen,
ben bezig met wat code in VBA, en natuurlijk gaat er weer iets fout, anders kwam ik hier niet.
Onderstaand de code die ik opgenomen heb in een leeg werkblad om te proberen
[ code verwijderd ]
Dit is getest, en werkt.
Als ik nu echter dezelfde code toe ga passen in mijn hoofdmap loopt hij er op vast. Code ziet er daar als volgt uit:
[ code verwijderd ]
Iemand enig idee waarom het verticaal zoeken in een nieuwe lege werkmap wel werkt, maar in de andere code niet?
Alvast bedankt!
Bedankt, dat was het probleem! Bestandjes opgeslagen als xlsx en xlsm, verwijzingen in de code ook aangepast en het werkt nu prima! Super bedankt, kan ik weer verder!quote:
[..]
Is je 'hoofdmap' een xls file? want in dat geval kan excel in de compatibiliteitsmode staat. Dan kan je niet zoeken naar rijeen boven de 65536 (bestond namelijk nog niet). Dat doe je wel in regel 14. Dus het werkt in principe wel als je er even een xlsx van maakt (in je test bestandje deed hij het wel omdat een nieuwe file standaard een xlsx bestand is).
Op zaterdag 17 mei 2014 13:15 schreef stinkie het volgende:
zodra ik een echt gespierde en droge pt'r tegenkom, ga ik ik mijn blote reet deadliften bij een gays 'r us gym
zodra ik een echt gespierde en droge pt'r tegenkom, ga ik ik mijn blote reet deadliften bij een gays 'r us gym
Hmmmm misschien een simpele vraag maar ik moet voor elkaar zien te krijgen dat de cellen per week oplopen als je deze naar beneden sleept
dus A1 staat bv op 13 augustus, deze word naar beneden gesleept en dan zou A2 20 augustus moeten worden ipv 14 augustus.
Iemand een idee hoe ik dit voor elkaar kan krijgen?
dus A1 staat bv op 13 augustus, deze word naar beneden gesleept en dan zou A2 20 augustus moeten worden ipv 14 augustus.
Iemand een idee hoe ik dit voor elkaar kan krijgen?
Im a bad man....but i forgive myself
Luck is for losers
Luck is for losers
In A2 -> =A1+7 en dat naar beneden slepenquote:
Hmmmm misschien een simpele vraag maar ik moet voor elkaar zien te krijgen dat de cellen per week oplopen als je deze naar beneden sleept
dus A1 staat bv op 13 augustus, deze word naar beneden gesleept en dan zou A2 20 augustus moeten worden ipv 14 augustus.
Iemand een idee hoe ik dit voor elkaar 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]
Mijn dank is groot, zat ik toch een beetje in de buurtquote:
[..]
In A2 -> =A1+7 en dat naar beneden slepen
Im a bad man....but i forgive myself
Luck is for losers
Luck is for losers
Je kunt ook in A1 13-9-2012 invoeren en in A2 20-9-2012. Selecteer ze beide en trek ze naar beneden. Op die manier heb je niet al die formules in je worksheet en is je worksheet dus sneller.quote:
[..]
Mijn dank is groot, zat ik toch een beetje in de buurt
Je kunt uiteraard ook de formules gewoon omzetten in vaste waardes.
“I'm not about caring; I'm about winning.”
- Harvey Specter
“Take a step back, look at the bigger picture.”
- Harvey Specter
“Take a step back, look at the bigger picture.”
Hallo,
Ik ben bezig met de Eredivisie in excel in beeld aan het brengen. Nou heb ik 2 vragen:
Hoe kun je het zo maken (liefst geen VB Code maar als het niet anders kan...) dat als je een uitslag ingeeft dat Excel meteen 3 ptn bij de winnaar toevoegt, het doelsaldo wordt bijgewerkt en er bij W (winst) 1 bijkomt.
Mijn andere vraag is dat het automatisch wordt gesorteerd (nu moet ik de hele tijd Data -> Sorteren doen).
Ik ben niet zo goed met Excel, maar toch wel boven gemiddeld en ik weet niet hoe het heet wat ik nodig heb als iemand me dat geeft ben ik ook tevreden (en helemaal mooi als er dan site bij is waar uitleg bijstaat (voorkeurstaal Nederlands))
Alvast bedankt
Ik ben bezig met de Eredivisie in excel in beeld aan het brengen. Nou heb ik 2 vragen:
Hoe kun je het zo maken (liefst geen VB Code maar als het niet anders kan...) dat als je een uitslag ingeeft dat Excel meteen 3 ptn bij de winnaar toevoegt, het doelsaldo wordt bijgewerkt en er bij W (winst) 1 bijkomt.
Mijn andere vraag is dat het automatisch wordt gesorteerd (nu moet ik de hele tijd Data -> Sorteren doen).
Ik ben niet zo goed met Excel, maar toch wel boven gemiddeld en ik weet niet hoe het heet wat ik nodig heb als iemand me dat geeft ben ik ook tevreden (en helemaal mooi als er dan site bij is waar uitleg bijstaat (voorkeurstaal Nederlands))
Alvast bedankt
A party without a DJ is nothing.
Wat heb je zelf al uitgezocht?quote:
Hallo,
Ik ben bezig met de Eredivisie in excel in beeld aan het brengen. Nou heb ik 2 vragen:
Hoe kun je het zo maken (liefst geen VB Code maar als het niet anders kan...) dat als je een uitslag ingeeft dat Excel meteen 3 ptn bij de winnaar toevoegt, het doelsaldo wordt bijgewerkt en er bij W (winst) 1 bijkomt.
Mijn andere vraag is dat het automatisch wordt gesorteerd (nu moet ik de hele tijd Data -> Sorteren doen).
Ik ben niet zo goed met Excel, maar toch wel boven gemiddeld en ik weet niet hoe het heet wat ik nodig heb als iemand me dat geeft ben ik ook tevreden (en helemaal mooi als er dan site bij is waar uitleg bijstaat (voorkeurstaal Nederlands))
Alvast bedankt
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]
Ik heb al gezocht op automatisch sorteren maar dat begreep ik niet zo:
http://www.veit.nl/351258-automatisch-sorteren-mogelijk
En wat betreft data van een sheet naar een ander sheet weet ik niet hoe heet/zoekterm
http://www.veit.nl/351258-automatisch-sorteren-mogelijk
En wat betreft data van een sheet naar een ander sheet weet ik niet hoe heet/zoekterm
A party without a DJ is nothing.
Wat snap je daar niet aan dan?quote:
Ik heb al gezocht op automatisch sorteren maar dat begreep ik niet zo:
http://www.veit.nl/351258-automatisch-sorteren-mogelijk
Zegt de functie ALS() je iets?quote:En wat betreft data van een sheet naar een ander sheet weet ik niet hoe heet/zoekterm
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]
Sorteren kan ook wel zonder VBA dus ik geef even een andere referentie: [Excel] Het grote Excel vragen topic #31
Even een vraagje:
Ik heb in kolom A de volgende nummers onder elkaar staan: 2, 5, 7, 2 en 8.
Ik heb in kolom B de volgende nummers onder elkaar staan: 1, 2, 4, 5, 6 en 9.
Bestaat er een functie om te kijken hoeveel nummers er uit kolom A in kolom B voorkomen? Antwoord is in dit geval 3 nummers (2, 2 en de 5).
Met de functies '=AANTAL.ALS' en '=AANTALLEN.ALS' kom ik er niet uit.
Het kan wel, maar dan mag je een hele hoop formules aan elkaar plakken;
=AANTAL.ALS(A1:A5;B1)+AANTAL.ALS(A1:A5;B2)+...+AANTAL.ALS(A1:A5;B7)
Weet iemand een betere oplossing?
Ik heb in kolom A de volgende nummers onder elkaar staan: 2, 5, 7, 2 en 8.
Ik heb in kolom B de volgende nummers onder elkaar staan: 1, 2, 4, 5, 6 en 9.
Bestaat er een functie om te kijken hoeveel nummers er uit kolom A in kolom B voorkomen? Antwoord is in dit geval 3 nummers (2, 2 en de 5).
Met de functies '=AANTAL.ALS' en '=AANTALLEN.ALS' kom ik er niet uit.
Het kan wel, maar dan mag je een hele hoop formules aan elkaar plakken;
=AANTAL.ALS(A1:A5;B1)+AANTAL.ALS(A1:A5;B2)+...+AANTAL.ALS(A1:A5;B7)
Weet iemand een betere oplossing?
Volgens mij is het snelste een hulpkolom (C)
in kolom C zet je de functie =ALS(ISFOUT(VERT.ZOEKEN(A1;$B:$B;1;0));0;1)
vervolgens tel je deze kolom op en dat is het aantal getallen in lijst A dat in lijst B voorkomt
in kolom C zet je de functie =ALS(ISFOUT(VERT.ZOEKEN(A1;$B:$B;1;0));0;1)
vervolgens tel je deze kolom op en dat is het aantal getallen in lijst A dat in lijst B voorkomt
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
Bedankt, dat werkt!quote:
Volgens mij is het snelste een hulpkolom (C)
in kolom C zet je de functie =ALS(ISFOUT(VERT.ZOEKEN(A1;$B:$B;1;0));0;1)
vervolgens tel je deze kolom op en dat is het aantal getallen in lijst A dat in lijst B voorkomt
Jammer dat Excel geen OF/OR-functie beschikt in dit geval.
