abonnement Unibet Coolblue Bitvavo
  donderdag 19 februari 2009 @ 17:21:32 #211
62913 Blik
The one and Only!
pi_66244370
Misschien moet de TT en OP dan veranderd worden, daar staat namelijk duidelijk dat je hier terecht kunt met al je vragen over Excel.
pi_66259073
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.
Dus jij verwacht dat hier een Excel guru zit die met alle vragen over alle dingen die met Excel te maken hebben, overweg kan?

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.
  donderdag 19 februari 2009 @ 23:18:14 #213
62215 qu63
..de tijd drinkt..
pi_66259328
quote:
foto 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.
Ik weet er ook niks van

[ 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]
pi_66259431
quote:
Op donderdag 19 februari 2009 23:18 schreef qu63 het volgende:

[..]

Ik weet er ook niks van
Dan edit ik je eruit
  donderdag 19 februari 2009 @ 23:29:09 #215
62215 qu63
..de tijd drinkt..
pi_66259789
quote:
foto Op donderdag 19 februari 2009 23:21 schreef DaFan het volgende:

[..]

Dan edit ik je eruit
Ik bedoelde je laatste regel
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_66259938
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.
  donderdag 19 februari 2009 @ 23:45:12 #217
62913 Blik
The one and Only!
pi_66260466
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
pi_66260668
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?
pi_66265141
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.
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
  vrijdag 20 februari 2009 @ 09:54:03 #220
62913 Blik
The one and Only!
pi_66267337
quote:
Op donderdag 19 februari 2009 23:50 schreef DaFan het volgende:

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?
Nee, wilde gewoon peilen of het gebruikt werd en hoe het gebruikt werd. Heb er verder geen problemen mee
pi_66270140
Ik heb een Excelbestand (doh) en daarin staat in werkblad B een aantal kolommen+rijen met data á la

12008   110   401        5960   69930    02    8020093     0095   


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? :)
pi_66275627
quote:
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? :)
achter het ' staat een opmerking die uitlegt wat die regel doet
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub fok()

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
pi_66277378
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 ]
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?

[ Bericht 17% gewijzigd door Errrwin op 20-02-2009 15:04:45 ]
pi_66279029
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?
staat de 69930 altijd in kolom E?
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
Sub fok()

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
pi_66280679
om deze externe inhoud weer te geven is het noodzakelijk dat je toestemming geeft voor het gebruik van tracking en social mediacookies.
Ja toon me deze inhoud
ik accepteer de cookies.
meer informatie
pi_66282935
?? 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.
1
2
Sheets("Sheet1").Select
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
  vrijdag 20 februari 2009 @ 19:12:14 #227
158136 Joooo-pi
Do you want a balloon...
pi_66287670
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.

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
Private Sub CommandButton1_Click()

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
  zaterdag 21 februari 2009 @ 00:27:57 #228
38651 yozd
FR1908 Vakkie R
pi_66301910
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 ]
"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)."
  maandag 23 februari 2009 @ 03:26:19 #229
38651 yozd
FR1908 Vakkie R
pi_66362310
(1) is al gelukt .
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)."
  maandag 23 februari 2009 @ 08:42:18 #230
234506 Metal_Jag
MMM van metal
pi_66364131
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

?
pi_66367969
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.
pi_66368091
komt leuke puzzel aan jongens.. volgende post
pi_66368210
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.
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)
pi_66369314
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.
  maandag 23 februari 2009 @ 12:50:30 #235
234506 Metal_Jag
MMM van metal
pi_66370384
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.
1Range("A1").FormulaR1C1 = "=MAX(5,5,2,2,5,3,3,2)"

Of gewoon

1Range("A1").value = "=MAX(5,5,2,2,5,3,3,2)"


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 ]
  maandag 23 februari 2009 @ 13:07:24 #236
234506 Metal_Jag
MMM van metal
pi_66370859
quote:
Op maandag 23 februari 2009 11:37 schreef FJD het volgende:
Deze dus

...
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:

1
2
3
4
5
6
7
8
9
10
11
12
Sub hersenspinsel()
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 ]
pi_66374234
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.
pi_66374989
quote:
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 ]
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
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)
  maandag 23 februari 2009 @ 15:35:22 #239
170545 DaviniaHR
Mrs. PhysicsRules
pi_66375925
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.
Als je met conditional formatting niet die waardes op "wit" zet, zie je ze dan nog bij het printen?
(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.
pi_66376009
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 )
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.

Er is toch gewoon een mogelijkheid voor.
abonnement Unibet Coolblue Bitvavo
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')

Het lijkt erop dat je onze advertenties blokkeert

Dat begrijpen we, maar is wel erg jammer. Je kunt FOK! namelijk wel gratis LEZEN, maar we kunnen FOK! niet gratis MAKEN. De inkomsten van de advertenties zorgen ervoor dat we de kosten van de site kunnen dragen zodat je ook morgen FOK! nog kunt bezoeken.

Zou je willen overwegen om voor FOK! een uitzondering te maken in je adblocker (of andere middelen die onze ads blokkeren)? Je krijgt deze melding dan nooit meer te zien.

Ja, ik wil fok.nl whitelisten, laat me zien hoe

Ik neem liever een premium account zodat ik geen advertenties hoef te zien (je moet eerst inloggen)
Ja, breng me naar de shop