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.
Ik kom niet uit een stukje code. In de range S38:CH38 staan celverwijzingen (dus gewoon d4 of g8). Deze lees ik in in arrLoc. Waarom kan ik met "for...each" elk element uit deze array halen, maar niet met "for i = Lbound(arrLoc) to Ubound(arrLoc) .... next"?
Vervolgens lees ik een tekstbestand in met daarin data, gescheiden door "|". Deze split ik, zodat ik een array krijg. Nu wil ik deze data plaatsen in de cel die ik uit arrLoc haal. Dit zou toch eenvoudig moeten kunnen met een for...next of for each .... next loop? Waarom werkt het niet? Ergens heb ik het idee dat arrLoc een 2D-array is en dat ik gewoon niet snap hoe ik daar een element uit haal.
Wie weet raad?
Vervolgens lees ik een tekstbestand in met daarin data, gescheiden door "|". Deze split ik, zodat ik een array krijg. Nu wil ik deze data plaatsen in de cel die ik uit arrLoc haal. Dit zou toch eenvoudig moeten kunnen met een for...next of for each .... next loop? Waarom werkt het niet? Ergens heb ik het idee dat arrLoc een 2D-array is en dat ik gewoon niet snap hoe ik daar een element uit haal.
Wie weet raad?
| 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 | Dim inhoud As Variant Dim splitinhoud As Variant Dim location Dim arrLoc As Variant Dim Sep Dim i As Integer Close #1 arrLoc = range("S38:CH38") location = Application.GetOpenFilename(FileFilter:="Text File (*.txt),*.txt") Sep = "|" Open location For Input Access Read As #1 Line Input #1, inhoud splitinhoud = Split(inhoud, Sep) For Each i In arrLoc MsgBox i & vbCrLf & splitinhoud  & " in " & arrLoc(1, i)range(arrLoc ).Value = splitinhoud(i + 1)Next Close #1 End Sub |
zou je arrLoc niet beter als string dimmen?
probeer eens met next i ipv next in regel 22
[ Bericht 6% gewijzigd door Deetch op 19-02-2009 15:37:09 ]
probeer eens met next i ipv next in regel 22
[ Bericht 6% gewijzigd door Deetch op 19-02-2009 15:37:09 ]
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
klinkt niet echt als een excel vraag, probeer eens een eigen topic te starten in dig met een eigen duidelijke titel.quote:Op donderdag 19 februari 2009 14:54 schreef Blik het volgende:
Zijn er mensen hier bekend met Think-Cell of ASAP Utilities?
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
Als je er niet bekend mee bent, zeg dan gewoon niks. Het zijn tools die extra functionaliteit geven aan Excel i.c.m. powerpoint. Veel gebruikt bij grote consultancy/strategy bureaus.quote:Op donderdag 19 februari 2009 15:08 schreef Deetch het volgende:
[..]
klinkt niet echt als een excel vraag, probeer eens een eigen topic te starten in dig met een eigen duidelijke titel.
Ik ben benieuwd of mensen er bekend mee zijn en waarvoor ze die tools gebruiken
Maar je hebt dus niet echt een specifieke vraagquote:Op donderdag 19 februari 2009 16:18 schreef Blik het volgende:
[..]
Als je er niet bekend mee bent, zeg dan gewoon niks. Het zijn tools die extra functionaliteit geven aan Excel i.c.m. powerpoint. Veel gebruikt bij grote consultancy/strategy bureaus.
Ik ben benieuwd of mensen er bekend mee zijn en waarvoor ze die tools gebruiken
deze is wel grappig van ASAP
[ Bericht 6% gewijzigd door Deetch op 19-02-2009 16:40:39 ]
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
Ik ga toch geen apart topic openen hiervoor, ben gewoon benieuwd of de excel-experts hier dat soort handige tools gebruiken. Daarvoor ben ik hier volgens mij in het juiste topique
Klopt, dit is voor Fok!kers die met kleine problemen zitten en hiervoor hulp kunnen gebruiken van wat geavanceerderde gebruikers. Geen discussie topic over tools.quote:Op donderdag 19 februari 2009 16:43 schreef Blik het volgende:
Ik ga toch geen apart topic openen hiervoor, ben gewoon benieuwd of de excel-experts hier dat soort handige tools gebruiken. Daarvoor ben ik hier volgens mij in het juiste topique
preciesquote:Op donderdag 19 februari 2009 16:48 schreef DaFan het volgende:
[..]
Klopt, dit is voor Fok!kers die met kleine problemen zitten en hiervoor hulp kunnen gebruiken van wat geavanceerderde gebruikers. Geen discussie topic over tools.
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
Misschien moet de TT en OP dan veranderd worden, daar staat namelijk duidelijk dat je hier terecht kunt met al je vragen over Excel.
Dus jij verwacht dat hier een Excel guru zit die met alle vragen over alle dingen die met Excel te maken hebben, overweg kan?quote:Op donderdag 19 februari 2009 17:21 schreef Blik het volgende:
Misschien moet de TT en OP dan veranderd worden, daar staat namelijk duidelijk dat je hier terecht kunt met al je vragen over Excel.
Wij zijn ook maar gewoon Fok!kers (meestal Deetch/Frollo/qu63/mijzelf) die, als het uitkomt, mede-Fok!kers helpen bij huiswerk/studie/werk-gerelateerde problemen. Je mag het van mij prima vragen over de meest ingewikkelde dingen (zoals je al deed) maar ík (en Deetch) hebben er nog nooit van gehoord dus ik verwacht dat je dan hier weinig hulp/medestanders vindt.
Ik weet er ook niks vanquote:Op donderdag 19 februari 2009 23:13 schreef DaFan het volgende:
Je mag het van mij prima vragen over de meest ingewikkelde dingen (zoals je al deed) maar ík (en Deetch) hebben er nog nooit van gehoord dus ik verwacht dat je dan hier weinig hulp/medestanders vindt.
[ Bericht 17% gewijzigd door qu63 op 19-02-2009 23:30:21 ]
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 bedoelde je laatste regelquote:
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 blijf bij mn standpunt.
Anyway, way offtopic dit. Ik heb ook geen verstand van arrays in VBA trouwens dus daar bemoei ik me ook niet mee.
Anyway, way offtopic dit. Ik heb ook geen verstand van arrays in VBA trouwens dus daar bemoei ik me ook niet mee.
tis trouwens echt geen zware high-end tool trouwens, om die tools te kennen hoef je echt geen guru op het gebied van excel te zijn. Macro's zijn vele malen ingewikkelder
Blik, nu ik ff de moeite heb genomen om te Googlen ( ) ziet dat ASAP er nog best wel handy uit voor idd de gebruiker die elke dag Excel gebruikt. Ikzelf gebruikte het op dagelijkse basis en was vooral met stage veel bezig om mezelf dingen aan te leren. Nu gebruk ik het nooit behalve als er hier mensen vragen hebben die ik denk te kunnen beantwoorden, dus heb niet veel aan zo'n add-in.
Misschien probeer ik het zelfs wel een keer
Heb je er nog specifieke problemen mee of wou je gewoon peilen hoe het hier gebruikt werd?
) ziet dat ASAP er nog best wel handy uit voor idd de gebruiker die elke dag Excel gebruikt. Ikzelf gebruikte het op dagelijkse basis en was vooral met stage veel bezig om mezelf dingen aan te leren. Nu gebruk ik het nooit behalve als er hier mensen vragen hebben die ik denk te kunnen beantwoorden, dus heb niet veel aan zo'n add-in.Misschien probeer ik het zelfs wel een keer
Heb je er nog specifieke problemen mee of wou je gewoon peilen hoe het hier gebruikt werd?
Ik heb ook ff gekeken en een aantal deel van de tooltjes van ASAP heb ik zelf geprogrammeerd of daar ken ik de menu volgorde zo van uit mijn hoofd dat dat bijna automatisch gaat. Misschien toch eens een keer naar kijken, jammer dat de code waarschijnlijk afgeschermd is anders konden we er nog wat van leren.
Dat think-cell is mi overbodig omdat je excel al kan embedden in powerpoint.
Dat think-cell is mi overbodig omdat je excel al kan embedden in powerpoint.
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
Nee, wilde gewoon peilen of het gebruikt werd en hoe het gebruikt werd. Heb er verder geen problemen meequote:Op donderdag 19 februari 2009 23:50 schreef DaFan het volgende:
Misschien probeer ik het zelfs wel een keer
Ik heb een Excelbestand (doh) en daarin staat in werkblad B een aantal kolommen+rijen met data á la
Nu wil ik graag dat op werkblad A de hele rij komt te staan zodra op werkblad B in kolom C de waarde '401' staat.
Snappu?
Hoe doe ik dat? :)
| 1 |
Nu wil ik graag dat op werkblad A de hele rij komt te staan zodra op werkblad B in kolom C de waarde '401' staat.
Snappu?
Hoe doe ik dat? :)
achter het ' staat een opmerking die uitlegt wat die regel doetquote:Op vrijdag 20 februari 2009 11:20 schreef Errrwin het volgende:
Ik heb een Excelbestand (doh) en daarin staat in werkblad B een aantal kolommen+rijen met data á la
[ code verwijderd ]
Nu wil ik graag dat op werkblad A de hele rij komt te staan zodra op werkblad B in kolom C de waarde '401' staat.
Snappu?
Hoe doe ik dat? :)
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | Sheets("Sheet2").Select 'sheet waar gesorteerde gegevens komen Range("a2").Select 'cel waar eerste gesorteerde rij komt Sheets("Sheet1").Select 'sheet waar ruwe data staat Range("C1").Select 'beginnen bovenaan kolom c For i = 1 To 100 'gaat eerste 100 regels bij langs If ActiveCell.Value = 401 Then 'te zoeken waarde ActiveCell.EntireRow.Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste ActiveCell.Offset(1, 0).Select End If Sheets("Sheet1").Select Range("C" & i).Select 'volgende cel in kolom c selecteren Next i End Sub |
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
Crap. Nog iets vergeten, er zijn 2 criteria! Dus in de regel code in m'n vorige post de '401' en de '69930'.quote:Op vrijdag 20 februari 2009 13:52 schreef Deetch het volgende:
[..]
achter het ' staat een opmerking die uitlegt wat die regel doet
[ code verwijderd ]
Kan je daar wat van brouwen, denk je?
[ Bericht 17% gewijzigd door Errrwin op 20-02-2009 15:04:45 ]
staat de 69930 altijd in kolom E?quote:Op vrijdag 20 februari 2009 14:34 schreef Errrwin het volgende:
[..]
Crap. Nog iets vergeten, er zijn 2 criteria! Dus in de regel code in m'n vorige post de '401' en de '69930'.
Kan je daar wat van brouwen, denk je?
Zo ja dan onderstaande code gebruiken
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | Sheets("Sheet2").Select 'sheet waar gesorteerde gegevens komen Range("a2").Select 'cel waar eerste gesorteerde rij komt Sheets("Sheet1").Select 'sheet waar ruwe data staat Range("C1").Select 'beginnen bovenaan kolom c For i = 1 To 5000 'gaat eerste 5000 regels bij langs If ActiveCell.Value = 401 And ActiveCell.Offset(0, 2).Value = 69930 Then 'te zoeken waarde ActiveCell.EntireRow.Select Selection.Copy Sheets("Sheet2").Select ActiveSheet.Paste ActiveCell.Offset(1, 0).Select End If Sheets("Sheet1").Select Range("C" & i).Select 'volgende cel in kolom c selecteren Next i Application.CutCopyMode = False 'deseleteerd de laatste gekopieerde regel (stippellijntje weg) End Sub |
Mocht de 69930 nu in kolom F of G staan dan verander je in regel 10 "Offset(0,2)" in "Offset(0,3)" of "Offset(0,4)"
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
?? krijg je die melding?
Zag nog klein foutje maar dat kan niet dit probleem veroorzaken
verplaats onderstaande code (regel 17/18 van vorige post) direct onder de For i = ....... regel
Als namelijk je eerste regel voldoet aan beide criteria komt hij twee keer op sheet 2 te staan. Na deze aanpassing niet meer.
Zag nog klein foutje maar dat kan niet dit probleem veroorzaken
verplaats onderstaande code (regel 17/18 van vorige post) direct onder de For i = ....... regel
Als namelijk je eerste regel voldoet aan beide criteria komt hij twee keer op sheet 2 te staan. Na deze aanpassing niet meer.
| 1 2 | Range("C" & i).Select 'volgende cel in kolom c selecteren |
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
Deetch, je code geeft bij mij ook foutmeldingen... 
Dit is ongeveer hetzelfde maar net even anders. Misschien werkt dit wel?
Wat wel echt anders is is dat het programma doorgaat totdat er een lege cel in kolom 3 zit.
Bij mij werkt het wel ...
Dit is ongeveer hetzelfde maar net even anders. Misschien werkt dit wel?
Wat wel echt anders is is dat het programma doorgaat totdat er een lege cel in kolom 3 zit.
| 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 | Dim i,j As Integer Sheets("Blad1").Select i = 0 j = 0 Do i = i + 1 If Cells(i, 3).Value = "401" And Cells(i, 5).Value = "69930" Then j = j + 1 Cells(i, 4).EntireRow.Copy Sheets("Blad2").Activate ActiveSheet.Cells(j, 1).Select ActiveSheet.Paste Sheets("Blad1").Activate End If Loop Until Cells(i, 3).Value = "" Range("A1").Select Application.CutCopyMode = False End Sub |
Bij mij werkt het wel ...
heitieh
2 vragen:
(1)
Ik heb een Excel bestand met daarin 21 werkbladen. Ik moet de rendementen van portfolio’s berekenen en daarom heb ik 1 werkblad (werkblad ‘1’) met de rendementen van een portefeuille die 1 week vast gehouden is op een bepaald moment, werkblad 2 berekent de rendementen voor portefeuilles die 2 weken zijn vastgehouden op een bepaald moment, werkblad 3 voor 3 weken etc. Ik doe dit voor 20 weken en mijn 21e werkblad moet een soort samenvatting worden (hier gaat mijn vraag over). Je ziet in dit werkblad in rij 1 alle weken en in kolom A de verschillende tijdstippen.
In kolom B, rij 5 zie je nu ='1'!E14. In de rij daaronder wordt dit: ='1'!F18. De rij daaronder heeft ='1'!G22. Er zit dus een patroon in. De letter (kolom) gaat steeds 1 verder en het getal (de rij) 4.
In kolom C (21e werkblad) zie je in C,5 : ='2'!E14. D,5 = ='3'!E14. B,5 was ='1'!E14. M.a.w. ook hier zit een patroon in, het getal tussen '' (wat staat voor het werkblad) gaat steeds omhoog met 1.
Die getallen heb ik allemaal handmatig zitten invoeren door steeds in het 21e werkblad op een lege cel dubbel te klikken en dan het getal wat er bij hoort aan te klikken in het juiste werkblad. Dat is best wel een pokke werk, dus ik vroeg me af of dit te automatiseren is?
Naja, het klink allemaal best wazig als ik het zo allemaal nog eens doorlezen, maar misschien snappen jullie het .
(2)
Ik heb 2 excel bestanden. 1 ziet er zo uit:
kolom A
----------
fortis
ing
rabobank
shell
abn
bp
enz.
De ander:
abn 4 6 7 3 2 4 5
ing 3 5 3 2 7 8 9
fortis 2 3 4 5 6
etc.
M.a.w. het 2e bestand is gewoon een rijtje aandelenkoersen (kolom A de naam en in B t/m heel ver de koersen). Ik wil nu graag in bestand 1 al die koersen hebben. In kolom A zit er namelijk een bepaalde vaste volgorde in. Hoe is dit te doen zonder alles handmatig te kopiëren?
[ Bericht 8% gewijzigd door yozd op 21-02-2009 01:09:03 ]
(1)
Ik heb een Excel bestand met daarin 21 werkbladen. Ik moet de rendementen van portfolio’s berekenen en daarom heb ik 1 werkblad (werkblad ‘1’) met de rendementen van een portefeuille die 1 week vast gehouden is op een bepaald moment, werkblad 2 berekent de rendementen voor portefeuilles die 2 weken zijn vastgehouden op een bepaald moment, werkblad 3 voor 3 weken etc. Ik doe dit voor 20 weken en mijn 21e werkblad moet een soort samenvatting worden (hier gaat mijn vraag over). Je ziet in dit werkblad in rij 1 alle weken en in kolom A de verschillende tijdstippen.
In kolom B, rij 5 zie je nu ='1'!E14. In de rij daaronder wordt dit: ='1'!F18. De rij daaronder heeft ='1'!G22. Er zit dus een patroon in. De letter (kolom) gaat steeds 1 verder en het getal (de rij) 4.
In kolom C (21e werkblad) zie je in C,5 : ='2'!E14. D,5 = ='3'!E14. B,5 was ='1'!E14. M.a.w. ook hier zit een patroon in, het getal tussen '' (wat staat voor het werkblad) gaat steeds omhoog met 1.
Die getallen heb ik allemaal handmatig zitten invoeren door steeds in het 21e werkblad op een lege cel dubbel te klikken en dan het getal wat er bij hoort aan te klikken in het juiste werkblad. Dat is best wel een pokke werk, dus ik vroeg me af of dit te automatiseren is?
Naja, het klink allemaal best wazig als ik het zo allemaal nog eens doorlezen, maar misschien snappen jullie het
.(2)
Ik heb 2 excel bestanden. 1 ziet er zo uit:
kolom A
----------
fortis
ing
rabobank
shell
abn
bp
enz.
De ander:
abn 4 6 7 3 2 4 5
ing 3 5 3 2 7 8 9
fortis 2 3 4 5 6
etc.
M.a.w. het 2e bestand is gewoon een rijtje aandelenkoersen (kolom A de naam en in B t/m heel ver de koersen). Ik wil nu graag in bestand 1 al die koersen hebben. In kolom A zit er namelijk een bepaalde vaste volgorde in. Hoe is dit te doen zonder alles handmatig te kopiëren?
[ Bericht 8% gewijzigd door yozd op 21-02-2009 01:09:03 ]
"On a good day, when I run, the voices in my head get quieter until it’s just me, my breath and my feet on the sand (Dexter, E5x09)."
(1) is al gelukt 
.
Nu (2) nog...
.Nu (2) nog...
"On a good day, when I run, the voices in my head get quieter until it’s just me, my breath and my feet on the sand (Dexter, E5x09)."
Kan in het 2e bestand een op een of andere manier aandeel 2x voorkomen?
abn 1 3 5 6 7
fortis 12 12 12 5
abn 2 2 2 2 2
?
abn 1 3 5 6 7
fortis 12 12 12 5
abn 2 2 2 2 2
?
Ik zou echt niet weten hoe ik deze formule zou moeten beginnen:
Je hebt kolom A t/m H. Er moet een hele rij geplakt worden onder deze kolommen, maar het mag geen data overschrijven. Oftewel, ik moet weten welke kolom het langst is en daaronder pas laten plakken.
Hoe kan ik dit aanpakken, liefst met code.
Je hebt kolom A t/m H. Er moet een hele rij geplakt worden onder deze kolommen, maar het mag geen data overschrijven. Oftewel, ik moet weten welke kolom het langst is en daaronder pas laten plakken.
Hoe kan ik dit aanpakken, liefst met code.
Deze dus 
Ik heb nu transportgegevens maar daarin wordt niet goed bijgehouden wanneer ritten gecombineerd worden. Dit is uiteraard wel handmatig te corrigeren maar met 20k records is dat niet de bedoeling. De voorkeur heeft Access maar ik ben een stuk handiger in Excel dus wat heen en weer gesleep is geen probleem. Format is: Ritnummer, laadtijd, lostijd.
Voorbeeld:
3333 - 10:00 - 11:30
3333 - 10:10 - 11:20
3333 - 11:00 - 11:50
3333 - 14:00 - 15:00
Dit moet worden:
3333 - 10:00 - 11:50
3333 - 14:00 - 15:00
Dus de records die qua tijden samenvallen moet worden samengevoegd en degene die niet samenvallen moet los blijven. Een simpele query als ritnummer - vroegste lostijd - laatste laadtijd zal 3333 - 10:00 - 15:00 opleveren en dat is niet wenselijk omdat dat suggereert dat de vrachtauto tussen die tijd niet beschikbaar is terwijl deze wel beschikbaar is tussen 11:50 en 14:00 en daar dus een andere rit tussen gepland zou kunnen worden.
Dus je komt dan een beetje op de volgende statement uit:
Per ritnummer -> Als (begintijd van record) is tussen (begintijd - eindtijd andere record) dan samenvoegen van beide records en gebruik vroegste lostijd en laatste laadtijd als gegevens.
Ik heb nu transportgegevens maar daarin wordt niet goed bijgehouden wanneer ritten gecombineerd worden. Dit is uiteraard wel handmatig te corrigeren maar met 20k records is dat niet de bedoeling. De voorkeur heeft Access maar ik ben een stuk handiger in Excel dus wat heen en weer gesleep is geen probleem. Format is: Ritnummer, laadtijd, lostijd.
Voorbeeld:
3333 - 10:00 - 11:30
3333 - 10:10 - 11:20
3333 - 11:00 - 11:50
3333 - 14:00 - 15:00
Dit moet worden:
3333 - 10:00 - 11:50
3333 - 14:00 - 15:00
Dus de records die qua tijden samenvallen moet worden samengevoegd en degene die niet samenvallen moet los blijven. Een simpele query als ritnummer - vroegste lostijd - laatste laadtijd zal 3333 - 10:00 - 15:00 opleveren en dat is niet wenselijk omdat dat suggereert dat de vrachtauto tussen die tijd niet beschikbaar is terwijl deze wel beschikbaar is tussen 11:50 en 14:00 en daar dus een andere rit tussen gepland zou kunnen worden.
Dus je komt dan een beetje op de volgende statement uit:
Per ritnummer -> Als (begintijd van record) is tussen (begintijd - eindtijd andere record) dan samenvoegen van beide records en gebruik vroegste lostijd en laatste laadtijd als gegevens.
Eerste beste voetbalkenner binnen BoF!
[b]Winnaar van de Band of FOK!kers Michael Rasmussen Award[/b]
Alpe d'Huez (1:16), Col du Telegraphe (0:56) & Col du Galibier (1:20)
[b]Winnaar van de Band of FOK!kers Michael Rasmussen Award[/b]
Alpe d'Huez (1:16), Col du Telegraphe (0:56) & Col du Galibier (1:20)
Ik heb de macro, maar hoe ik van een formule een enkele getal maken in de macro.
Dus geen "=MAX(5;5;2;2;5;3;3;2)" als uitkomst, maar enkel 5.
Dus geen "=MAX(5;5;2;2;5;3;3;2)" als uitkomst, maar enkel 5.
quote:Op maandag 23 februari 2009 12:14 schreef Jaheur het volgende:
Ik heb de macro, maar hoe ik van een formule een enkele getal maken in de macro.
Dus geen "=MAX(5;5;2;2;5;3;3;2)" als uitkomst, maar enkel 5.
| 1 |
Of gewoon
| 1 |
Ik denk dat het em in de komma's zit.
Wel raar, want als je later in de cell kijkt staat er gewoon weer ; .
[ Bericht 28% gewijzigd door Metal_Jag op 23-02-2009 12:55:51 ]
Ik heb helaas geen tijd om hele scripts te schrijven, maar ik heb wel een hersenspinsel hierover. Waarschijnlijk loopt de volgende code nog gigantisch vast, maar het is een beginnetje:quote:
| 1 2 3 4 5 6 7 8 9 10 11 12 | i = 0 Do i = i + 1 If Cells(i, 3).Value < Cells(i + 1, 2).value Then Cells(i, 3).Value = Cells(i + 1, 3).Value Cells(i + 1, 1).EntireRow.Delete i = i - 1 End If Loop Until Cells(i + 1, 1).Value = "" End Sub |
[ Bericht 3% gewijzigd door Metal_Jag op 24-02-2009 12:11:10 ]
Even een vraag over het printen van excel. Wanneer ik 0 waarden en foute formulles als deel/0 niet wil laten zien wanneer ik print hoe regel ik dat in excel 2007 de nederlandse versie.
Thanksquote:Op maandag 23 februari 2009 13:07 schreef Metal_Jag het volgende:
Ik heb helaas geen tijd om hele scripts te schrijven, maar ik heb wel een hersenspinsel hierover. Waarschijnlijk loopt de volgende code nog gigantisch vast, maar het is een beginnetje:
[ code verwijderd ]
Na een tip van een vriend ben ik de hele dag aant knutselen geweest en t werkt nu bijna. Tis wss een enorme dirty manier maar t hoeft toch maar 1x te werken
Eerste beste voetbalkenner binnen BoF!
[b]Winnaar van de Band of FOK!kers Michael Rasmussen Award[/b]
Alpe d'Huez (1:16), Col du Telegraphe (0:56) & Col du Galibier (1:20)
[b]Winnaar van de Band of FOK!kers Michael Rasmussen Award[/b]
Alpe d'Huez (1:16), Col du Telegraphe (0:56) & Col du Galibier (1:20)
Als je met conditional formatting niet die waardes op "wit" zet, zie je ze dan nog bij het printen?quote:Op maandag 23 februari 2009 14:45 schreef Stansfield het volgende:
Even een vraag over het printen van excel. Wanneer ik 0 waarden en foute formulles als deel/0 niet wil laten zien wanneer ik print hoe regel ik dat in excel 2007 de nederlandse versie.
(speaking of quick and dirty
)
*O* Trotse mama van E l i en A v i v a *O*
Insanity is heritable. You get it from your children.
Ik ben wel gek, maar niet achterlijk.
If you can't beat them, confuse them.
Insanity is heritable. You get it from your children.
Ik ben wel gek, maar niet achterlijk.
If you can't beat them, confuse them.
Dat is niet handig want het beslaat een heleboel formulies die er al staan maar de info is nog niet gevuld. Elke maand komt er dan een stukje bij. Dus dan blijf ik aan de gang.quote:Op maandag 23 februari 2009 15:35 schreef DaviniaHR het volgende:
[..]
Als je met conditional formatting niet die waardes op "wit" zet, zie je ze dan nog bij het printen?
(speaking of quick and dirty
Er is toch gewoon een mogelijkheid voor.
Heb je mijn script nog gebruikt?quote:Op maandag 23 februari 2009 15:04 schreef FJD het volgende:
[..]
Thanks
Na een tip van een vriend ben ik de hele dag aant knutselen geweest en t werkt nu bijna. Tis wss een enorme dirty manier maar t hoeft toch maar 1x te werken
Is het mogelijk om door middel van een wachtwoord een blad te beveiligen op deleting van rows en columns, maar de inhoud van een cel wel bewerkbaar laten zijn?
De standaard mogelijkheid van werkblad beveiligen kan dit niet.
De standaard mogelijkheid van werkblad beveiligen kan dit niet.
Voordat je de beveiliging aanzet, moet je de cellen deblokkeren die bewerkbaar moeten blijven. Als dat voor alle cellen geldt ben je snel klaar: Ctrl+A, Ctrl+1, tabblad Beveiliging, Geblokkeerd uitzetten.quote:
Is het mogelijk om door middel van een wachtwoord een blad te beveiligen op deleting van rows en columns, maar de inhoud van een cel wel bewerkbaar laten zijn?
De standaard mogelijkheid van werkblad beveiligen kan dit niet.
Nope, was al zo'n eind onderwegquote:[b]Op dinsdag 24 februari 2009 08:24 schreef Metal_Jag het volgende:[/b
Heb je mijn script nog gebruikt?
Ik zit je code even door te lezen en waar ie denk ik de mist ingaat is als er een nieuw ritnummer komt met een overlappend timeframe. Op dat moment worden de tijden gewoon aangepast terwijl dat dan juist weer niet mag gebeuren
Eerste beste voetbalkenner binnen BoF!
[b]Winnaar van de Band of FOK!kers Michael Rasmussen Award[/b]
Alpe d'Huez (1:16), Col du Telegraphe (0:56) & Col du Galibier (1:20)
[b]Winnaar van de Band of FOK!kers Michael Rasmussen Award[/b]
Alpe d'Huez (1:16), Col du Telegraphe (0:56) & Col du Galibier (1:20)
Nope. Elk aandeel komt maar 1x voor.quote:Op maandag 23 februari 2009 08:42 schreef Metal_Jag het volgende:
Kan in het 2e bestand een op een of andere manier aandeel 2x voorkomen?
abn 1 3 5 6 7
fortis 12 12 12 5
abn 2 2 2 2 2
?
"On a good day, when I run, the voices in my head get quieter until it’s just me, my breath and my feet on the sand (Dexter, E5x09)."
Thnx met dat andere zal ik er wel uitkomen, maar helaas heb ik nog wat.
Heeft er misschien iemand een scriptje wat hetzelfde doet als voorwaardelijke opmaak, maar dan met een macro en die naar een ander tabblad kan? Ik heb dus een validatielijst en ik wil daar met een voorwaardelijke opmaak werken, maar de gegevens staan op een ander werkblad oftwel, voorwaardelijke opmaak werkt dan niet.
Heeft er misschien iemand een scriptje wat hetzelfde doet als voorwaardelijke opmaak, maar dan met een macro en die naar een ander tabblad kan? Ik heb dus een validatielijst en ik wil daar met een voorwaardelijke opmaak werken, maar de gegevens staan op een ander werkblad oftwel, voorwaardelijke opmaak werkt dan niet.
Zet de volgende code in de script-editor bij "Microsoft Excel-objecten" achter "Blad1"quote:Op dinsdag 24 februari 2009 15:14 schreef Jaheur het volgende:
Thnx met dat andere zal ik er wel uitkomen, maar helaas heb ik nog wat.
Heeft er misschien iemand een scriptje wat hetzelfde doet als voorwaardelijke opmaak, maar dan met een macro en die naar een ander tabblad kan? Ik heb dus een validatielijst en ik wil daar met een voorwaardelijke opmaak werken, maar de gegevens staan op een ander werkblad oftwel, voorwaardelijke opmaak werkt dan niet.
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | If Range("A1").Value > Sheets("Blad2").Range("A1").Value Then Range("A1").Interior.ColorIndex = 15 Else Range("A1").Interior.ColorIndex = xlNone End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Range("A1").Value > Sheets("Blad2").Range("A1").Value Then Range("A1").Interior.ColorIndex = 15 Else Range("A1").Interior.ColorIndex = xlNone End If End Sub |
De code loopt op het moment dat je de sheet activeert of verandert.
maak een gewone verwijzing, van blad x naar y, zodat je van die gewone verwijzing je opmaak afhankelijk kunt makenquote:Op dinsdag 24 februari 2009 15:14 schreef Jaheur het volgende:
Thnx met dat andere zal ik er wel uitkomen, maar helaas heb ik nog wat.
Heeft er misschien iemand een scriptje wat hetzelfde doet als voorwaardelijke opmaak, maar dan met een macro en die naar een ander tabblad kan? Ik heb dus een validatielijst en ik wil daar met een voorwaardelijke opmaak werken, maar de gegevens staan op een ander werkblad oftwel, voorwaardelijke opmaak werkt dan niet.
erg onzinnig dat excel voorwaardelijke opmaak obv een ander tabblad niet toestaat btw.
The sleazy way... kan ook eventueel met wit lettertype, zodat je het niet eens zietquote:Op dinsdag 24 februari 2009 16:30 schreef ralfie het volgende:
[..]
maak een gewone verwijzing, van blad x naar y, zodat je van die gewone verwijzing je opmaak afhankelijk kunt maken
erg onzinnig dat excel voorwaardelijke opmaak obv een ander tabblad niet toestaat btw.
