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.
?? 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:Op dinsdag 24 februari 2009 13:09 schreef Jaheur het volgende:
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.
