[EXCEL] Het grote Excel vragen topic, #11

donderdag 26 februari 2009 @ 21:01:07 #1

qu63

..de tijd drinkt..

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

Voorgaande deeltjes met veel informatie:

[Excel] Het grote Excel vragen topic
[EXCEL] Het grote Excel vragen topic, #2
[EXCEL] Het grote Excel vragen topic, #3
[EXCEL] Het grote Excel vragen topic, #4
[EXCEL] Het grote Excel vragen topic, #5
[Excel] Het grote Excel-vragentopic #6
[EXCEL] Het grote Excel vragen topic, #7
[EXCEL] Het grote Excel vragen topic, #8
[EXCEL] Het grote Excel vragen topic, #9
[EXCEL] Het grote Excel vragen topic, #10

_{Nieuw topic? Haal de OP bij de wiki}

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

Heeft over alles een mening 2022 donderdag 26 februari 2009 @ 21:02:07 #2

Dr_Flash

CubeMeister

Quuuuu

Vooral namens Marcb1974 overigens, het was ZIJN probleem wat je hiermee oplost

Salivili hipput tupput tapput äppyt tipput hilijalleen

donderdag 26 februari 2009 @ 21:02:22 #3

qu63

..de tijd drinkt..

quote:
Op donderdag 26 februari 2009 21:02 schreef Dr_Flash het volgende:
Quuuuu

Vooral namens Marcb1974 overigens, het was ZIJN probleem wat je hiermee oplost

Ohja

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

donderdag 26 februari 2009 @ 21:31:19 #4

marcb1974

Dakshin Ray

Thx qu

stupidity has become as common as common sense was before

Heeft over alles een mening 2022 donderdag 26 februari 2009 @ 22:14:20 #5

Dr_Flash

CubeMeister

Leerzaam avondje dit

Salivili hipput tupput tapput äppyt tipput hilijalleen

vrijdag 27 februari 2009 @ 09:24:19 #6

Hi_flyer

Van alles te melden

Vraagje: uit een lijst met zo'n 6000 getallen wil ik de 10 grootste en 10 kleinste halen. Hoe krijg ik dat voor elkaar? Met de max-functie kom je niet ver....

vrijdag 27 februari 2009 @ 09:35:08 #7

Stansfield

tvp

vrijdag 27 februari 2009 @ 10:06:45 #8

marcb1974

Dakshin Ray

quote:
Op vrijdag 27 februari 2009 09:24 schreef Hi_flyer het volgende:
Vraagje: uit een lijst met zo'n 6000 getallen wil ik de 10 grootste en 10 kleinste halen. Hoe krijg ik dat voor elkaar? Met de max-functie kom je niet ver....

In een andere kolom ernaast de formule rang() gebruiken. En dan sorteren op die kolom.

Of even een top 10 rij maken en dan met rang() en vert.zoeken() vullen

stupidity has become as common as common sense was before

vrijdag 27 februari 2009 @ 11:18:07 #9

qu63

..de tijd drinkt..

quote:
Op vrijdag 27 februari 2009 09:24 schreef Hi_flyer het volgende:
Vraagje: uit een lijst met zo'n 6000 getallen wil ik de 10 grootste en 10 kleinste halen. Hoe krijg ik dat voor elkaar? Met de max-functie kom je niet ver....

Je kan ook met voorwaardelijke opmaak werken, dan krijgen de hoogste 10 een groene kleur, en de laagste 10 een rode (bijvoorbeeld)

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

vrijdag 27 februari 2009 @ 12:16:43 #10

Metal_Jag

MMM van metal

TVP

Over het max / min verhaal:
Ik zou gewoon resp. oplopend en aflopend sorteren.

vrijdag 27 februari 2009 @ 12:32:12 #11

DaFan

quote:
Op vrijdag 27 februari 2009 12:16 schreef Metal_Jag het volgende:
TVP

Over het max / min verhaal:
Ik zou gewoon resp. oplopend en aflopend sorteren.

Nee dat is toch geen oplossing man. Beetje in aanpasbare ranges denken

Rang(x;8) geeft de 8e grootste waarde.
De 7-na laagste kan je vinden met RANG(x;AANTAL(x)-8)

x = je range, bijvoorbeeld B1:B10 oid.

zondag 1 maart 2009 @ 19:55:49 #12

hendrik2009

Hallo, ik hoop dat jullie mij met het volgende kunnen helpen:

Ik heb een sheet met gegevens, oplopend gesorteerd per week.
In kolom A staat het weeknummer in format 0906, zijnde de 6e week uit het jaar 2009.
Per week gaat het om meerdere regels, soms 8, soms 9, soms 6.

Bepaalde gegevens zijn gedurende een aantal weken gelijk.
Nu lijkt het mij handig een macro te hebben die de gegevens van de laatste week kopieert en onder de vorige week zet, liefst met wijziging van het weeknummer.

Voorbeeld:
De laatst ingevoerde week is 0906. Deze staat in de regels 200 t/m 208.
De kolommen A t/m F bevatten informatie over de betreffende week.
In dit geval zou de macro de laatst gevulde range van één week (A200:F208) moeten selecteren en plakken in cel A209, liefst met automatische wijziging van het weeknummer (0907).

Wie kan en wil mij hiermee helpen?

Alvast bedankt.

Groet,
Hendrik

zondag 1 maart 2009 @ 19:58:06 #13

DaFan

Maar je wil dus week 6 in de lijst voor week 7? Waarom zou je dat doen dan moet je dat weer aanpassen of denk ik nou krom?

zondag 1 maart 2009 @ 20:31:47 #14

Joooo-pi

Do you want a balloon...

quote:
Op zondag 1 maart 2009 19:55 schreef hendrik2009 het volgende:
Hallo, ik hoop dat jullie mij met het volgende kunnen helpen:

Ik heb een sheet met gegevens, oplopend gesorteerd per week.
In kolom A staat het weeknummer in format 0906, zijnde de 6e week uit het jaar 2009.
Per week gaat het om meerdere regels, soms 8, soms 9, soms 6.

Bepaalde gegevens zijn gedurende een aantal weken gelijk.
Nu lijkt het mij handig een macro te hebben die de gegevens van de laatste week kopieert en onder de vorige week zet, liefst met wijziging van het weeknummer.

Voorbeeld:
De laatst ingevoerde week is 0906. Deze staat in de regels 200 t/m 208.
De kolommen A t/m F bevatten informatie over de betreffende week.
In dit geval zou de macro de laatst gevulde range van één week (A200:F208) moeten selecteren en plakken in cel A209, liefst met automatische wijziging van het weeknummer (0907).

Wie kan en wil mij hiermee helpen?

Alvast bedankt.

Groet,
Hendrik

Selecteer de regels. Kopieren. Selecteer de eerste cel van je nieuwe bereik. Plakken.

Daar hoef je geen macro voor toch?

Dan kun je ook nog zoeken/vervangen doen om de week aan te passen.

heitieh

zondag 1 maart 2009 @ 21:00:33 #15

hendrik2009

quote:
Op zondag 1 maart 2009 19:58 schreef DaFan het volgende:
Maar je wil dus week 6 in de lijst voor week 7? Waarom zou je dat doen dan moet je dat weer aanpassen of denk ik nou krom?

Week 6 voor week 7? Gewoon oplopende volgorde en historie blijft bewaard.
Of misschien begrijpen we elkaar verkeerd.

quote:
[..]

Selecteer de regels. Kopieren. Selecteer de eerste cel van je nieuwe bereik. Plakken.

Daar hoef je geen macro voor toch?

Dan kun je ook nog zoeken/vervangen doen om de week aan te passen.

De macro is natuurlijk geen noodzaak. Ik vind het gewoon leuk en handig om zoveel mogelijk te automatiseren en daarmee de mogelijkheden van excel te benutten.
De macro zou dan onderdeel van een bestaande macro kunnen worden, die de webquery ververst, formules doortrekt tot de laatst gevulde rij, de pivot ververst en de grafiek met dynamisch bereik vernieuwd.

Nu moeten sommige delen hard en sommige delen als formule worden geplakt.

maandag 2 maart 2009 @ 15:07:28 #16

FunnyDealer

pgr 100

Hallo,

kunnen jullie me helpen met het volgende probleem in excel 2003.

Ik heb een rijtje namen en daarbij een datum:

1
2
3
4
5
6

Naam   Laatste update
Jan   23-02-2009
Piet   11-01-2009
Klaas   26-02-2009
Leo   09-02-2009
Henk   19-01-2009

Nu wil ik op een ander blad alleen de namen hebben, waarvan de datum langer dan 30 dagen geleden is
Dus ik moet als uitkomst Piet en Henk hebben.

het lukt me wel om de vergelijking te maken, maar ik wil eigenlijk een variabele lijst met alleen de namen die ik nodig heb

1	=IF(B2<TODAY()-30;A2;0)

en dat lukt met bovenstaande code niet, want dan krijg ik er nul waardes tussen, weet iemand een oplossing?

PS: (de variabele lijst moet automatisch updaten als de data's veranderen)

maandag 2 maart 2009 @ 15:45:29 #17

Metal_Jag

MMM van metal

quote:
Op maandag 2 maart 2009 15:07 schreef FunnyDealer het volgende:
Hallo,

kunnen jullie me helpen met het volgende probleem in excel 2003.

Ik heb een rijtje namen en daarbij een datum:
[ code verwijderd ]

Nu wil ik op een ander blad alleen de namen hebben, waarvan de datum langer dan 30 dagen geleden is
Dus ik moet als uitkomst Piet en Henk hebben.

het lukt me wel om de vergelijking te maken, maar ik wil eigenlijk een variabele lijst met alleen de namen die ik nodig heb
[ code verwijderd ]

en dat lukt met bovenstaande code niet, want dan krijg ik er nul waardes tussen, weet iemand een oplossing?

PS: (de variabele lijst moet automatisch updaten als de data's veranderen)

Als je in Blad2 in B1 jouw formule zet, dan kun je met de volgende macro werken. Zet deze code achter Blad1 in de script-editor (ivm de event Change).

1
2
3
4
5
6
7
8
9
10
11
12

Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets("Blad2").Select
    ActiveSheet.Range("B1").Select
    ActiveCell.FormulaR1C1 = "=IF(Blad1!RC<TODAY()-30,Blad1!RC[-1],"""")"
    Selection.AutoFill Destination:=ActiveSheet.Range("B1:B40"), Type:=xlFillDefault
    ActiveSheet.Columns("B:B").Select
    Selection.Sort Key1:=ActiveSheet.Range("B1"), Order1:=xlDescending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
    ActiveSheet.Range("B2").Select
    Sheets("Blad1").Select
End Sub

Dit is een snel in elkaar gezet macro'tje en het past Blad2 aan op het moment dat je Blad1 wijzigt. Het gebruikt jouw formule en sorteert de hele kolom vervolgens, zodat de namen bovenaan komen.

Het is geen meesterwerk, maar het werkt wel.

Ohja, het gaat tot 40 namen, maar dat kun je simpel aanpassen tot meer, door de range in het script aan te passen.

[ Bericht 2% gewijzigd door Metal_Jag op 02-03-2009 16:34:51 (extra regel in script gezet !!) ]

maandag 2 maart 2009 @ 16:15:15 #18

Hi_flyer

Van alles te melden

Beste medeforummers. Stel dat je een userform hebt met heeeel veel tekstvakken. Is het mogelijk om al die tekstvakken in een loopje te vullen, ongeveer zoals onderstaande code?

1
2
3

For i = 1 To 67 Step 1
TextBox& i&.Text = Sheet7.Range("B" & i).Value
Next i

Dit lukt dus niet, weet iemand een manier die wel lukt? Anders moet ik iets van 100 tekstvakjes per stuk gaan aanspreken.

maandag 2 maart 2009 @ 16:54:00 #19

ralfie

!Yvan eht nioj

je kunt ze lang lopen via Form.controls( x )

ik weet zo niet zeker of x hier de naam van je control is of een index waarde, maar daar ben je zelf snel achter.

maandag 2 maart 2009 @ 17:28:53 #20

DaFan

Ik denk de index waarde trouwens maar als het de naam van je control is kan je een tijdelijke string maken met TempStr = "Label" & i
Dat werkt beter dan het in de haakjes zelf doen denk ik. Ik heb zelf ook gezocht maar kon alleen iets soortgelijks vinden als ralfie. Al denk ik dat je ipv Form -> Sheets(sheetnaam).Controls moet gebruiken?

dinsdag 3 maart 2009 @ 11:43:09 #21

FunnyDealer

pgr 100

quote:
Op maandag 2 maart 2009 15:45 schreef Metal_Jag het volgende:

[..]

Als je in Blad2 in B1 jouw formule zet, dan kun je met de volgende macro werken. Zet deze code achter Blad1 in de script-editor (ivm de event Change).
[ code verwijderd ]

Dit is een snel in elkaar gezet macro'tje en het past Blad2 aan op het moment dat je Blad1 wijzigt. Het gebruikt jouw formule en sorteert de hele kolom vervolgens, zodat de namen bovenaan komen.

Het is geen meesterwerk, maar het werkt wel.

Ohja, het gaat tot 40 namen, maar dat kun je simpel aanpassen tot meer, door de range in het script aan te passen.

Het werkt! Al had ik het liever wel gezien zonder script editor, maar het updaten maakt het ook lastig

dinsdag 3 maart 2009 @ 15:10:18 #22

Deetch

WTF?

quote:
Op maandag 2 maart 2009 16:15 schreef Hi_flyer het volgende:
Beste medeforummers. Stel dat je een userform hebt met heeeel veel tekstvakken. Is het mogelijk om al die tekstvakken in een loopje te vullen, ongeveer zoals onderstaande code?
[ code verwijderd ]

Dit lukt dus niet, weet iemand een manier die wel lukt? Anders moet ik iets van 100 tekstvakjes per stuk gaan aanspreken. ;(

Onderstaande code zou het moeten doen, de "step 1" kun je weglaten want excel vba gaat standaard uit van een stap van 1

1
2
3
4
5
6
7
8

Private Sub UserForm_Activate()

For i = 1 To 67
sName = "TextBox" & i
Me.Controls(sName).Text = Sheet7.Range("B" & i).Value
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

dinsdag 3 maart 2009 @ 15:34:39 #23

DaFan

Ah vandaar dat het me niet lukte. Dit werkt alleen in een form, blijkbaar niet in een sheet.

dinsdag 3 maart 2009 @ 17:11:52 #24

Hi_flyer

Van alles te melden

quote:
Op dinsdag 3 maart 2009 15:10 schreef Deetch het volgende:

[..]

Onderstaande code zou het moeten doen, de "step 1" kun je weglaten want excel vba gaat standaard uit van een stap van 1
[ code verwijderd ]

Thanks, ziet er werkbaar uit, morgen zal ik het eens proberen. Step 1 is inderdaad overbodig, ik gebruik het omdat vroegah in C++ het wel verplicht was (als ik het goed heb).

woensdag 4 maart 2009 @ 21:52:41 #25

sk888er

Excel 2003 NL
Ik heb een spreidingsgafriek met 100 waarden en heb hier een trendlijn door excel over laten zetten.
Is er een manier om deze trendlijn af te lezen in formule vorm?

woensdag 4 maart 2009 @ 22:03:32 #26

DubbelGum

quote:
Op woensdag 4 maart 2009 21:52 schreef sk888er het volgende:
Excel 2003 NL
Ik heb een spreidingsgafriek met 100 waarden en heb hier een trendlijn door excel over laten zetten.
Is er een manier om deze trendlijn af te lezen in formule vorm?

quote:
Vergelijking in grafiek weergeven Hiermee worden de vergelijkingen die voor het berekenen van de trendlijn zijn gebruikt, weergegeven of verborgen.

Zit bij trendlijn opmaken, opties voor trendlijn, onderaan, formule in grafiek weergeven.

[ Bericht 23% gewijzigd door DubbelGum op 04-03-2009 22:09:14 ]

woensdag 4 maart 2009 @ 22:19:23 #27

sk888er

quote:
Op woensdag 4 maart 2009 22:03 schreef DubbelGum het volgende:

[..]

[..]

Zit bij trendlijn opmaken, opties voor trendlijn, onderaan, formule in grafiek weergeven.

[ afbeelding ]

Held

donderdag 5 maart 2009 @ 11:01:16 #28

wc-eend

Beste Excell goden,

Is het mogelijk (vast wel) om aan een cell een maximum te geven...

Stel ik wil een aantal berekeningen doen en elk antwoord dat boven 30 uitkomt, wordt afgerond naar 30.. Dus als ik 6+40 doe, dat hij automatisch afrond naar beneden, de 30..

Ik heb 2007 en ben nog echt een excell noob

donderdag 5 maart 2009 @ 11:11:16 #29

qu63

..de tijd drinkt..

=ALS(A1+B1>30;30;A1+B1)
A1= 6
B1= 40

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

donderdag 5 maart 2009 @ 12:17:57 #30

wc-eend

Ok die krijg ik werkend, zoals ik hem zo willen..

(dit zijn allemaal voorbeelden, maar dan snap ik de formule)

Nu zou ik graag willen dat in A1 die max 30 komt..
Als ik in B1 een getal invul, dan moet hij dat van A1 aftrekken.
Als ik in c1 een getal invul moet hij dat bij A1 optellen

En als het mogelijk is, zodra ik in B1 of C1 op enter drukt, en hij gaat berekenen dat hij de waarde uit B1 of C1 verwijdert.. zonder dat a1 terugspringt naar vorig getal..

ik vraag veel heh

donderdag 5 maart 2009 @ 12:24:20 #31

qu63

..de tijd drinkt..

quote:
Op donderdag 5 maart 2009 12:17 schreef wc-eend het volgende:
Ok die krijg ik werkend, zoals ik hem zo willen..

(dit zijn allemaal voorbeelden, maar dan snap ik de formule)

Nu zou ik graag willen dat in A1 die max 30 komt..
Als ik in B1 een getal invul, dan moet hij dat van A1 aftrekken.
Als ik in c1 een getal invul moet hij dat bij A1 optellen

En als het mogelijk is, zodra ik in B1 of C1 op enter drukt, en hij gaat berekenen dat hij de waarde uit B1 of C1 verwijdert.. zonder dat a1 terugspringt naar vorig getal..

ik vraag veel heh

Dat is wel mogelijk, maar dan met een macro (denk ik)
Als je kolom D er bij wil gebruiken kan het wel:

a1 =D1-B1+C1
b1 =zelf in te vullen
c1 =zelf in te vullen
d1 =ALS(GETAL1+GETAL2>30;30;GETAL1+GETAL2)

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

donderdag 5 maart 2009 @ 12:29:35 #32

wc-eend

Ik ga eens kijken hoe dat werkt

donderdag 5 maart 2009 @ 12:36:22 #33

wc-eend

uh wat zou ik inplaats van getal moeten invullen in de engelse versie? number werkt niet..

donderdag 5 maart 2009 @ 12:41:15 #34

Metal_Jag

MMM van metal

edit

donderdag 5 maart 2009 @ 12:48:17 #35

wc-eend

quote:
Op donderdag 5 maart 2009 12:41 schreef Metal_Jag het volgende:

edit

?

donderdag 5 maart 2009 @ 13:18:42 #36

qu63

..de tijd drinkt..

quote:
Op donderdag 5 maart 2009 12:36 schreef wc-eend het volgende:
uh wat zou ik inplaats van getal moeten invullen in de engelse versie? number werkt niet..

Daar moet je je eigen getallen invullen

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

donderdag 5 maart 2009 @ 14:07:19 #37

wc-eend

Hmm ik krijg hem niet werkend..

voor de verduidelijking:

A1 mag nooit hoger dan 30 worden

Bij B1 vul ik 10 in..

Dan moet A1 20 worden

Vul ik nu bij C1 15 in..

Dan moet A1 weer 30 worden, ipv 35..

donderdag 5 maart 2009 @ 14:18:44 #38

qu63

..de tijd drinkt..

Zoiets dan?

a1 =ALS(D1-B1+C1>30;30;D1-B1+C1)
b1 =zelf in te vullen
c1 =zelf in te vullen
d1 =ALS(GETAL1+GETAL2>30;30;GETAL1+GETAL2)

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

donderdag 5 maart 2009 @ 14:31:13 #39

wc-eend

Nope..

donderdag 5 maart 2009 @ 15:52:48 #40

DaFan

Kan met macro maar niet via mn werk en de telefoon. Vanavond dus als ik tijd heb.

donderdag 5 maart 2009 @ 15:55:26 #41

DubbelGum

-edit: laat maar, niet goed gelezen

donderdag 5 maart 2009 @ 16:09:38 #42

DaFan

Druk op Alt-F11, ga links naar de sheet waarin je de formule wil, dubbelklik.
Voer dan rechts dit in:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

If Not Intersect(Target, Range("A1:C1")) Is Nothing Then
    If Range("B1").Value <> "" Then
        Range("A1").Value = Range("A1").Value - Range("B1").Value
        GoTo FinalCheck
    End If
    If Range("C1").Value <> "" Then
        Range("A1").Value = Range("A1").Value + Range("C1").Value
        GoTo FinalCheck
    End If
End If

FinalCheck:
If Range("A1").Value > 30 Then Range("A1").Value = 30
Range("B1").Value = ""
Range("C1").Value = ""

Application.EnableEvents = True

End Sub

Let erop dat je A1 nog wel kan aanpassen. Dat kan je zelf oplossen via Data -> Validation.

donderdag 5 maart 2009 @ 16:12:23 #43

DaFan

Stiekem alt tabben op je werk

als je er niet uitkomt; ik ben er rond half zeven.

donderdag 5 maart 2009 @ 16:22:41 #44

wc-eend

Het werkt, WOW!!!

Thanks

donderdag 5 maart 2009 @ 16:48:15 #45

wc-eend

Toch nog een vraagje:

Als ik dit wil herhalen op de A2, B2, C2

Kan ik dan diezelfde code neerzetten en dan alleen de eentjes veranderen in een tweetje?

donderdag 5 maart 2009 @ 16:55:04 #46

DaFan

Ja kan. Denk dat het nog wel eleganter kan maar als je het maar voor 2 rijen hoeft te doen is dat niet nodig.

Plak dat trouwens BINNEN in de sub, maak geen nieuwe, dat werkt niet. Je moet Finalcheck2 maken ook.

donderdag 5 maart 2009 @ 17:07:57 #47

wc-eend

donderdag 5 maart 2009 @ 18:16:29 #48

DaFan

Gelukt neem ik aan? Dan ga ik m ook niet meer eleganter maken

Lukte trouwens ook niet zo 1-2-3 dus bekijk t lekker

vrijdag 6 maart 2009 @ 03:25:00 #49

TinToR

fair dinkum

ik heb een spreadsheet met ongeveer 300 rijen

1
2
3
4
5
6
7
8
9

------------------------------
klantA  |  eee  | ddd |  $50|
klantA  |  eee  | ddd |  $64|
klantB  |  eee  | ddd |  $24|
klantB  |  eee  | ddd |  $49|
klantA  |  eee  | ddd |  $82|
klantC  |  eee  | ddd |  $37|
klantB  |  eee  | ddd |  $18|
------------------------------

Is het mogelijk om op een 2e blad 1 rij voor iedere klant weer te geven met de totalen van de $ bedragen?

Resultaat:

1
2
3
4
5

--------------|
klantA | $196 |
klantB | $91 |
klantC | $37 |
--------------|

excel 2003 of excel 2007
bvd

Abigail, I'm sure if there is something out there looking down on us from somewhere else in the universe...they're wise enough to stay away from us.

vrijdag 6 maart 2009 @ 07:41:13 #50

DaFan

Bekijk Sumif of Som.als eens.

vrijdag 6 maart 2009 @ 09:47:23 #51

DaFan

wc-eend:

Dit is eleganter als je met meer rijen gaat werken:

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

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

i = Target.Row
If i < 3 Then

    If Not Intersect(Target, Range("A" & i & ":C" & i)) Is Nothing Then
        If Range("B" & i).Value <> "" Then
            Range("A" & i).Value = Range("A" & i).Value - Range("B" & i).Value
            GoTo FinalCheck
        End If
        If Range("C" & i).Value <> "" Then
            Range("A" & i).Value = Range("A" & i).Value + Range("C" & i).Value
            GoTo FinalCheck
        End If
    End If

FinalCheck:
    If Range("A" & i).Value > 30 Then Range("A" & i).Value = 30
    Range("B" & i).Value = ""
    Range("C" & i).Value = ""

End If

Application.EnableEvents = True

End Sub

Deze regel

1	If i < 3 Then

geeft de grens aan tot welke rij het moet werken (in dit geval rij 1 en 2). Je kan dit natuurlijk aanpassen en zelfs aangeven dat het bijvoorbeeld alleen tussen rij 4 en 8 moet werken (If i >4 AND i<9 Then).

Succes ermee.

vrijdag 6 maart 2009 @ 09:50:27 #52

DaFan

Nog korter/netter:

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

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

i = Target.Row
If i < 3 Then

RijAWaarde = Range("A" & i).Value
RijBWaarde = Range("B" & i).Value
RijCWaarde = Range("C" & i).Value

    If Not Intersect(Target, Range("A" & i & ":C" & i)) Is Nothing Then
        If RijBWaarde <> "" Then
            RijAWaarde = RijAWaarde - RijBWaarde
            GoTo FinalCheck
        End If
        If Range("C" & i).Value <> "" Then
            RijAWaarde = RijAWaarde + RijCWaarde
            GoTo FinalCheck
        End If
    End If

FinalCheck:
    If RijAWaarde > 30 Then RijAWaarde = 30
    RijBWaarde = ""
    RijCWaarde = ""

    Range("A" & i).Value = RijAWaarde
    Range("B" & i).Value = RijBWaarde
    Range("C" & i).Value = RijCWaarde

End If

Application.EnableEvents = True

End Sub

vrijdag 6 maart 2009 @ 12:09:01 #53

chef_dude

Ik heb een vraag, in kolom K staan alle postcodes vermeld (4 cijfers, spatie, 2 letters). Echter in sommige gevallen staan de 2 letters niet in kolom k, maar in kolom J.

Nu wil ik dat wanneer dit het geval is, de gegevens aan elkaar toegevoegd worden in kolom L.

Tot dusver heb ik:
=ALS(LENGTE(K2)<5;TEKST.SAMENVOEGEN(J2;K2))

Dit werkt in ieder geval niet, wat resulteert in

kan iemand mij hierbij helpen?

Bedankt!!!

vrijdag 6 maart 2009 @ 13:30:57 #54

DaFan

=ALS(LENGTE(K2)<5;J2&K2))

vrijdag 6 maart 2009 @ 13:44:29 #55

chef_dude

haha,

erg dichtbij zat ik er!!!! Duizendmaal dank!

vrijdag 6 maart 2009 @ 15:41:24 #56

SpeedyGJ

Zo snel als de bliksem O+

Is het mogelijk om de grafieken in Excel op te slaan? Ik probeer van alles te doen maar ik kan het niet vinden.

<a href="https://www.youtube.com/channel/UCPueUwKfPaGH7v48LZlltkg" rel="nofollow" target="_blank">WSDokkum Youtube</a>

vrijdag 6 maart 2009 @ 15:52:47 #57

DaFan

Gewoon in het werkblad kan je het toch opslaan? Of wil je het als plaatje? Dan moet je een printscreen maken.

vrijdag 6 maart 2009 @ 15:55:27 #58

qu63

..de tijd drinkt..

quote:
Op vrijdag 6 maart 2009 15:52 schreef DaFan het volgende:
Gewoon in het werkblad kan je het toch opslaan? Of wil je het als plaatje? Dan moet je een printscreen maken.

Of gewoon slepen naar het programma waarin je het wil gebruiken..

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

vrijdag 6 maart 2009 @ 16:13:52 #59

Hi_flyer

Van alles te melden

quote:
Op vrijdag 6 maart 2009 15:41 schreef SpeedyGJ het volgende:
Is het mogelijk om de grafieken in Excel op te slaan? Ik probeer van alles te doen maar ik kan het niet vinden.

Of:

1
2
3

Set CurrentChart = Sheets("Sheet1").ChartObjects(1).Chart
Fname = ThisWorkbook.Path & "\temp.gif"
CurrentChart.Export FileName:=Fname, FilterName:="GIF"

Toevallig gisteren mee bezig geweest. Op deze manier kan je namelijk grafieken in bijv. een userform plaatsen die geupdate wordt met informatie die een gebruiker ingeeft. Onwijs leuk om uit te zoeken

_{Niet van mezelf maar van http://www.j-walk.com/ss/excel/tips/tip66.htm}

vrijdag 6 maart 2009 @ 16:23:06 #60

qu63

..de tijd drinkt..

quote:
Op vrijdag 6 maart 2009 16:13 schreef Hi_flyer het volgende:

[..]

Of:
[ code verwijderd ]

Toevallig gisteren mee bezig geweest. Op deze manier kan je namelijk grafieken in bijv. een userform plaatsen die geupdate wordt met informatie die een gebruiker ingeeft. Onwijs leuk om uit te zoeken

_{Niet van mezelf maar van http://www.j-walk.com/ss/excel/tips/tip66.htm}

Die site heeft het nog over Excel5/95

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

vrijdag 6 maart 2009 @ 16:25:16 #61

Hi_flyer

Van alles te melden

Maar het werkt wel

En voor zover ik weet is het de enige vlotte manier om een grafiekje snel op te slaan en in een userform te gebruiken.

vrijdag 6 maart 2009 @ 17:10:40 #62

SpeedyGJ

Zo snel als de bliksem O+

Werkt het ook met 2007?
En slepen werkt helaas niet.
PRSC wist ik wel maar als het makkelijker kan dan liever dat, gezien ik ook de achtergrond van de grafieken transparant hebt.

<a href="https://www.youtube.com/channel/UCPueUwKfPaGH7v48LZlltkg" rel="nofollow" target="_blank">WSDokkum Youtube</a>

vrijdag 6 maart 2009 @ 17:19:20 #63

qu63

..de tijd drinkt..

quote:
Op vrijdag 6 maart 2009 17:10 schreef SpeedyGJ het volgende:
Werkt het ook met 2007?
En slepen werkt helaas niet.
PRSC wist ik wel maar als het makkelijker kan dan liever dat, gezien ik ook de achtergrond van de grafieken transparant hebt.

Waar wil je het heen hebben dan? Op je website?

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

vrijdag 6 maart 2009 @ 17:28:24 #64

SpeedyGJ

Zo snel als de bliksem O+

Ja op mijn website / FOK! / Weerwoord

<a href="https://www.youtube.com/channel/UCPueUwKfPaGH7v48LZlltkg" rel="nofollow" target="_blank">WSDokkum Youtube</a>

FOK!fossiel zaterdag 7 maart 2009 @ 12:04:14 #65

RemCOW

SG Special power! :D

He allemaal. Ik heb een Excel vraagje waarvan ik dacht dat die simpel was om op te lossen, maar ik kom er maar niet uit.

In kolom C heb ik, ongesorteerd, een reeks van resultaten. Deze lopen van 0 tot 100. Laten we zeggen voor het gemak dat het gaat om de prijsverloop van een aandeel. Nu is het de bedoeling dat ik, beginnend bij C1, de eerste prijs vind die boven de 40 is. In D1 moet het getal worden opgeslagen wat met een formule/macro is gevonden (dus dat kan iets van 41,50 zijn oid). Als het getal is gevonden in C105, heb ik al een formule gevonden die de waarde retouneerd van B105.

Iemand een idee?

Beter een gat in je hand, dan een hand in je gat
Let's have fun ---- Life will suck soon enough
Hattrick: 206761

zaterdag 7 maart 2009 @ 12:31:13 #66

SpeedyGJ

Zo snel als de bliksem O+

Ik heb het al gevonden

iig bedankt voor jullie hulp.

Oja gewoon copy paste

had ik kunnen wonen :p

<a href="https://www.youtube.com/channel/UCPueUwKfPaGH7v48LZlltkg" rel="nofollow" target="_blank">WSDokkum Youtube</a>

zaterdag 7 maart 2009 @ 15:28:34 #67

Joppy

geen colaboy

Voor mijn stage heb ik een excel uitdraai van het ERP systeem gekregen. In de excel file staan de orders met daarbij een hele hoop gegevens, datums, statussen, hoeveelheden enzovoorts. Nu is het zo dat sommige ordernummers meerdere keren kunnen voortkomen in de lijst, want een order kan worden gesplitst, met behoud van zelfde ordernummer. Niet handig, maar daar kan ik nu niks aan doen.

Het punt is dat dit mijn analyses vervuild, omdat met de reguliere Vlookup/vert.zoeken functie, telkens de eerste de beste ordernummer wordt gepakt en er niet verder wordt gekeken naar andere gelijke entries. Is er een handige manier om dit er voor te zorgen dat er meerdere uitkomsten worden gegeven bij dezelfde invoer? Ik had al een Mvlookup functie gevonden, maar die werkte alleen als je van te voren wist hoeveel gelijke entries er waren, en dat weet ik dus niet. Het is namelijk een lijst met +10.000 rijen

Op mijn stage heb ik de engelstalige excel 2003, en op mijn laptop heb ik excel 2007 NL.

Let the beat control your body!

zaterdag 7 maart 2009 @ 16:45:15 #68

Joooo-pi

Do you want a balloon...

quote:
Op zaterdag 7 maart 2009 12:04 schreef RemCOW het volgende:
He allemaal. Ik heb een Excel vraagje waarvan ik dacht dat die simpel was om op te lossen, maar ik kom er maar niet uit.

In kolom C heb ik, ongesorteerd, een reeks van resultaten. Deze lopen van 0 tot 100. Laten we zeggen voor het gemak dat het gaat om de prijsverloop van een aandeel. Nu is het de bedoeling dat ik, beginnend bij C1, de eerste prijs vind die boven de 40 is. In D1 moet het getal worden opgeslagen wat met een formule/macro is gevonden (dus dat kan iets van 41,50 zijn oid). Als het getal is gevonden in C105, heb ik al een formule gevonden die de waarde retouneerd van B105.

Iemand een idee?

macro'tje:

1
2
3
4
5
6
7
8
9
10
11

Sub fok()
i = 0
Do
i = i + 1
If Cells(i, 3).Value > 40 Then
Range("D1").Value = Cells(i, 3).Value
Exit Sub
End If

Loop Until Cells(i + 1, 3).Value = ""
end sub

heitieh

zaterdag 7 maart 2009 @ 16:51:53 #69

Joooo-pi

Do you want a balloon...

quote:
Op zaterdag 7 maart 2009 15:28 schreef Joppy het volgende:

(...)
Ik had al een Mvlookup functie gevonden, maar die werkte alleen als je van te voren wist hoeveel gelijke entries er waren, en dat weet ik dus niet. Het is namelijk een lijst met +10.000 rijen
(...)

Kun je wel weten door:

Voor kolom A:

AANTAL.ALS(A:A; jouwordernummer)

heitieh

FOK!fossiel zaterdag 7 maart 2009 @ 17:42:22 #70

RemCOW

SG Special power! :D

quote:
Op zaterdag 7 maart 2009 16:45 schreef Joooo-pi het volgende:

[..]

macro'tje:
[ code verwijderd ]

*)

Zal eens proberen! ik heb net zelf ook een werkende gekregen die gebruik maakt van de Find (gejat van een website).

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

Sub GetBetween()

Dim lMin As Double, lMax As Double
Dim rFound As Range, rLookin As Range
Dim lFound As Double, rStart As Range
Dim rCcells As Range, rFcells As Range
Dim lCellCount As Long, lcount As Long
Dim bNoFind As Boolean

        lMin = 0
        lMax = 2

        Set rStart = Range("B6")
        Set rLookin = Range("B6:B25")

       lCellCount = rLookin.Cells.Count
       lcount = 0


         Do Until lFound > lMin And lFound < lMax

            Set rStart = rLookin.Cells.Find(What:="*", After:=rStart, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=True)

            lFound = rStart.Value
            lcount = lcount + 1

            If lCellCount = lcount Then
               bNoFind = True
               Exit Do
           End If

        Loop

            Range("C1") = rStart.Value

                 If bNoFind = True Then
                     Range("C1") = "N/A"
                 End If


        On Error GoTo 0

End Sub

Beter een gat in je hand, dan een hand in je gat
Let's have fun ---- Life will suck soon enough
Hattrick: 206761

zaterdag 7 maart 2009 @ 17:52:34 #71

Joooo-pi

Do you want a balloon...

quote:
Op zaterdag 7 maart 2009 17:42 schreef RemCOW het volgende:

[..]

Zal eens proberen! ik heb net zelf ook een werkende gekregen die gebruik maakt van de Find (gejat van een website).
[ code verwijderd ]

Ik zie wel wat overeenkomsten. Maar volgens mij doet mijn macro'tje precies wat je vroeg en jouw macro is veel omslachtiger...

Succes iig.

heitieh

zaterdag 7 maart 2009 @ 18:10:44 #72

Joppy

geen colaboy

quote:
Op zaterdag 7 maart 2009 16:51 schreef Joooo-pi het volgende:

[..]

Kun je wel weten door:

Voor kolom A:

AANTAL.ALS(A:A; jouwordernummer)

Die functie ken ik natuurlijk wel. had er alleen nog niet aan gedacht omdat in die multiple Vlookup functie te plaatsen

. Ik zal morgen eens kijken of dat zou kunnen werken.

Let the beat control your body!

zondag 8 maart 2009 @ 13:06:05 #73

Buonissimo

Hoi, ik ben wat excel aan het leren en heb de volgende (simpele) vraag.

Stel dat je twee kolommen data hebt met daarin ofwel 'ja' ofwel 'neen'. In de derde kolom wil je een waarde 1 krijgen als er twee 'neens' zijn en een waarde 2 als dit niet het geval is. Hoe moet ik dit aanpakken? Ik heb met de AND-functie gespeeld maar daar krijg je ofwel een TRUE of FALSE en dat zoek ik dus niet.

Groeten

http://blog.netmax-webdesign.be

zondag 8 maart 2009 @ 13:13:02 #74

qu63

..de tijd drinkt..

=ALS(EN(A1="neen";B1="neen");2;1)

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

zondag 8 maart 2009 @ 13:19:39 #75

Buonissimo

Er komt #NAME? staan. Wellicht doe ik iets fout?

http://blog.netmax-webdesign.be

zondag 8 maart 2009 @ 13:20:43 #76

qu63

..de tijd drinkt..

quote:
Op zondag 8 maart 2009 13:19 schreef Buonissimo het volgende:
Er komt #NAME? staan. Wellicht doe ik iets fout?

Je gebruikt de Engelse versie neem ik aan?

Dan wordt het =IF(AND(D29="neen";E29="neen");2;1)

Misschien moet je de puntkomma's nog vervangen door een komma, maar dat weet ik niet precies, ik gebruik zelf de NL versie..

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

zondag 8 maart 2009 @ 13:25:59 #77

Buonissimo

Het bestand vind je op http://probeersel.agilityhoster.com/beginner.xlsx

http://blog.netmax-webdesign.be

zondag 8 maart 2009 @ 13:30:19 #78

Buonissimo

Het moest =IF(AND(A1="neen";B1="neen");"juist";"fout") zijn

http://blog.netmax-webdesign.be

FOK!fossiel zondag 8 maart 2009 @ 20:18:38 #79

RemCOW

SG Special power! :D

quote:
Op zaterdag 7 maart 2009 17:52 schreef Joooo-pi het volgende:

[..]

Ik zie wel wat overeenkomsten. Maar volgens mij doet mijn macro'tje precies wat je vroeg en jouw macro is veel omslachtiger...

Succes iig. ^O^

die van jou is idd veel minder omslachtig ;) maar deze kon ik makkelijker ombouwen naar een functie.
Daar heb ik ook direct een vraag over. stel dat ik met jouw code, of die van mij, een bepaald getal heb gevonden in kolom C25. Nu wil ik de waarde uit A25 ook ergens opslaan.

Nu doe ik het door een andere functie die bijna hetzelfde doet als mijn andere functie; nl:

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

Function RowValue(rStart As Range, rLookin As Range, ValueFirst As Double)

Dim lFound As Double
Dim lCellCount As Long, lcount As Long
Dim bNoFind As Boolean

       lCellCount = rLookin.Cells.Count
       lcount = 0

         Do Until lFound = ValueFirst

            Set rStart = rLookin.Cells.Find(What:="*", After:=rStart, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=True)

            lFound = rStart.Value
            lcount = lcount + 1

            If lCellCount = lcount Then
               bNoFind = True
               Exit Do
           End If

        Loop

            Test = rStart.Row
               RowValue = Sheets("GBM").Range("A" & Test).Value

                 If bNoFind = True Then
                     RowValue = "N/A"
                 End If


        On Error GoTo 0

End Function

Het probleem is, de functie wordt aangeroepen in de sheet: GMB-profit.
De range die wordt opgegeven is dan bijvoorbeeld =RowValue(GBM!C7;GBM!C7:C762;D53)
Als ik in plaats van
RowValue = Sheets("GBM").Range("A" & Test).Value
RowValue = Range("A" & Test).Value

gebruik, krijg ik de waarde op het huidige blad (GMB-profit). Als ik Sheets("GMB") defineer werkt op zich wel prima, het probleem is dat ik de functie voor meerdere sheets moet toepassen. Ik heb geen zin om voor elke sheet een andere functie te bouwen.... Is er op een manier de sheet op te vragen? Dan wel via die invoer ("rLookin / rStart") dan wel op een andere manier.

Beter een gat in je hand, dan een hand in je gat
Let's have fun ---- Life will suck soon enough
Hattrick: 206761

zondag 8 maart 2009 @ 22:12:38 #80

Joooo-pi

Do you want a balloon...

quote:
Op zondag 8 maart 2009 20:18 schreef RemCOW het volgende:

[..]

die van jou is idd veel minder omslachtig maar deze kon ik makkelijker ombouwen naar een functie.
Daar heb ik ook direct een vraag over. stel dat ik met jouw code, of die van mij, een bepaald getal heb gevonden in kolom C25. Nu wil ik de waarde uit A25 ook ergens opslaan.

Nu doe ik het door een andere functie die bijna hetzelfde doet als mijn andere functie; nl:
[ code verwijderd ]

Het probleem is, de functie wordt aangeroepen in de sheet: GMB-profit.
De range die wordt opgegeven is dan bijvoorbeeld =RowValue(GBM!C7;GBM!C7:C762;D53)
Als ik in plaats van
RowValue = Sheets("GBM").Range("A" & Test).Value
RowValue = Range("A" & Test).Value

gebruik, krijg ik de waarde op het huidige blad (GMB-profit). Als ik Sheets("GMB") defineer werkt op zich wel prima, het probleem is dat ik de functie voor meerdere sheets moet toepassen. Ik heb geen zin om voor elke sheet een andere functie te bouwen.... Is er op een manier de sheet op te vragen? Dan wel via die invoer ("rLookin / rStart") dan wel op een andere manier.

Is je vraag om de overenkomstige waarde uit kolom A ook ergens te noteren? Dat past simpel in mijn code:

1
2
3
4
5
6
7
8
9
10
11
12

Sub fok()
i = 0
Do
i = i + 1
If Cells(i, 3).Value > 40 Then
Range("D1").Value = Cells(i, 3).Value
Range("E1").Value = Cells(i, 1).Value
Exit Sub
End If

Loop Until Cells(i + 1, 3).Value = ""
end sub

Nu komt de waarde uit de kolom A in D1 te staan.

Ik weet alleen niet zeker of dat je vraag precies is...

heitieh

maandag 9 maart 2009 @ 10:34:46 #81

PsychoBoB

the psycho of them all

Hej allemaal,

Heb een vraagje over een pivot chart in excel.

Is het mogelijk om beide axis een waarde uit de pivot table te geven. Dus de x-as bijv weken en de y-as bijv personen??
Maar ik wil dus op elke as een waarde uit mijn tabel en niet een waarde die excel zelf toekent.

Groet,

Jeroen

Het uiten van je menig is het allerhoogste goed, dat is juist iets wat haat ontlaad en niet wat woede voedt.... (maassen 2004™)

FOK!fossiel maandag 9 maart 2009 @ 10:51:11 #82

RemCOW

SG Special power! :D

quote:
Op zondag 8 maart 2009 22:12 schreef Joooo-pi het volgende:

[..]

Is je vraag om de overenkomstige waarde uit kolom A ook ergens te noteren? Dat past simpel in mijn code:
[ code verwijderd ]

Nu komt de waarde uit de kolom A in D1 te staan.

Ik weet alleen niet zeker of dat je vraag precies is...

Het probleem is dat dat volgens mij niet kan met een functie. Dan krijg ik een foutmelding zodra ik buiten het veld iets wil opslaan. Is overigens wel wat ik zoek

Ik heb het nu gedaan door bij Function RowValue(rStart As Range, rLookin As Range, ValueFirst As Double) een extra invoerveld toe te voegen wat het nummer is van de sheet. Dat werkt ook wel zonder nog heel lang op zoek te gaan naar 'n oplossing

Beter een gat in je hand, dan een hand in je gat
Let's have fun ---- Life will suck soon enough
Hattrick: 206761

maandag 9 maart 2009 @ 11:31:16 #83

DaFan

quote:
Is er op een manier de sheet op te vragen?

Activesheet.Name geeft de huidige naam van de sheet waarin je werkt. De andere kan je opvragen door:

1
2
3

For Each ws In Worksheets
.....
Next

ws.Name geeft hier de namen van alle worksheets.

maandag 9 maart 2009 @ 12:38:22 #84

BuupWerk

hAsTaLaPaStA

ik zoek een forumule...

ik heb 1 rij met namen en 1 rij met beheer of behandeling of vraagteken
nu wil ik de naam in combinatie met beheer op tellen en de naam in combinatie met behandeling

ik kan wel het aantal namen of beheer of behandeling optellen...
maar ik wil dus de combinatie tussen de ene rij en de andere rij optellen...

ik hoop dat het duidelijk is...

maandag 9 maart 2009 @ 12:38:35 #85

BuupWerk

hAsTaLaPaStA

ej hij is groen sorry...

maandag 9 maart 2009 @ 13:19:23 #86

Metal_Jag

MMM van metal

quote:
Op maandag 9 maart 2009 12:38 schreef BuupWerk het volgende:
ik zoek een forumule...

ik heb 1 rij met namen en 1 rij met beheer of behandeling of vraagteken
nu wil ik de naam in combinatie met beheer op tellen en de naam in combinatie met behandeling

ik kan wel het aantal namen of beheer of behandeling optellen...
maar ik wil dus de combinatie tussen de ene rij en de andere rij optellen...

ik hoop dat het duidelijk is...

Ik denk dat je dit kunt gebruiken:
SOM.ALS(bereik; voorwaarde; optelbereik)

maandag 9 maart 2009 @ 14:21:51 #87

BuupWerk

hAsTaLaPaStA

maar werkt dat ook met twee kolommen ??

want ik gebruik nu :

=AANTAL.ALS(BEHANDELING!B2:B2987;"Marieke")

en ik wil dus eigenlijk

kolom b = naam
kolom c = behandeling of beheer
=AANTAL.ALS(BEHANDELING!B2:B2987;"Marieke") bu telt tie alleen marieke en alleen kolom b

ik wil dus kolom b marieke en kolom c behandeling....

maandag 9 maart 2009 @ 15:05:12 #88

Deetch

WTF?

quote:
Op maandag 9 maart 2009 14:21 schreef BuupWerk het volgende:
maar werkt dat ook met twee kolommen ??

want ik gebruik nu :

=AANTAL.ALS(BEHANDELING!B2:B2987;"Marieke")

en ik wil dus eigenlijk

kolom b = naam
kolom c = behandeling of beheer
=AANTAL.ALS(BEHANDELING!B2:B2987;"Marieke") bu telt tie alleen marieke en alleen kolom b

ik wil dus kolom b marieke en kolom c behandeling....

Functie EN toevoegen?

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

maandag 9 maart 2009 @ 15:17:11 #89

Metal_Jag

MMM van metal

quote:
Op maandag 9 maart 2009 14:21 schreef BuupWerk het volgende:
maar werkt dat ook met twee kolommen ??

want ik gebruik nu :

=AANTAL.ALS(BEHANDELING!B2:B2987;"Marieke")

en ik wil dus eigenlijk

kolom b = naam
kolom c = behandeling of beheer
=AANTAL.ALS(BEHANDELING!B2:B2987;"Marieke") bu telt tie alleen marieke en alleen kolom b

ik wil dus kolom b marieke en kolom c behandeling....

SOM.ALS(BEHANDELING!B2:B2987;"Marieke";BEHANDELING!C2:C2987)

maandag 9 maart 2009 @ 16:21:19 #90

Metal_Jag

MMM van metal

quote:
Op maandag 9 maart 2009 15:17 schreef Metal_Jag het volgende:

[..]

SOM.ALS(BEHANDELING!B2:B2987;"Marieke";BEHANDELING!C2:C2987)

Ik had volgens mij de vraag niet goed begrepen. Ik ga er nog even naar kijken.

maandag 9 maart 2009 @ 18:45:40 #91

DaFan

=SUMPRODUCT((C1:C10="Beheer")*(B1:B10="Marieke"))

Hier telt ie waar én Beheer én Marieke staat (bereik even aanpassen en vertalen).

maandag 9 maart 2009 @ 20:19:46 #92

Maartel

Ik ben een grote Excel-noob, dus dit is ws een domme vraag, maar:
ik heb in kolom A namen van liedjes staan (voor een tournament) en in kolom B/C/D.. scores per ronde.. nu wil ik in kolom E de opgetelde score van kolom B t/m D voor elk nummer hebben, hoe doe ik dit?

Overigens is niet in elke ronde even veel gestemd, dus wil ik eigenlijk ook de score per kolom daar op aanpassen door een formule SCORE: AANTAL STEMMEN x 11 (aantal stemmen uit ronde 1, die houd ik graag zo)
Kan ik dit makkelijk laten berekenen door Excel, en hoe?
(Ik word zelf echt niet wegwijs uit Excel in Vista of de helpfunctie

)

edit: het optellen is al opgelost, ik wist niet dat ik de weergave aan moest passen om resultaten te zien ipv een formule.. dan rest me nog die laatste vraag: hoe vermenigvuldig/deel ik een hele kolom door een getal naar keuze?

[ Bericht 14% gewijzigd door Maartel op 09-03-2009 20:29:45 ]

Don't let your shadow spoil the view of what's around you

maandag 9 maart 2009 @ 20:35:51 #93

Maartel

O, ik bedoel overigens zó dat de getallen wel gewoon in hun eigen kolom blijven staan, ik wil er geen extra kolommen bij hebben (want dan klopt de som weer niet)

Don't let your shadow spoil the view of what's around you

maandag 9 maart 2009 @ 20:36:15 #94

Joooo-pi

Do you want a balloon...

quote:
Op maandag 9 maart 2009 20:19 schreef Maartel het volgende:
Ik ben een grote Excel-noob, dus dit is ws een domme vraag, maar:
ik heb in kolom A namen van liedjes staan (voor een tournament) en in kolom B/C/D.. scores per ronde.. nu wil ik in kolom E de opgetelde score van kolom B t/m D voor elk nummer hebben, hoe doe ik dit?

Overigens is niet in elke ronde even veel gestemd, dus wil ik eigenlijk ook de score per kolom daar op aanpassen door een formule SCORE: AANTAL STEMMEN x 11 (aantal stemmen uit ronde 1, die houd ik graag zo)
Kan ik dit makkelijk laten berekenen door Excel, en hoe?
(Ik word zelf echt niet wegwijs uit Excel in Vista of de helpfunctie )

edit: het optellen is al opgelost, ik wist niet dat ik de weergave aan moest passen om resultaten te zien ipv een formule.. dan rest me nog die laatste vraag: hoe vermenigvuldig/deel ik een hele kolom door een getal naar keuze?

Een formule kun je doorvoeren (sleep het puntje rechtsonderin cel 1 naar beneden).

Dus als je voor 1 cel een formule maakt (bijv. B1*4) kun je die doorvoeren voor een hele kolom.

heitieh

maandag 9 maart 2009 @ 20:38:41 #95

Maartel

quote:
Op maandag 9 maart 2009 20:36 schreef Joooo-pi het volgende:

[..]

Een formule kun je doorvoeren (sleep het puntje rechtsonderin cel 1 naar beneden).

Dus als je voor 1 cel een formule maakt (bijv. B1*4) kun je die doorvoeren voor een hele kolom.

hoe pas ik een formule óp een cel toe, zonder dat het resultaat in een andere cel verschijnt?

Don't let your shadow spoil the view of what's around you

maandag 9 maart 2009 @ 20:40:31 #96

Joooo-pi

Do you want a balloon...

quote:
Op maandag 9 maart 2009 20:35 schreef Maartel het volgende:
O, ik bedoel overigens zó dat de getallen wel gewoon in hun eigen kolom blijven staan, ik wil er geen extra kolommen bij hebben (want dan klopt de som weer niet)

Dat kan eigenlijk niet. Of je moet eerste de getallen in een extra kolom maken en dan kopieren, plakken als speciaal, en "waarden" aanvinken. En daarmee je originele waarden overschrijven. Daarna zijn je begingetallen weg.

[ Bericht 1% gewijzigd door Joooo-pi op 09-03-2009 21:26:34 ]

heitieh

maandag 9 maart 2009 @ 20:44:30 #97

Maartel

quote:
Op maandag 9 maart 2009 20:40 schreef Joooo-pi het volgende:

[..]

Dat kan eigenlijk niet. Of je moet eerste de getallen in een extra kolom maken en dan kopieren, plakken als, en "waarden" aanvinken. En daarmee je originele waarden overschrijven. Daarna zijn je begingetallen weg.

ah oke, dat lukt me ws wel.. nog even heel stom (maar scheelt me een hoop puzzelen): welke formule gebruik ik om een bepaalde cel met iets t vermenigvuldigen (+ delen, maar ik kan zelf die factor nog wel even op de rekenmachine berekenen als 2 commando's voor 1 cel te veel is)

Don't let your shadow spoil the view of what's around you

maandag 9 maart 2009 @ 20:48:41 #98

Joooo-pi

Do you want a balloon...

quote:
Op maandag 9 maart 2009 20:44 schreef Maartel het volgende:

[..]

ah oke, dat lukt me ws wel.. nog even heel stom (maar scheelt me een hoop puzzelen): welke formule gebruik ik om een bepaalde cel met iets t vermenigvuldigen (+ delen, maar ik kan zelf die factor nog wel even op de rekenmachine berekenen als 2 commando's voor 1 cel te veel is)

= (cel * getal1) / getal2

bedoel je dat?

heitieh

maandag 9 maart 2009 @ 21:09:53 #99

Maartel

quote:
Op maandag 9 maart 2009 20:48 schreef Joooo-pi het volgende:

[..]

= (cel * getal1) / getal2

bedoel je dat?

Jep, dat is 'm

(eigenlijk is t ook best logisch, als je de Excel-'taal' een beetje door hebt)

Don't let your shadow spoil the view of what's around you

maandag 9 maart 2009 @ 21:15:31 #100

Maartel

quote:
Op maandag 9 maart 2009 20:40 schreef Joooo-pi het volgende:

[..]

Dat kan eigenlijk niet. Of je moet eerste de getallen in een extra kolom maken en dan kopieren, plakken als, en "waarden" aanvinken. En daarmee je originele waarden overschrijven. Daarna zijn je begingetallen weg.

Hoe doe ik 'plakken als'? Ik zie wel 'plakken speciaal' staan, maar die is grijs

Don't let your shadow spoil the view of what's around you

maandag 9 maart 2009 @ 21:24:27 #101

Joooo-pi

Do you want a balloon...

quote:
Op maandag 9 maart 2009 21:15 schreef Maartel het volgende:

[..]

Hoe doe ik 'plakken als'? Ik zie wel 'plakken speciaal' staan, maar die is grijs

ohja, sorry, ik bedoel plakken speciaal. Je moet wel kopieren, niet knippen. is ie dan nog grijs?

(daarna kun je de xtra kolommen nog wel handmatig verwijderen)

heitieh

dinsdag 10 maart 2009 @ 10:13:23 #102

PsychoBoB

the psycho of them all

Ff een vraagje, hoe zet je de layout van een pivot table vast? Dus dat de layout niet veranderd als je een filter toepast?/

Bvd..

Het uiten van je menig is het allerhoogste goed, dat is juist iets wat haat ontlaad en niet wat woede voedt.... (maassen 2004™)

dinsdag 10 maart 2009 @ 10:33:05 #103

Deetch

WTF?

quote:
Op maandag 9 maart 2009 21:15 schreef Maartel het volgende:

[..]

Hoe doe ik 'plakken als'? Ik zie wel 'plakken speciaal' staan, maar die is grijs

Je moet wel eerst cellen gekopieerd hebben voor dat je ze kan plakken. Dus de cellen die je wilt kopieren selecteren, dan in menu bewerken kopieren kiezen (of CTRL+C) en dan naar de plek gaan waar je de cellen wilt plakken en dan via menu bewerken plakken speciaal kiezen.

_{leuk weer een excel noob erbij}

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

woensdag 11 maart 2009 @ 20:07:24 #104

Maartel

Ik open net Excel, zijn ineens alle functies licht-blauw zodat ik ze niet kan aanklikken??
Wat kan ik hier aan doen?

Don't let your shadow spoil the view of what's around you

woensdag 11 maart 2009 @ 20:32:18 #105

Joooo-pi

Do you want a balloon...

quote:
Op woensdag 11 maart 2009 20:07 schreef Maartel het volgende:
Ik open net Excel, zijn ineens alle functies licht-blauw zodat ik ze niet kan aanklikken??
Wat kan ik hier aan doen?

New sheet?

heitieh

woensdag 11 maart 2009 @ 20:39:19 #106

Maartel

quote:
Op woensdag 11 maart 2009 20:32 schreef Joooo-pi het volgende:

[..]

New sheet?

Ik merk dat t in Word net zo is.. óf er is iets mis met t programma, of ik moet 't activeren, maar lijkt me dat ik daar wel een melding van zou krijgen

Don't let your shadow spoil the view of what's around you

woensdag 11 maart 2009 @ 21:03:11 #107

Joooo-pi

Do you want a balloon...

quote:
Op woensdag 11 maart 2009 20:39 schreef Maartel het volgende:

[..]

Ik merk dat t in Word net zo is.. óf er is iets mis met t programma, of ik moet 't activeren, maar lijkt me dat ik daar wel een melding van zou krijgen

Heb je de 30-dagen probeerversie van 2007 misschien?

heitieh

woensdag 11 maart 2009 @ 21:04:42 #108

Maartel

Ik heb m'n laptop al veel langer dan 30 dagen en er is me nergens verteld dat er iets is afgelopen, maar ws zal t idd zoiets zijn..

Don't let your shadow spoil the view of what's around you

woensdag 11 maart 2009 @ 21:11:57 #109

Joooo-pi

Do you want a balloon...

quote:
Op woensdag 11 maart 2009 21:04 schreef Maartel het volgende:
Ik heb m'n laptop al veel langer dan 30 dagen en er is me nergens verteld dat er iets is afgelopen, maar ws zal t idd zoiets zijn..

Volgens mij zit daar ook een beperking op het aantal keren dat je het programma gebruikt hebt, maar daar krijg je doorgaans een melding van als je het programma opstart.

heitieh

woensdag 11 maart 2009 @ 21:33:36 #110

qu63

..de tijd drinkt..

quote:
Op woensdag 11 maart 2009 21:03 schreef Joooo-pi het volgende:

[..]

Heb je de 30-dagen probeerversie van 2007 misschien?

Het is wasrchijnlijk een '25x gebruiken' versie..

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

donderdag 12 maart 2009 @ 12:54:05 #111

Hi_flyer

Van alles te melden

1
2
3
4
5

Dim FrUserform As Frame
For Each FrUserform In Me
FrUserform.Visible = True
Next FrUserform

Wat doe ik fout? Het is dus een userform waarin ik alle frames zichtbaar wil maken. Ik heb 'Me' al vervangen door userform1, maar dat werkt ook niet...

donderdag 12 maart 2009 @ 13:10:26 #112

DaFan

Probeer eens Me.Frames.

donderdag 12 maart 2009 @ 13:19:55 #113

Deetch

WTF?

quote:
Op donderdag 12 maart 2009 12:54 schreef Hi_flyer het volgende:

[ code verwijderd ]

Wat doe ik fout? Het is dus een userform waarin ik alle frames zichtbaar wil maken. Ik heb 'Me' al vervangen door userform1, maar dat werkt ook niet...

Al die frames zijn neem ik aan checkboxen, invoervensters etc etc. Deze hebben allemaal een eigen naam.

Met onderstaande code (1e pagina van dit topic) kun je alle textboxen in een userform invisible maken. Wellicht kun je het zelfde doen met alle andere controls (frames) mits je deze dezelfde naam geeft met een volgnummer.

Dus of je geeft alle controls dezelfde naam met een volgnummer of je doet voor elke groep controls een zelfde naam, dus je laat gewoon de standaardnamen staan, en maakt meerder loopjes die alle groepen controls doorloopt.

1
2
3
4
5
6
7

Private Sub UserForm_Activate()

For i = 1 To 5
sName = "TextBox" & i
Me.Controls(sName).Visible = False
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

donderdag 12 maart 2009 @ 13:29:21 #114

Hi_flyer

Van alles te melden

Ik heb ze helaas allemaal wat logischer namen gegeven zoals position1-3, layer1-4, measurementlayer1-4 etcetera

Overigens denk ik dat dim ... as frame niet werkt omdat 'frame' geen declaratie is?

donderdag 12 maart 2009 @ 14:00:37 #115

Deetch

WTF?

Correct en die controls functie heeft een naam nodig zoals ik hier boven al heb uitgelegd.

je moet dus een loopje maken voor position1-3, layer1-4 etc etc.

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

donderdag 12 maart 2009 @ 14:58:44 #116

Hi_flyer

Van alles te melden

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

    'maak alle layers zichtbaar
    Me.Layer1.Visible = True
    Me.Layer2.Visible = True
    Me.Layer3.Visible = True
    Me.Layer4.Visible = True

    Me.Position1.Visible = True
    Me.Position1b.Visible = True
    Me.Position2.Visible = True
    Me.Position2b.Visible = True
    Me.Position3.Visible = True
    Me.Position3b.Visible = True
    Me.Position4.Visible = True
    Me.Position4b.Visible = True

    Me.Measure1.Visible = True
    Me.Measure2.Visible = True
    Me.Measure3.Visible = True
    Me.Measure4.Visible = True

Ok, dan maar zo opgelost :) Weliswaar niet zo mooi, maar toch. :P

donderdag 12 maart 2009 @ 15:42:54 #117

DaFan

Dit werkt ook, voor alle objecten in het Worksheet:

1
2
3
4
5
6
7
8
9

Private Sub CommandButton3_Click()

Dim i As Object

For Each i In Me.OLEObjects
i.Visible = True
Next

End Sub

donderdag 12 maart 2009 @ 16:11:52 #118

Deetch

WTF?

quote:
Op donderdag 12 maart 2009 15:42 schreef DaFan het volgende:
Dit werkt ook, voor alle objecten in het Worksheet:
[ code verwijderd ]

werkt dit ook in een userform dan? Scheelt weer gedoe zeg maar.

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

donderdag 12 maart 2009 @ 18:50:19 #119

kwakke

ik heb een wss hele simpele vraag: wat is de nederlandse vertaling van de solver functie voor excel?

THX!

donderdag 12 maart 2009 @ 19:04:16 #120

DaFan

quote:
Op donderdag 12 maart 2009 16:11 schreef Deetch het volgende:

[..]

werkt dit ook in een userform dan? Scheelt weer gedoe zeg maar.

Geen idee ik kon zo 1,2,3 niet vinden waar je Userform kan invoegen

donderdag 12 maart 2009 @ 19:23:26 #121

FJD

Nieuwe ronde, nieuwe kansen;

Ordernr - Artikel
01 - Pen
01 - Potlood
01 - Gum
02 - Pen
02 - Gum
03 - Pen
03 - Potlood
03 - Etui
03 - Schaar

Hoe vaak zijn Pen - Potlood samen besteld, hoe vaak zijn Pen - Gum samen besteld, hoe vaak zijn Pen - Etui samen besteld etc. etc. tot alle opties uitgeput zijn.

Iemand een geniaal idee?

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)

donderdag 12 maart 2009 @ 19:57:16 #122

DaFan

Hoeveel artikelen zijn er? En is het een optie om op een ander blad een lijst van artikelen te maken? Dan kan het "vrij simpel" met een macro.

donderdag 12 maart 2009 @ 20:02:12 #123

FJD

quote:
Op donderdag 12 maart 2009 19:57 schreef DaFan het volgende:
Hoeveel artikelen zijn er? En is het een optie om op een ander blad een lijst van artikelen te maken? Dan kan het "vrij simpel" met een macro.

100 artikelen, 50.000 orderregels in 10.000 orders. Lijst maken is een makkie, t komt uit een Access database

Ik kom nu wel ergens met wat gekloot in Excel maar ik vrees dat het belachelijk veel tijd kost om dat op te schalen naar die 100 artikelen

Een macro zou dan ook heeeeeel erg welkom zijn. Ik heb nml. echt geen idee in welke richting ik moet zoeken.

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)

donderdag 12 maart 2009 @ 20:08:46 #124

DaFan

Maar ehm als je elk artikel met elk artikel moet matchen heb je 99+98+97+....3+2+1 regels....5000 opties dus. Dat is geen probleem?

Dan ga ik straks of morgen op werk ff kloten. Anders wordt het pas zondag.

donderdag 12 maart 2009 @ 21:28:43 #125

DaFan

Ik kom er nu in ieder geval even niet uit, teveel loops heb ik nu

donderdag 12 maart 2009 @ 21:32:48 #126

FJD

quote:
Op donderdag 12 maart 2009 21:28 schreef DaFan het volgende:
Ik kom er nu in ieder geval even niet uit, teveel loops heb ik nu

Ik ben met wat omweggetjes bezig maar zonder Office 2007 ga je de mist in door een overload aan formules. Via een draaitabel, samenvoeg formules en dan de opties onder elkaar in 1 rij zetten zou ik een count moeten kunnen uitvoeren op alle combinaties

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)

donderdag 12 maart 2009 @ 21:38:56 #127

DaFan

Denk dat het met een formule echt niet gaat lukken....

donderdag 12 maart 2009 @ 22:37:02 #128

FJD

Ik ben al een eind maar t blijft een teringwerk en belangrijker, als de echte gegevens komen kan ik t nog een keer doen

Straks de uitleg

-edit-
Als eerste heb ik een Access query gedraaid die alle ordernummers naast de artikelgroepen in die order zet. Dan krijg je zo'n lijstje als wat ik postte. Die heb ik in Data1 gezet, vervolgens heb ik daarvan een draaitabel naar Data2 gezet. In de draaitabel gaan de ordernummers aan de linkerkant, de artikelgroepen aan de bovenkant en de count van de artikelgroepen in het midden. Dan krijg je allemaal eentjes en via opties kun je op de lege plekken nulletjes te voorschijn toveren. Vervolgens gaan we door naar sheet Data3 alwaar we de eentjes om gaan zetten naar de artikelgroep en de nulletjes omgezet worden naar de waarde "NIET" met behulp van een IF statement (als eentje, dan artikelgroep anders NIET). Daarna gaan we door naar sheet Data4 alwaar we de tekst van B3 samenvoegen met B4, in de volgende cel B3 samenvoegen met B5, dan B3 met B6 en ga zo maar door. Dan krijg je dus alle mogelijke combinaties met het eerste artikel in je artikelgroepen-lijst. Je wilt daarna ook alle mogelijke combinaties met het tweede, derde, vierde, etc. artikel in de lijst. Dat kan in theorie met formules maar zelfs Office 2007 trekt dat niet aangezien je binnen no time tegen de 1 miljoen formules zit.

Wat ik dus heb gedaan is op de lijst in Data1 een filter zetten en op alfabetische volgorde de eerste artikelgroep verwijderen, de draaitabel updaten, de gegevens uit Data4 als waarde copy-pasten in een nieuwe sheet, de tweede artikelgroep verwijderen, de draaitabel updaten, gegevens uit Data4 copy-pasten etc. etc. etc. etc. etc. etc.

Dit werkt omdat je draaitabel steeds bij het volgende product begint terwijl je formules in Data3 gewoon naar kolom B blijft verwijzen op je draaitabel sheet.

Vervolgens zit ik wel met 100 aparte bladzijden met een belachelijke tabel aan data. Ik heb nu een Excel macro gevonden die de gegevens uit alle kolommen onder elkaar in 1 kolom zet. Die moet nu op een of andere manier over alle tabbladen gaan lopen. Vervolgens trek ik alle kolommen Acces in en run ik er een group by/count query op. Ik flikker alle records met NIETNIET, artikelgroepNIET en NIETartikelgroep er uit en ik houd alleen maar artikelgroepartikelgroep - count over en ik ben er. Kost me een avond maar goed

-edit2-
Lijkt nog steeds niet 100% te gaan dus betere suggesties zijn zeker welkom!

[ Bericht 39% gewijzigd door FJD op 13-03-2009 01:24:10 ]

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)

vrijdag 13 maart 2009 @ 09:09:53 #129

Metal_Jag

MMM van metal

quote:
Op donderdag 12 maart 2009 19:04 schreef DaFan het volgende:

[..]

Geen idee ik kon zo 1,2,3 niet vinden waar je Userform kan invoegen

Script editor --> new --> Userform

quote:
Op donderdag 12 maart 2009 19:23 schreef FJD het volgende:
Nieuwe ronde, nieuwe kansen;

Ordernr - Artikel
01 - Pen
01 - Potlood
01 - Gum
02 - Pen
02 - Gum
03 - Pen
03 - Potlood
03 - Etui
03 - Schaar

Hoe vaak zijn Pen - Potlood samen besteld, hoe vaak zijn Pen - Gum samen besteld, hoe vaak zijn Pen - Etui samen besteld etc. etc. tot alle opties uitgeput zijn.

Iemand een geniaal idee?

Ik heb wel wat ideeen, maar vergis je niet: dit is volgens mij een vraag die als opgave op een HBO (

) niet zou misstaan...

Ik zit te denken aan:
definieer een set (verzameling) met artikelen 1...N
definieer een matrix (bijv. A) met N rijen en N kolommen waarbij je gaat tellen hoevaak een combi voorkomt.
Dat betekent A(i,j) = aantal keren dat i en j samen zijn besteld.

Vervolgens loop je door alle orders heen en verhoog je de combinatie in die order met 1.
In zo'n order:
regel 1 (bijv. pen) icm alle verdere regels: +1
regel 2 icm met alle verdere regels: +1
e.v.
(dan heb je ze toch? Volgens mij wel.)

[ Bericht 2% gewijzigd door Metal_Jag op 13-03-2009 09:22:56 ]

vrijdag 13 maart 2009 @ 09:14:49 #130

Metal_Jag

MMM van metal

Ik heb ook ff een vraag:

Hoe controleer ik in een macro dat er in een cel een geldige tijd staat?

vrijdag 13 maart 2009 @ 09:15:56 #131

Metal_Jag

MMM van metal

quote:
Op donderdag 12 maart 2009 18:50 schreef kwakke het volgende:
ik heb een wss hele simpele vraag: wat is de nederlandse vertaling van de solver functie voor excel?

THX!

Oplosser...

(ligt ook voor de hand

)

Btw: deze moet je zelf nog invoegen, want is niet standaard beschikbaar.

vrijdag 13 maart 2009 @ 10:03:28 #132

FJD

Gisteren 7uur lang mee bezig geweest, ik word vanmorgen wakker met een geniale ingeving en ik bouw vanmorgen binnen een half uur de Access query die werkt

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)

vrijdag 13 maart 2009 @ 10:17:19 #133

Deetch

WTF?

quote:
Op vrijdag 13 maart 2009 10:03 schreef FJD het volgende:
Gisteren 7uur lang mee bezig geweest, ik word vanmorgen wakker met een geniale ingeving en ik bouw vanmorgen binnen een half uur de Access query die werkt

Haha dat komt me bekend voor. Ben je een hele week bezig moeilijk te doen en wordt je op vrijdagnacht midden in de nacht wakker met een briljant idee.

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 13 maart 2009 @ 12:30:44 #134

DaFan

quote:
Op vrijdag 13 maart 2009 10:03 schreef FJD het volgende:
Gisteren 7uur lang mee bezig geweest, ik word vanmorgen wakker met een geniale ingeving en ik bouw vanmorgen binnen een half uur de Access query die werkt

Nice! Ik was er nog niet can toegekomen

zaterdag 14 maart 2009 @ 11:35:48 #135

RayMania

Doei.

Hoe kan in een bepaalde cel een plaatje laten verschijnen als in een andere cel aan een bepaalde voorwaarde wordt voldaan? Dus zeg maar een ALS-functie, maar dan niet met tekst, maar met een plaatje.

Achter-elkaar-bezochte-Ajax-thuiswedstrijden-meter: [b]29[/b].
[b]Laatste wedstrijd:[/b] FC Timişoara. [b]Volgende:[/b] ADO Den Haag.
Ray's Statshoekje - 2009/2010.

zaterdag 14 maart 2009 @ 12:54:27 #136

DaFan

RM: Het kan wel maar is lastig. Hier staan 2 macro's om hem toe te voegen in een bepaalde range:
http://www.exceltip.com/s(...)osoft_Excel/486.html

Je kan de eerste macro natuurlijk aanroepen dmv een Worksheet_change event als je die bepaalde cel aanroept:

1
2
3
4
5
6
7
8
9
10
11

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

    If Not Intersect(Target, Range("A1")) Is Nothing Then
        InsertPicture "C:\FolderName\PictureFileName.gif", Range("B1"), True, True
    End If

Application.EnableEvents = True

End Sub

Nu komt er in B1 het plaatje als A1 verandert.

Je kan dan natuurlijk meerdere If's bouwen voor meerdere plaatjes en de range uit de eerste macro uit de link aanpassen.

Succes.

zaterdag 14 maart 2009 @ 19:48:06 #137

RayMania

Doei.

Ik laat dat toch maar zitten, thanks anyway

.

Ander vraagje (lastig uit te leggen).

Ik werk al een tijdje met een form waarbij de informatie van het form automatisch op de goede plaats wordt neergezet in Excel. De informatie wordt steeds geplaatst in één rij en dan in de kolommen A t/m F.

quote:
Private Sub cmdOpslaan_Click()
Dim x As Long
x = Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A" & x) = txtSpeelronde
Range("B" & x) = txtDatum
Range("C" & x) = lstThuisclub
Range("D" & x) = lstUitclub
Range("E" & x) = lstSpeler1
Range("F" & x) = txtMinuten
End Sub

Dat werkt allemaal prima en elke nieuwe invoer komt netjes als een nieuwe rij eronder. Alleen ik zoek nu naar een oplossing om meer informatie te kunnen verwerken. Ik wil zeg maar in één keer een boel informatie kunnen toevoegen aan mijn sheet, via het form. Nu moet ik bijvoorbeeld tien keer het form invullen om telkens een nieuwe rij erbij te krijgen, maar ik wil dat ik mijn form het één keer invul en dan gelijk tien nieuwe rijen erbij krijg. Dus bijvoorbeeld van A1 t/m F10. Is het mogelijk om niet alleen van links naar rechts automatisch in te voeren, maar ook van boven naar beneden?

Achter-elkaar-bezochte-Ajax-thuiswedstrijden-meter: [b]29[/b].
[b]Laatste wedstrijd:[/b] FC Timişoara. [b]Volgende:[/b] ADO Den Haag.
Ray's Statshoekje - 2009/2010.

zondag 15 maart 2009 @ 11:08:31 #138

Joooo-pi

Do you want a balloon...

quote:
Op zaterdag 14 maart 2009 19:48 schreef RayMania het volgende:
Ik laat dat toch maar zitten, thanks anyway .

Ander vraagje (lastig uit te leggen).

Ik werk al een tijdje met een form waarbij de informatie van het form automatisch op de goede plaats wordt neergezet in Excel. De informatie wordt steeds geplaatst in één rij en dan in de kolommen A t/m F.
[..]

Dat werkt allemaal prima en elke nieuwe invoer komt netjes als een nieuwe rij eronder. Alleen ik zoek nu naar een oplossing om meer informatie te kunnen verwerken. Ik wil zeg maar in één keer een boel informatie kunnen toevoegen aan mijn sheet, via het form. Nu moet ik bijvoorbeeld tien keer het form invullen om telkens een nieuwe rij erbij te krijgen, maar ik wil dat ik mijn form het één keer invul en dan gelijk tien nieuwe rijen erbij krijg. Dus bijvoorbeeld van A1 t/m F10. Is het mogelijk om niet alleen van links naar rechts automatisch in te voeren, maar ook van boven naar beneden?

Natuurlijk kun je ook verticaal doen. De volgende rij is immers x+1, dus Cells(x + 1, 1) zou wel moeten werken.

Maar je zult de gegevens toch wel ergens moeten ingeven? Ik snap daarom de rest van je vraag niet.

heitieh

FOK!fossiel zondag 15 maart 2009 @ 21:49:38 #139

RemCOW

SG Special power! :D

Argh... De SpecialCells wil maar niet werken bij mij met een functie. Inmiddels heb ik mijn functie al naar het volgende gestript:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

Function FirstValueHist(rStart As Range, rRange As Range, lMin As Double, lMax As Double)

Dim rLookin As Range
Dim rFound As Range
Dim lFound As Double
Dim lCellCount As Long, lcount As Long
Dim bNoFind As Boolean
Dim rCcells As Range

On Error Resume Next

'Set rFcells = rRange.Cells.SpecialCells(xlCellTypeBlanks)
FirstValueHist = rRange.Cells.SpecialCells(xlCellTypeBlanks).Count

On Error GoTo 0
End Function

rRange heb ik geselecteerd als P6:P12

In die range heb ik een aantal lege cellen, een aantal met cijfers en een aantal met tekst. Toch blijft de functie stug 7 weergeven. Ook als ik xlCellTypeBlanks vervang met xlCellTypeConstants, xlNumbers.

De bedoeling is dat met SpecialCells alleen de cellen in een bereik worden meegenomen als er cijfers in staan, en die met tekst dus niet.

Het vreemde is dat het wél werkt met een macro!! Help?

Deze laat het nog beter zien:

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

Sub RemcoTEST2()

Dim rCcells As Range, rFcells As Range
Dim Blaat1 As Double, Blaat2 As Double

            Set rCcells = Range("O6:O12").Cells.SpecialCells(xlCellTypeConstants, xlNumbers)
            Set rFcells = Range("O6:O12").Cells.SpecialCells(xlCellTypeFormulas, xlNumbers)

        Blaat1 = rCcells.Cells.Count
        Blaat2 = rFcells.Cells.Count

         Range("Q1") = Blaat1
         Range("Q2") = Blaat2

        On Error GoTo 0

End Sub

Function RemcoTEST2func()

Dim rCcells As Range, rFcells As Range
Dim Blaat1 As Double, Blaat2 As Double

            Set rCcells = Range("O6:O12").Cells.SpecialCells(xlCellTypeConstants, xlNumbers)
            Set rFcells = Range("O6:O12").Cells.SpecialCells(xlCellTypeFormulas, xlNumbers)

        Blaat1 = rCcells.Cells.Count
        Blaat2 = rFcells.Cells.Count

        RemcoTEST2func = Blaat1

        On Error GoTo 0

End Function

Het veld O6 t/m O12 heeft 5x een cijfer, 2x een formule. De macro zet netjes 5 en 2 neer, de functie geeft 7 weer terwijl die 5 moet weergeven...

Update: Als ik http://www.xtremevbtalk.com/showthread.php?t=180823 mag geloven, mag je SpecialCells niet gebruiken in een functie. Zet dan in de help dan ofzo... tering.

[ Bericht 24% gewijzigd door RemCOW op 15-03-2009 22:19:32 ]

Beter een gat in je hand, dan een hand in je gat
Let's have fun ---- Life will suck soon enough
Hattrick: 206761

zondag 15 maart 2009 @ 22:27:49 #140

DaFan

Kan je niet beter doen (uit mn hoofd):

1
2
3
4
5
6
7
8
9
10

Dim rRange, c as Range
Dim FirstValueHist as Integer

FirstValueHist = 0

For each c in rRange
  If IsNumeric(c) = True Then
     FirstValueHist = FirstValueHist + 1
  End If
Next

FOK!fossiel maandag 16 maart 2009 @ 22:00:13 #141

RemCOW

SG Special power! :D

Het werkt nu al, maar thanks anyway

(op een hele andere manier... het probleem was dat ik een kolom had met waarden, maar ook met tekst.. zie hieronder.. zodra mijn functie de N/A tegenkwam, stopte die.. Dit omdat ik de gevonden cel had gedefineerd als een 'double', dus mocht het alleen waarden vinden. dat heb ik weggehaald en gaat de functie niet over zijn nek door tekst)

Ander probleem. Mijn dataset heeft wat gaten, die verwijzen naar de cel die ik Missing heb genoemd. Die cel heb ik weer ingevuld als de tekst N/A. Expres niet als =NB() (of =NA()), want dan werken o.a. de functie =MIN en =MAX, maar ook wat eigen functies niet meer. Ook niet als 0, dat vergooit het gemiddelde weer enz.

Máár het probleem is dat een grafiek in excel de tekst (N/A dus) stug blijft weergeven als een 0. Dit ondanks dat ik aangeef dat hij deze niet moet weergeven / de lijn moet doortrekken of whatever. Verander ik de Missing naar =NB() werkt het prima. Maarja, dan werken andere functies niet meer. Iemand een geniale ingeving?

Beter een gat in je hand, dan een hand in je gat
Let's have fun ---- Life will suck soon enough
Hattrick: 206761

maandag 16 maart 2009 @ 22:09:57 #142

DaFan

ISERROR om je andere functies heen bouwen zodat ie deze overslaat als je NB() of NA() gebruikt?

maandag 16 maart 2009 @ 22:22:13 #143

qu63

..de tijd drinkt..

Cel leeg laten geen optie? Dan kan je met opmaak -> speciaal nog "N/A" van maken..

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

FOK!fossiel maandag 16 maart 2009 @ 22:34:33 #144

RemCOW

SG Special power! :D

quote:
Op maandag 16 maart 2009 22:09 schreef DaFan het volgende:
ISERROR om je andere functies heen bouwen zodat ie deze overslaat als je NB() of NA() gebruikt?

Hmm misschien moet ik dit inderdaad maar doen. En dan voor hetzelfde voor Min/Max, dan maak ik gebruik van een array (=MIN(ALS(ISGETAL(E1:E100);E1:E100;"")) bijvoorbeeld).

Beter een gat in je hand, dan een hand in je gat
Let's have fun ---- Life will suck soon enough
Hattrick: 206761

woensdag 18 maart 2009 @ 10:51:11 #145

qu63

..de tijd drinkt..

In kolom G staan bedragen, in kolom N staat B of K (bank of kas), hoe kan ik nou alle bedragen die per bank betaald zijn optellen?
SOM.ALS(G2:G113;N2:N113=B) doet t iig niet..

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

woensdag 18 maart 2009 @ 11:00:36 #146

DaFan

qu63, dat jij nou zulke vraagjes moet stellen

SOM.ALS(N2:N113;"=B";G2:G113)

woensdag 18 maart 2009 @ 11:11:49 #147

qu63

..de tijd drinkt..

quote:
Op woensdag 18 maart 2009 11:00 schreef DaFan het volgende:
qu63, dat jij nou zulke vraagjes moet stellen

SOM.ALS(N2:N113;"=B";G2:G113)

Goed he

Ik was ff helemaal de weg kwijt

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

woensdag 18 maart 2009 @ 12:24:39 #148

Metal_Jag

MMM van metal

quote:
Op woensdag 18 maart 2009 11:11 schreef qu63 het volgende:

[..]

Goed he

Ik was ff helemaal de weg kwijt

Als je in het invoerveld "=SOM.ALS(" invult, kun je op het "f"- je klikken daarvooren krijg je invoervelden voor de betreffende functie, MET uitleg.

Dan had je het zelf wel voor elkaar gekregen.

Verder nog even aandacht voor mijn eerdere vraag:

Hoe controleer ik in een macro of er in een cel een TIJD staat en niet iets anders. Iets als ISTIJD(...), maar dat bestaat volgens mij niet.

Dan zat ik nog te denken aan iets als:

1
2
3
4
5
6
7
8

On Error goto melding

een functie die tijd vereist: bijvoorbeeld x = TimeValue(Range("A1").value)

On error goto 0

melding:
msgbox "er staat geen geldige tijd in cell ... "

DaFan (of iemand anders) tips ??

woensdag 18 maart 2009 @ 13:04:01 #149

qu63

..de tijd drinkt..

quote:
Op woensdag 18 maart 2009 12:24 schreef Metal_Jag het volgende:
Als je in het invoerveld "=SOM.ALS(" invult, kun je op het "f"- je klikken daarvooren krijg je invoervelden voor de betreffende functie, MET uitleg.

Dan had je het zelf wel voor elkaar gekregen.

Daar had ik ook al gekeken

quote:
Verder nog even aandacht voor mijn eerdere vraag:

Hoe controleer ik in een macro of er in een cel een TIJD staat en niet iets anders. Iets als ISTIJD(...), maar dat bestaat volgens mij niet.

Dan zat ik nog te denken aan iets als:
[ code verwijderd ]

DaFan (of iemand anders) tips ??

Kan je niet beter kijken of er iets in staat als xx:xx ? Want tijd is alleen een opmaak manier, hh:mm is eigenlijk gewoon een getal wat anders is opgemaakt..

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

woensdag 18 maart 2009 @ 13:39:44 #150

dnzl

Minimalist.

woensdag 18 maart 2009 @ 13:40:46 #151

qu63

..de tijd drinkt..

quote:
Op woensdag 18 maart 2009 13:39 schreef dnzl het volgende:
[ afbeelding ]

ehm...

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

woensdag 18 maart 2009 @ 13:43:18 #152

dnzl

Minimalist.

Foutje!

woensdag 18 maart 2009 @ 20:14:16 #153

DaFan

quote:
Op woensdag 18 maart 2009 13:04 schreef qu63 het volgende:
[..]

Kan je niet beter kijken of er iets in staat als xx:xx ? Want tijd is alleen een opmaak manier, hh:mm is eigenlijk gewoon een getal wat anders is opgemaakt..

Ja dat is dus lastig, omdat je, zodra je de value eruithaalt, hem opslaat als een getal.

Ik zag een post over IsDate maar ik krijg het niet aan de praat

Ik zal nog even voor je rondkijken!

[ Bericht 0% gewijzigd door DaFan op 18-03-2009 20:23:44 ]

woensdag 18 maart 2009 @ 20:23:12 #154

DaFan

Check, je moet de Text eruit halen, niet Value

1
2
3
4
5
6
7

Waarde = Range("A1").Text

If IsDate(Waarde) Then
MsgBox "Ja"
Else
MsgBox "Nee"
End If

Hoop dat dit helpt.

woensdag 18 maart 2009 @ 21:10:41 #155

hoek21

Ik zit al een tijdje met volgens mij een relatief simpel excel vraagstuk. Ik heb een hele lijst met nummers en die nummers vertegenwoordigen een afdeling. Nu wil ik i.p.v. de nummer de naam van de afdeling weergeven. Ik heb dus b.v. in een cel ¨4¨ staan en dat ik bv de afdeling verkoop. Ik wil dus in die cel of een andere zien wat de naam is.

Wie kan mij helpen?

woensdag 18 maart 2009 @ 21:19:54 #156

DaFan

quote:
Op woensdag 18 maart 2009 21:10 schreef hoek21 het volgende:
Ik zit al een tijdje met volgens mij een relatief simpel excel vraagstuk. Ik heb een hele lijst met nummers en die nummers vertegenwoordigen een afdeling. Nu wil ik i.p.v. de nummer de naam van de afdeling weergeven. Ik heb dus b.v. in een cel ¨4¨ staan en dat ik bv de afdeling verkoop. Ik wil dus in die cel of een andere zien wat de naam is.

Wie kan mij helpen?

Eerst een tabel maken, bijvoorbeeld in een ander tabblad, met alle nummers onder elkaar met de afdeling naam erbij (sheet2). Zeg in A1:B10 (10 nummers, 10 afdelingen).

Dan op Sheet1:
- Je nummer staat in cel A1.
- Je wil de afdeling in cel B1 hebben:

=VLOOKUP(A1,Sheet2!A1:B10, 2, 0)
Geeft dan de afdeling naam in B1 aan de hand van cel A1.

Vertaling en versie wijzigingen mag je zelf uitzoeken. Lees de OP maar

woensdag 18 maart 2009 @ 22:23:00 #157

hoek21

TOOOOOOOOOOOP THANX Dit scheelt me heel veel werk! Groet uit een zonnig Mexico City

donderdag 19 maart 2009 @ 07:07:22 #158

Deetch

WTF?

quote:
Op woensdag 18 maart 2009 22:23 schreef hoek21 het volgende:
TOOOOOOOOOOOP THANX Dit scheelt me heel veel werk! Groet uit een zonnig Mexico City

je moest ons even inwrijven dat je in mexico zat? You bastard!

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

donderdag 19 maart 2009 @ 07:54:46 #159

DaFan

Metal: ik wil nog even bij zeggen dat deze methode ver van waterdicht is. Je kan via string manipulatie nog een eind komen. Zal nog wel wat bijklussen.

donderdag 19 maart 2009 @ 10:14:02 #160

Hi_flyer

Van alles te melden

1	Label34.Font.color = RGB(125, 20, 80)

Waarom kan ik de tekstkleur van een textlabel niet veranderen? Het font kan ik wel veranderen, maar de kleur blijkbaar niet

Tevens kent excel 2003 blijkbaar het commando format$ niet:

1	TextBox93.Text = Format$(Sheet7.Range("BU2"), "HH:mm")

Ik heb een flink userform gemaakt in excel 2004, bedoeld voor collega's die met excel 2003 werken. Gevolg is dat ze constant errors krijgen

[ Bericht 24% gewijzigd door Hi_flyer op 19-03-2009 10:28:52 ]

donderdag 19 maart 2009 @ 11:28:45 #161

Jaheur

Wat is er verkeerd aan het recorden van mijn macro? Ik record deze macro, maar bij het uitvoeren ervan krijg ik continue een melding Ongeldige procedure aanroep of ongeldig argument:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Bevindingen!R1K1:R111K16", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="Data!R16K13", TableName:="Draaitabel1", DefaultVersion _
        :=xlPivotTableVersion10
    Sheets("Data").Select
    Cells(19, 6).Select
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Ernst")
        .Orientation = xlColumnField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Functionaliteit")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Draaitabel1").PivotFields("Functionaliteit"). _
        Orientation = xlHidden
    With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Product")
        .Orientation = xlRowField
        .Position = 1
    End With
    Range("F19").Select
    ActiveWorkbook.ShowPivotTableFieldList = False

donderdag 19 maart 2009 @ 11:29:13 #162

DaFan

Tekstkleur van label doe je met .ForeColor

Ik weet niet wat Format$ doet... sorry.

donderdag 19 maart 2009 @ 12:06:03 #163

Hi_flyer

Van alles te melden

Format$ is al opgelost: Bij Tools>References even vinkje weghalen bij een missing library.

donderdag 19 maart 2009 @ 12:40:24 #164

Metal_Jag

MMM van metal

quote:
Op donderdag 19 maart 2009 07:54 schreef DaFan het volgende:
Metal: ik wil nog even bij zeggen dat deze methode ver van waterdicht is. Je kan via string manipulatie nog een eind komen. Zal nog wel wat bijklussen.

Bedoel je de IsDate constructie? Werkt dat dan ook bij een tijd?

(of bedoel je mijn eigen probeersel?)

donderdag 19 maart 2009 @ 12:44:23 #165

Metal_Jag

MMM van metal

quote:
Op donderdag 19 maart 2009 11:28 schreef Jaheur het volgende:
Wat is er verkeerd aan het recorden van mijn macro? Ik record deze macro, maar bij het uitvoeren ervan krijg ik continue een melding Ongeldige procedure aanroep of ongeldig argument:
[ code verwijderd ]

Dit heb je niet in zijn geheel 'opgenomen' toch? (gezien de Cells(.., ..) regel)

Bij welke regel krijg je de foutmelding?

donderdag 19 maart 2009 @ 13:09:53 #166

DeepChord

verkeerd topic...

donderdag 19 maart 2009 @ 13:46:27 #167

DaFan

quote:
Op donderdag 19 maart 2009 12:40 schreef Metal_Jag het volgende:

[..]

Bedoel je de IsDate constructie? Werkt dat dan ook bij een tijd?

(of bedoel je mijn eigen probeersel?)

Ja de IsDate constructie werkt ook bij tijd (probeer mijn macro maar).
Maar als je bv een variable als Date declareert, en deze leeg laat, geeft IsDate ook een TRUE.

Zoiets is beter (als je uu:mm:ss of uu:mm gebruikt).

1
2
3
4
5
6
7
8
9

Waarde = Range("A1").Text

If IsDate(Waarde) Then
    If Mid(Waarde, 3, 1) = ":" And IsNumeric(Mid(Waarde, 1, 2)) Then

           MsgBox "Is Tijd"

    End If
End If

donderdag 19 maart 2009 @ 14:01:16 #168

DaFan

Jaheur als je nou ff een nep variable aanmaakt, zeg i = 1 en deze plaatst aan het begin van je macro. Ga dan in de Editor en doe rechtermuisknop -> Add watch (Controle toevoegen) -> Break when value changes (Onderbreken indien waarde is gewijzigd).

Dan ga je de code ín en kan je met F8 naar de volgende stap. Je kan dan zien waar het evt fout gaat. Ik kan zo niks vinden.

donderdag 19 maart 2009 @ 14:51:49 #169

Metal_Jag

MMM van metal

quote:
Op donderdag 19 maart 2009 13:46 schreef DaFan het volgende:

[..]

Ja de IsDate constructie werkt ook bij tijd (probeer mijn macro maar).
Maar als je bv een variable als Date declareert, en deze leeg laat, geeft IsDate ook een TRUE.

Zoiets is beter (als je uu:mm:ss of uu:mm gebruikt).
[ code verwijderd ]

Thanx. Ziet er goed uit.

donderdag 19 maart 2009 @ 15:40:25 #170

Deetch

WTF?

Ik heb vanuit de control toolbox een scrollbar gekoppeld aan een cel.

Nu wil ik echter elke keer als ik de worksheet open dat de waarden van de 2 scrollbars weer terug naar 0 gaan, ongeacht waar deze eerst op stond. In cel B2 wil ik de datum van vandaag.

Onderstaande code werkt niet

1
2
3
4
5
6
7
8

Private Sub Worksheet_Open()

Range("B2").Value = Date

ScrollBar1.Value = 0
ScrollBar2.Value = 0

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

donderdag 19 maart 2009 @ 16:23:00 #171

DaFan

Vergeet je m niet in ThisWorkbook te zetten en niet in Blad1.
Daarnaast:

Worksheets("Blad1").ScrollBar1.Value = 0

donderdag 19 maart 2009 @ 16:51:36 #172

Deetch

WTF?

nevermind

code stond idd op de verkeerde plek

[ Bericht 78% gewijzigd door Deetch op 19-03-2009 16:56:48 ]

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

donderdag 19 maart 2009 @ 19:08:27 #173

DaFan

quote:
Op donderdag 19 maart 2009 16:51 schreef Deetch het volgende:
nevermind

code stond idd op de verkeerde plek

donderdag 19 maart 2009 @ 21:18:13 #174

Deetch

WTF?

quote:
Op donderdag 19 maart 2009 19:08 schreef DaFan het volgende:

[..]

[ afbeelding ]

LOL

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

donderdag 19 maart 2009 @ 21:27:29 #175

Chilley

Goedenavond!

Ik heb een klein vraagje over excel. Wie weet kan een van jullie mij helpen?

Ik ben op zoek naar een functie of macro waarbij het mogelijk is om cellen automatisch te kopieren.

Bijvoorbeeld:
Cel a1 staat "X" en cel b1 staat 10
Cel a2 staat "Y" en cel b2 staat 5

Is het mogelijk om excel op een nieuw werkblad automatisch 10x de X en 5x y onder elkaar te zetten?!
Het werkelijke bestand waarmee ik werk is stukken groter natuurlijk maar het gaat om het principe!

Ik hoor het heel graag!

donderdag 19 maart 2009 @ 21:34:54 #176

DaFan

Ga naar de Visual Basic Editor via Alt-F11, dubbelklik links op ThisWorkbook:

1
2
3
4
5
6
7
8
9

Private Sub Workbook_NewSheet(ByVal Sh As Object)

Dim c As Range

For Each c In Sh.Range("A1:A10")
c.Value = Sheets("Sheet1").Range("A1").Value
Next

End Sub

Deze code plakt in A1:A10 van elke sheet die je invoert, de waarde die in A1 van Sheet1 staat.

Hoop dat je er zo uitkomt.

donderdag 19 maart 2009 @ 21:39:33 #177

qu63

..de tijd drinkt..

Ik denk dat het de bedoeling is dat als er in B1 5 staat, er maar 5 regels zijn met de waarde van a1, en meteen daarna 5x de waarde van a2..

Anders had het ook gewoon zo gekund:
A1 = Blad1!a1
A2 = Blad1!a1
A3 = Blad1!a1
A4 = Blad1!a1
A5 = Blad1!a1
A6 = Blad1!a1
A7 = Blad1!a1
A8 = Blad1!a1
A9 = Blad1!a1
A10 = Blad1!a1

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

donderdag 19 maart 2009 @ 21:45:37 #178

DaFan

Hm nou je het zegt.
Even kloten met een handige opbouw dan.

donderdag 19 maart 2009 @ 21:48:41 #179

Joooo-pi

Do you want a balloon...

quote:
Op donderdag 19 maart 2009 21:27 schreef Chilley het volgende:
Goedenavond!

Ik heb een klein vraagje over excel. Wie weet kan een van jullie mij helpen?

Ik ben op zoek naar een functie of macro waarbij het mogelijk is om cellen automatisch te kopieren.

Bijvoorbeeld:
Cel a1 staat "X" en cel b1 staat 10
Cel a2 staat "Y" en cel b2 staat 5

Is het mogelijk om excel op een nieuw werkblad automatisch 10x de X en 5x y onder elkaar te zetten?!
Het werkelijke bestand waarmee ik werk is stukken groter natuurlijk maar het gaat om het principe!

Ik hoor het heel graag!

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

sub snelinelkaar()
Sheets("Blad1").Activate
i = 0
k = 0
Do
i = i + 1

For j = 1 To Cells(i, 2).Value
k = k + 1

Sheets("blad2").Cells(k, 1).Value = Cells(i, 1).Value

Next

Loop Until Cells(i, 1).Value = ""
End sub

heitieh

donderdag 19 maart 2009 @ 22:04:45 #180

DaFan

Lol zo sjiek. Goed werk

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

Private Sub Workbook_NewSheet(ByVal Sh As Object)

Sheets("Sheet1").Activate

i = 0
k = 0
Do
i = i + 1

For j = 1 To Cells(i, 2).Value
k = k + 1

Sh.Cells(k, 1).Value = Cells(i, 1).Value

Next

Loop Until Cells(i, 1).Value = ""

End Sub

Zou hem dan in een Workbook_Newsheet zetten

donderdag 19 maart 2009 @ 22:36:34 #181

qu63

..de tijd drinkt..

Is het nou eigenlijk mogelijk om met Excel gegevens van een niet lokale database (SQL) te plukken?

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

vrijdag 20 maart 2009 @ 11:37:08 #182

Hi_flyer

Van alles te melden

1
2
3
4
5
6
7
8
9

Sub colorchange()
    Dim a, b, c As Long
    a = Sheet2.Range("J32").Value
    b = Sheet2.Range("K32").Value
    c = Sheet2.Range("L32").Value
    'MsgBox a & b & c
    Range("Invulcellen").Interior.Color = RGB(a, b, c)
    'MsgBox Range("E13").Interior.Color
End Sub

Ik heb dus drie cellen waar waardes tussen 0 en 255 ingevuld kunnen worden, om op die manier een kleur te mengen. Ik hoopte op die manier 256^3 kleuren te kunnen maken, maar helaas zoekt Excel een standaardkleur die het dichtst bij de ingegeven waardes ligt. Is het mogelijk om toch uit alle kleuren te kiezen? Uiteindelijk wil ik een soort user profiles maken (tijd over en zinloos natuurlijk, maar gewoon leuk). Gebruikers van mijn workbook kunnen dan bijvoorbeeld hun eigen kleuren instellen :P

Tevens ben ik op zoek naar een functie die bij het aanroepen van een userform Excel zelf verkleint, zodat deze niet meer te zien is achter het userform.

Overigens is het programma al bijna 1 MB groot ;(

vrijdag 20 maart 2009 @ 11:45:44 #183

DaFan

56 kleuren, helaas:
http://www.mvps.org/dmcritchie/excel/colors.htm#chart

vrijdag 20 maart 2009 @ 11:49:31 #184

DaFan

Minimaliseren:

1	Application.WindowState = xlMinimized

Werkt niet denderend trouwens.

vrijdag 20 maart 2009 @ 11:51:39 #185

DaFan

qu63; beetje Google kan geen kwaad? Ik heb geen verstand van SQL

vrijdag 20 maart 2009 @ 12:17:25 #186

Metal_Jag

MMM van metal

quote:
Op vrijdag 20 maart 2009 11:51 schreef DaFan het volgende:
qu63; beetje Google kan geen kwaad? Ik heb geen verstand van SQL

En post werkende resultaten indien mogelijk, want dit heeft ook mijn interesse.

FF een quote uit de help van Excel, met name het voorbeeld werkt verduidelijkend:

quote:
SQLExecQuery, functie
Zie ookSpecificatiesGebruik SQLExecQuery en de andere ODBC-functies niet in de invoegmacro Xlodbc.xla, maar gebruik in plaats daarvan de objecten, methoden en eigenschappen in de ADO-bibliotheek (ActiveX Data Objects) van Microsoft.

Met SQLExecQuery wordt een query uitgevoerd op een gegevensbron met een koppeling die tot stand is gebracht met SQLOpen.

Met SQLExecQuery wordt de query alleen maar uitgevoerd. Het resultaat kan worden opgehaald met SQLRetrieve of SQLRetrieveToFile.

Deze functie maakt deel uit van de invoegmacro Xlodbc.xla. Voordat u de functie kunt gebruiken, moet u een verwijzing naar de invoegmacro instellen met de opdracht Verwijzingen in het menu Extra.

SQLExecQuery(ConnectionNum, QueryText)
ConnectionNum Vereist. De unieke koppelings-id van de gegevensbron (als resultaat gegeven door SQLOpen) waarop u de query wilt uitvoeren.

QueryText Vereist. De query die op de gegevensbron moet worden uitgevoerd. De query moet voldoen aan de SQL-syntaxis voor het betreffende stuurprogramma.

Resultaatwaarde
De waarde die door SQLExecQuery als resultaat wordt gegeven, is afhankelijk van de SQL-instructie, zoals wordt weergegeven in de volgende tabel.

SQL-instructie Resultaatwaarde
SELECT Het aantal kolommen in de resultaatset.
UPDATE, INSERT of DELETE Het aantal rijen dat door de instructie wordt beïnvloed.
Elke andere geldige SQL-instructie 0 (nul)

Als de functie SQLExecQuery de query niet kan uitvoeren op de opgegeven gegevensbron, wordt fout 2042 als resultaat gegeven.

Als ConnectionNum ongeldig is, geeft SQLExecQuery fout 2015 als resultaat.

Aanvullende informatie
Voordat SQLExecQuery kan worden aangeroepen, moet een koppeling met de gegevensbron tot stand worden gebracht met de functie SQLOpen. De unieke koppelings-id die door SQLOpen als resultaat wordt gegeven, wordt door SQLExecQuery gebruikt om query's door te geven aan de gegevensbron.

Als u SQLExecQuery aanroept met een eerder gebruikte koppelings-id, worden alle wachtende resultaten voor die koppeling vervangen door de nieuwe resultaten.

Voorbeeld
In het volgende voorbeeld wordt een query uitgevoerd op de voorbeelddatabase Northwind. Het resultaat van de query wordt weergegeven in Sheet1 en bestaat uit een lijst van alle producten die in bestelling zijn.

databaseName = "Northwind"
queryString = _
"SELECT * FROM product.dbf WHERE (product.ON_ORDER<>0)"
chan = SQLOpen("DSN=" & databaseName)
SQLExecQuery chan, queryString
Set output = Worksheets("Sheet1").Range("A1")
SQLRetrieve chan, output, , , True
SQLClose chan

vrijdag 20 maart 2009 @ 12:18:57 #187

qu63

..de tijd drinkt..

quote:
Op vrijdag 20 maart 2009 11:51 schreef DaFan het volgende:
qu63; beetje Google kan geen kwaad? Ik heb geen verstand van SQL

Ik dacht misschien een van jullie het wist, dat is meestal wat duidelijker dan dat ik het zelf uit moet gaan zoeken..

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

vrijdag 20 maart 2009 @ 12:20:17 #188

qu63

..de tijd drinkt..

quote:
Op vrijdag 20 maart 2009 12:17 schreef Metal_Jag het volgende:

[..]

En post werkende resultaten indien mogelijk, want dit heeft ook mijn interesse.

FF een quote uit de help van Excel:
[..]

Dat lijkt meer op een benadering van een lokale niet beveiligde SQl-database..

Ik zoek nog even verder

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

vrijdag 20 maart 2009 @ 19:15:59 #189

DaFan

quote:
Op vrijdag 20 maart 2009 12:18 schreef qu63 het volgende:

[..]

Ik dacht misschien een van jullie het wist, dat is meestal wat duidelijker dan dat ik het zelf uit moet gaan zoeken..

Sorry, bedoelde het natuurlijk niet zo, maar via 'excel sql' vond ik al een redelijke uitleg.

maandag 23 maart 2009 @ 13:54:04 #190

Washaway

Hoi, ik ben op dit moment bezig met het creëren van een urenregistratie voor mijn werk maar kom er niet helemaal uit.

De tijdregistratie en verdiensten gaan goed, ik wil het alleen iets meer met formules gaan proberen.

Het is namelijk zo dat ik van ma-za 5,84 euro krijg, maar als ik dan op zondag werk, er 0,50 euro bij komt.

Nu heb ik al heel wat lopen klooien met de ALS functie maar ik kom er niet helemaal uit....

Mijn indeling is als volgt (waarbij X onzichtbaar is en enkel dient als tussenstap om de uren als cijfer weer te geven):

C5 = loon voor ma - za (€ 5,84)
C6= loon voor zondag (€ 6,24)
B8 is [DAG] en kan dus maandag dinsdag woensdag donderdag vrijdag zaterdag zijn of Zondag

1 2	[DAG] [DATUM] [Van] [Tot] [Uur per dag] [x] [Loon per dag] [Fooi] [Verdiensten per dag] [Vrijdag] [20-03-2009] [14:30] [21:00] [6:30] [6,5] [waarde van X * C5] [€14,50] [loonperdag+fooi]

Nu is mijn vraag, is het mogelijk dat als er bij [DAG] bijv. zondag staat, dat dan bij [loon per dag] automatisch met C6 gerekend word?

En dat als er bijvoorbeeld dus bij [DAG] Woensdag staat, dat er dan bij [loon per dag] dus met C5 gerekend word..?

maandag 23 maart 2009 @ 14:21:51 #191

DaFan

Niet echt duidelijk. Kan je me toemailen? s punt spraakman at gmail com. Of als iemand anders m weet, kan aan mn telefoon liggen dat het niet te lezen is :p

maandag 23 maart 2009 @ 14:32:43 #192

qu63

..de tijd drinkt..

Vul je je dag handmatig in?
Zo ja, maak er dan een datum van en laat het opmaken door excel. Dan kan je bijvoorbeeld weekdag(CEL) doen en daar mee rekenen.. =ALS(WEEKDAG(A1)=6;wat te doen als het zondag is;wat te doen als het niet zondag is)

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

maandag 23 maart 2009 @ 15:37:15 #193

Washaway

Bedankt! Zo moet het lukken, ben nu even aan het experimenteren, als het niet lukt laat ik het wel weer even weten

maandag 23 maart 2009 @ 18:55:27 #194

Joooo-pi

Do you want a balloon...

Of maak op een ander tabblad een tabel met dagen en tarieven. Dan met verticaal zoeken de juiste dag zoeken en zo het tarief daarbij vinden. Ook handig als je met andere tarieven gaat werken op dagen enzo.

heitieh

maandag 23 maart 2009 @ 20:54:00 #195

FJD

quote:
Op maandag 23 maart 2009 18:55 schreef Joooo-pi het volgende:
Ook handig als je met andere tarieven gaat werken op dagen enzo.

Feestdagen bv..

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 maart 2009 @ 22:06:46 #196

McGilles

Ik zit met het volgende probleem.

Ik ben bezig voor werk een mooi hyperlinkje te maken dat ervoor zorgt dat bepaalde gegevens uit cellen in een automatisch mailtje worden ingevuld.

Nu heb ik alles voor elkaar en alles werkt perfect. Echter als ik teveel tekens in de cellen zet die naar het mailtje worden overgezet, kan excel het allemaal niet meer aan.

Ik heb al geprobeerd de formule op te splitsen vanuit 2 cellen maar om 1 of andere reden pakt hij het dan niet en werkt de formule ook niet.

Het gaat om de volgende formule:

=HYPERLINK("mailto:"&D5&"?subject=Wijziging afspraak&body=Datum: "&TEKST(C6,"d/m/yyyy")&TEKEN(11)&"Tijd:"&TEKST(C7," hh:mm")&TEKEN(11)&"Geboorte: "&TEKST(C8,"d/m/yyyy")&TEKEN(11)&"Achternaam: "&C9&TEKEN(11)&"Reden: "&C10&TEKEN(11)&"Nieuwe afspraak: "&TEKST(C11,"d/m/yyyy")&TEKEN(11)&"Tijd nieuwe afspraak: "&TEKST(C12," hh:mm")&TEKEN(11)&"Overig: "&C13&TEKEN(11)&""&TEKEN(11)&"Met vriendelijke groet"&TEKEN(11)&"Afsprakenbalie","@")

De cellen C6 t/m C13 vult iemand dus zelf in en die info wordt dan automatisch in het mailtje netjes neergezet. Echter als ik bijvoorbeeld bij 'overig' een heel verhaal ga typen, werkt de formule al niet meer. Iemand hier een oplossing?

maandag 23 maart 2009 @ 22:19:05 #197

qu63

..de tijd drinkt..

quote:
Op maandag 23 maart 2009 20:54 schreef FJD het volgende:

[..]

Feestdagen bv..

Dan gebruik je ipv weekdag() werkdag()

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

maandag 23 maart 2009 @ 23:22:36 #198

hoek21

Hallo,

Ik heb weer eens een vraagje. Is het mogelijk om een kolom op kleur van de cel te ordenen? Ik heb over een hele lange lijst een aantal verschillende kleuren en die zou ik graag onde elkaar zien.

Dank voor de hulp.

maandag 23 maart 2009 @ 23:40:01 #199

DaFan

BOEM!
Toffe macro vraag, Hoek.

Je gebruikt alleen de 'basis' 56 kleuren uit Excel neem ik aan?

maandag 23 maart 2009 @ 23:40:29 #200

DaFan

Het kan trouwens wel, morgen op mn werk zal ik wel ff kloten

maandag 23 maart 2009 @ 23:47:33 #201

hoek21

Ja ik gebruik gewoon basis kleuren.

Ik wacht af dank voor je hulp.

Gr

dinsdag 24 maart 2009 @ 10:22:25 #202

Hi_flyer

Van alles te melden

quote:
Op maandag 23 maart 2009 23:40 schreef DaFan het volgende:
BOEM!
Toffe macro vraag, Hoek.

Je gebruikt alleen de 'basis' 56 kleuren uit Excel neem ik aan?

Meer kleuren kan toch niet, heb ik hier pas geleerd?

@McGilles, dit is veel makkelijker met een macro'tje op te lossen, als ik straks op mijn werk ben zal ik een stukje code plaatsen, want een vergelijkbaar probleem heb ik laatst ook gehad en opgelost.

dinsdag 24 maart 2009 @ 10:36:50 #203

DaFan

1
2
3
4
5
6
7
8
9
10

For i = 1 To 30
    Range("B" & i).Value = Range("B" & i).Interior.ColorIndex
Next i

Columns("B:B").Select
    Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal

Columns("B:B").ClearContents

Bij mij staat in B1:B30 een lijst met kleuren, random aangemaakt. Hiermee sorteer je ze van Colorindex 1 t/m 56.

dinsdag 24 maart 2009 @ 12:23:47 #204

Metal_Jag

MMM van metal

quote:
Op maandag 23 maart 2009 22:06 schreef McGilles het volgende:
Ik zit met het volgende probleem.

Ik ben bezig voor werk een mooi hyperlinkje te maken dat ervoor zorgt dat bepaalde gegevens uit cellen in een automatisch mailtje worden ingevuld.

Nu heb ik alles voor elkaar en alles werkt perfect. Echter als ik teveel tekens in de cellen zet die naar het mailtje worden overgezet, kan excel het allemaal niet meer aan.

Ik heb al geprobeerd de formule op te splitsen vanuit 2 cellen maar om 1 of andere reden pakt hij het dan niet en werkt de formule ook niet.

Het gaat om de volgende formule:

=HYPERLINK("mailto:"&D5&"?subject=Wijziging afspraak&body=Datum: "&TEKST(C6,"d/m/yyyy")&TEKEN(11)&"Tijd:"&TEKST(C7," hh:mm")&TEKEN(11)&"Geboorte: "&TEKST(C8,"d/m/yyyy")&TEKEN(11)&"Achternaam: "&C9&TEKEN(11)&"Reden: "&C10&TEKEN(11)&"Nieuwe afspraak: "&TEKST(C11,"d/m/yyyy")&TEKEN(11)&"Tijd nieuwe afspraak: "&TEKST(C12," hh:mm")&TEKEN(11)&"Overig: "&C13&TEKEN(11)&""&TEKEN(11)&"Met vriendelijke groet"&TEKEN(11)&"Afsprakenbalie","@")

De cellen C6 t/m C13 vult iemand dus zelf in en die info wordt dan automatisch in het mailtje netjes neergezet. Echter als ik bijvoorbeeld bij 'overig' een heel verhaal ga typen, werkt de formule al niet meer. Iemand hier een oplossing?

Te lang argument voor de functie HYPERLINK wellicht??

Wat gebeurt er als je dit doet:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

RANGE("A1").VALUE = _ 'of een andere cell die je kan gebruiken...
"mailto:"&D5&"?subject=Wijziging afspraak&body=Datum: " _
&TEKST(C6,"d/m/yyyy")&TEKEN(11) _
&"Tijd:"&TEKST(C7," hh:mm")&TEKEN(11)&"Geboorte: " _
&TEKST(C8,"d/m/yyyy")&TEKEN(11)&"Achternaam: "&C9& _
TEKEN(11)&"Reden: "&C10&TEKEN(11)& _
"Nieuwe afspraak: "&TEKST(C11,"d/m/yyyy") _
&TEKEN(11)&"Tijd nieuwe _
afspraak: "&TEKST(C12," hh:mm")&TEKEN(11)& _
"Overig: "&C13&TEKEN(11)&""&TEKEN(11)&"Met vriendelijke _
groet"&TEKEN(11)&"Afsprakenbalie","@"

HYPERLINK(RANGE("A1").VALUE)

'eventueel
'RANGE("A1").VALUE = ""

Zo kun je in ieder geval controleren wat je genereert aan hyperlink...

dinsdag 24 maart 2009 @ 13:35:31 #205

Deetch

WTF?

Ik zou in excel de hele subject al samenvoegen en vervolgens afronden op het aantal characters dat nog wel goed gaat.
Je zou evt. de hoeveelheid tekst in overig kunnen beperken tot een beperkt aantal characters met de "validate" optie.
Kan de "overig" ook niet in de body van de mail?

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

dinsdag 24 maart 2009 @ 14:44:50 #206

roelmaster18

Ik heb een vraag .

Ik heb 2 Exel documenten

1 met namen en personeelsnummers van alle medewerker zon 2500
1 met namen van alle BHV-ers (ook hier staan de personeelnummers bij.

Nu wil ik graag dat de lijst met BHV-ers geimporteerd worden in de totaallijst, dus iets met find and replace, maar wil geen 700 namen in voeren....Iemand een idee met welk programma en hoe ik dat kan doen.

dinsdag 24 maart 2009 @ 15:26:36 #207

ralfie

!Yvan eht nioj

quote:
Op dinsdag 24 maart 2009 14:44 schreef roelmaster18 het volgende:
Ik heb een vraag .

Ik heb 2 Exel documenten

1 met namen en personeelsnummers van alle medewerker zon 2500
1 met namen van alle BHV-ers (ook hier staan de personeelnummers bij.

Nu wil ik graag dat de lijst met BHV-ers geimporteerd worden in de totaallijst, dus iets met find and replace, maar wil geen 700 namen in voeren....Iemand een idee met welk programma en hoe ik dat kan doen.

dat doe je het makkelijkste met Microsoft Excel, een onderdeel van de Microsoft Office Suite.

dinsdag 24 maart 2009 @ 15:45:22 #208

DaFan

quote:
Op dinsdag 24 maart 2009 15:26 schreef ralfie het volgende:

[..]

dat doe je het makkelijkste met Microsoft Excel, een onderdeel van de Microsoft Office Suite.

!

dinsdag 24 maart 2009 @ 15:55:41 #209

Deetch

WTF?

Het is mij nog niet duidelijk wat je precies wilt. Wat wil je precies als eindresultaat.

Wil je in de eerste lijst (totaallijst) bij de werknemers een aantekening ofzo dat ze ook BHV'er zijn?

_{verder zou ik dat idd ook in excel doen}

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

dinsdag 24 maart 2009 @ 16:28:52 #210

Hi_flyer

Van alles te melden

quote:
Op maandag 23 maart 2009 22:06 schreef McGilles het volgende:
Ik zit met het volgende probleem.

Ik ben bezig voor werk een mooi hyperlinkje te maken dat ervoor zorgt dat bepaalde gegevens uit cellen in een automatisch mailtje worden ingevuld.

Nu heb ik alles voor elkaar en alles werkt perfect. Echter als ik teveel tekens in de cellen zet die naar het mailtje worden overgezet, kan excel het allemaal niet meer aan.

Ik heb al geprobeerd de formule op te splitsen vanuit 2 cellen maar om 1 of andere reden pakt hij het dan niet en werkt de formule ook niet.

Het gaat om de volgende formule:

=HYPERLINK("mailto:"&D5&"?subject=Wijziging afspraak&body=Datum: "&TEKST(C6,"d/m/yyyy")&TEKEN(11)&"Tijd:"&TEKST(C7," hh:mm")&TEKEN(11)&"Geboorte: "&TEKST(C8,"d/m/yyyy")&TEKEN(11)&"Achternaam: "&C9&TEKEN(11)&"Reden: "&C10&TEKEN(11)&"Nieuwe afspraak: "&TEKST(C11,"d/m/yyyy")&TEKEN(11)&"Tijd nieuwe afspraak: "&TEKST(C12," hh:mm")&TEKEN(11)&"Overig: "&C13&TEKEN(11)&""&TEKEN(11)&"Met vriendelijke groet"&TEKEN(11)&"Afsprakenbalie","@")

De cellen C6 t/m C13 vult iemand dus zelf in en die info wordt dan automatisch in het mailtje netjes neergezet. Echter als ik bijvoorbeeld bij 'overig' een heel verhaal ga typen, werkt de formule al niet meer. Iemand hier een oplossing?

Plaats gewoon een button en laat die verwijzen naar onderstaande sub. (Niet helemaal van mezelf). De body moet je dan zelf even aanpassen, maar dat zal wel lukken.

In plaats van .send kan je ook .Display gebruiken, dan kan je het mailtje nog een keer controleren voordat je 'em handmatig verstuurt.

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

Sub SendMail(location)
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim FilenameStr As String
    Dim address As String
    Dim name As String

    name = Range("D5")
    address = Range("D5")
    'MsgBox address
        Set OutApp = CreateObject("Outlook.Application")
        OutApp.Session.Logon
        Set OutMail = OutApp.CreateItem(0)

        strbody = "Hi technician," & vbNewLine & vbNewLine & _
            "Can you do an Aster run as described in " & location & vbNewLine & _
            vbNewLine & "Regards " & name

        On Error Resume Next
        With OutMail
            .to = address
            .CC = "iemand1@uu.nl"
            .BCC = "iemand2@uu.nl"
            .Subject = "Wijziging afspraak"
            .Body = strbody
            .Send
        End With
        On Error GoTo 0
        MsgBox "Email sent to iemand1, iemand2 and " & name & "!"

        Set OutMail = Nothing
        Set OutApp = Nothing

End Sub

dinsdag 24 maart 2009 @ 20:32:12 #211

Joooo-pi

Do you want a balloon...

quote:
Op dinsdag 24 maart 2009 14:44 schreef roelmaster18 het volgende:
Ik heb een vraag .

Ik heb 2 Exel documenten

1 met namen en personeelsnummers van alle medewerker zon 2500
1 met namen van alle BHV-ers (ook hier staan de personeelnummers bij.

Nu wil ik graag dat de lijst met BHV-ers geimporteerd worden in de totaallijst, dus iets met find and replace, maar wil geen 700 namen in voeren....Iemand een idee met welk programma en hoe ik dat kan doen.

Als ik je goed begrijp wil je de BHV'ers tussen het overige personeel zetten?

Niet moeilijk denken:
Selecteer de 2 kolommen met BHV en pers.nummer in doc. 2
Dan kopieren
Ga naar doc. 1 en plak ze onder de andere 2500
Nu de truc: selecteer de hele kolom (2500 + 700 ?) en klik op SORTEREN!

Dan heb je ze ertussen en op volgorde

Maar het was misschien niet wat je bedoelde?

heitieh

woensdag 25 maart 2009 @ 11:06:52 #212

PsychoBoB

the psycho of them all

ff een vraagje,

ik heb een pivot, en daarin zeg ik dat velden met de waarde -1 een kleur moeten krijgen, en dat deze kleur toegepast moet worden op .zowel de tekst als de achtergrond. Op het scherm wordt het als een grijs blok weergegeven, dus dan is de -1 waarde dezelfde kleur als de achtergrond. Nu is het echter zo dat als ik ga printen, de tekst zwart kleurt en de achtergrond wel de juiste kleur krijgt, maar ze moeten dus allebei dezelfde kleur hebben, zodat de getallen niet zichtbaar zijn.

Is dit op te lossen, en zo ja hoe??

groet

Het uiten van je menig is het allerhoogste goed, dat is juist iets wat haat ontlaad en niet wat woede voedt.... (maassen 2004™)

woensdag 25 maart 2009 @ 11:06:52 #213

PsychoBoB

the psycho of them all

dubbelpost

[ Bericht 96% gewijzigd door PsychoBoB op 25-03-2009 11:12:01 ]

Het uiten van je menig is het allerhoogste goed, dat is juist iets wat haat ontlaad en niet wat woede voedt.... (maassen 2004™)

woensdag 25 maart 2009 @ 11:21:34 #214

Jaheur

quote:
Op donderdag 19 maart 2009 14:01 schreef DaFan het volgende:
Jaheur als je nou ff een nep variable aanmaakt, zeg i = 1 en deze plaatst aan het begin van je macro. Ga dan in de Editor en doe rechtermuisknop -> Add watch (Controle toevoegen) -> Break when value changes (Onderbreken indien waarde is gewijzigd).

Dan ga je de code ín en kan je met F8 naar de volgende stap. Je kan dan zien waar het evt fout gaat. Ik kan zo niks vinden.

Het gaat fout vanaf deze code:

1
2
3
4

        ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Bevindingen!R1K1:R111K16", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="Data!R16K13", TableName:="Draaitabel1", DefaultVersion _
        :=xlPivotTableVersion10

woensdag 25 maart 2009 @ 12:39:00 #215

Metal_Jag

MMM van metal

quote:
Op woensdag 25 maart 2009 11:21 schreef Jaheur het volgende:

[..]

Het gaat fout vanaf deze code:
[ code verwijderd ]

Ik heb het ook ff "opgenomen" en bij mij zag het maken van een pivot er anders uit. Hieronder staat het, met jouw ranges erin.

Misschien dat dat wel werkt?

1
2
3

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Bevindingen!R1K1:R111K16").CreatePivotTable TableDestination:="Data!R16K13", TableName:= _
"Draaitabel1", DefaultVersion:=xlPivotTableVersion10

ps/ TableDestination stond bij mij op "". Mocht het bovenstaande nog fout gaan verander dat dan eerst ff in ""

woensdag 25 maart 2009 @ 13:06:39 #216

Jaheur

quote:
Op woensdag 25 maart 2009 12:39 schreef Metal_Jag het volgende:

[..]

Ik heb het ook ff "opgenomen" en bij mij zag het maken van een pivot er anders uit. Hieronder staat het, met jouw ranges erin.

Misschien dat dat wel werkt?
[ code verwijderd ]

ps/ TableDestination stond bij mij op "". Mocht het bovenstaande nog fout gaan verander dat dan eerst ff in ""

Die van jou werkt, maar niet op mijn manier. Het moet in een bestaande werkblad en niet in een nieuwe en als ik de code ActiveWorkbook.PivotCaches.Add aanpas naar ActiveWorkbook.PivotCaches.Create werkt het weer niet :/

woensdag 25 maart 2009 @ 15:28:12 #217

DaFan

PivotCaches heeft geen method 'Create'.

woensdag 25 maart 2009 @ 18:43:17 #218

Metal_Jag

MMM van metal

quote:
Op woensdag 25 maart 2009 13:06 schreef Jaheur het volgende:

[..]

Die van jou werkt, maar niet op mijn manier. Het moet in een bestaande werkblad en niet in een nieuwe en als ik de code ActiveWorkbook.PivotCaches.Add aanpas naar ActiveWorkbook.PivotCaches.Create werkt het weer niet :/

Maar in TableDestination kun je toch aangeven waar je de draaittabel wilt hebben? Als je daar je bestaande werkblad met celverwijzing neerzet, ben je toch klaar? (Precies die code uit mijn vorige post, dus met de TableDestination = "JOUWRANGE")

woensdag 25 maart 2009 @ 19:43:44 #219

RayMania

Doei.

Wederom een vraagje, zal het zo goed mogelijk proberen uit te leggen.

Ik heb sheet1 en in de cellen A1 t/m A10 staat de naam van een voetbalspeler. In de cellen B1 t/m B10 staat de club waar die voetbalspeler op dit moment speelt. In kolom B kunnen dus verschillende clubs staan.

Nu heb ik bijvoorbeeld sheet2 en ik wil daar een overzicht maken van alle spelers van één bepaalde club (zeg Ajax). De informatie moet gehaald worden uit sheet1. Ik wil dus dat sheet1 gecontroleerd wordt op een bepaalde club en als er een speler van bijvoorbeeld Ajax tussen staat, moet dat getransfert worden naar sheet2 (waar alle Ajacieden komen te staan). Hoe doe ik dat?

Achter-elkaar-bezochte-Ajax-thuiswedstrijden-meter: [b]29[/b].
[b]Laatste wedstrijd:[/b] FC Timişoara. [b]Volgende:[/b] ADO Den Haag.
Ray's Statshoekje - 2009/2010.

woensdag 25 maart 2009 @ 20:41:04 #220

Joooo-pi

Do you want a balloon...

quote:
Op woensdag 25 maart 2009 19:43 schreef RayMania het volgende:
Wederom een vraagje, zal het zo goed mogelijk proberen uit te leggen.

Ik heb sheet1 en in de cellen A1 t/m A10 staat de naam van een voetbalspeler. In de cellen B1 t/m B10 staat de club waar die voetbalspeler op dit moment speelt. In kolom B kunnen dus verschillende clubs staan.

Nu heb ik bijvoorbeeld sheet2 en ik wil daar een overzicht maken van alle spelers van één bepaalde club (zeg Ajax). De informatie moet gehaald worden uit sheet1. Ik wil dus dat sheet1 gecontroleerd wordt op een bepaalde club en als er een speler van bijvoorbeeld Ajax tussen staat, moet dat getransfert worden naar sheet2 (waar alle Ajacieden komen te staan). Hoe doe ik dat?

Ik hou wel van simpele macro'tjes:

Op blad2 heb ik een knop (CommandButton1) geplaatst en in A1 typ je de club. Zet achter de knop de volgende code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

Private Sub CommandButton1_Click()
Columns("B:B").Clear

Club = Range("A1").Value

i = 0
j = 0

Do
    i = i + 1

    If Worksheets("Blad1").Cells(i, 2).Value = Club Then
        j = j + 1
        Worksheets("Blad2").Cells(j, 2).Value = Worksheets("Blad1").Cells(i, 1).Value
    End If

Loop Until Worksheets("Blad1").Cells(i, 1).Value = ""

End Sub

heitieh

woensdag 25 maart 2009 @ 22:22:18 #221

DaFan

Jopi kan je er niet nog zoiets om heen bouwen, dan hoeft RM alleen nog maar 18 Worksheets aan te maken met de naam van de clubs (neem aan Eredivisie :P )

1
2
3
4
5
6
7
8
9

Dim ws as Worksheet

For each ws in Worksheets

Club = ws.Name

<jouw code>

Next

Hoef je ten eerste A1 niet te 'vervuilen' met de clubnaam, ten tweede hoef je geen 18 buttons te maken en de macro aan te passen qua worksheetnaam (Blad2 in jouw voorbeeld).

donderdag 26 maart 2009 @ 10:13:33 #222

Jaheur

quote:
Op woensdag 25 maart 2009 18:43 schreef Metal_Jag het volgende:

[..]

Maar in TableDestination kun je toch aangeven waar je de draaittabel wilt hebben? Als je daar je bestaande werkblad met celverwijzing neerzet, ben je toch klaar? (Precies die code uit mijn vorige post, dus met de TableDestination = "JOUWRANGE")

Dan krijg ik de melding ongeldige procedure aanroep of ongeldig argument

donderdag 26 maart 2009 @ 12:35:48 #223

Metal_Jag

MMM van metal

quote:
Op donderdag 26 maart 2009 10:13 schreef Jaheur het volgende:

[..]

Dan krijg ik de melding ongeldige procedure aanroep of ongeldig argument

Heb je dan misschien geen passende range? Wat als je het bij 1 cell houdt?

Ik heb het nl. geprobeerd en het werkte bij mij wel...

donderdag 26 maart 2009 @ 13:02:36 #224

Jaheur

quote:
Op donderdag 26 maart 2009 12:35 schreef Metal_Jag het volgende:

[..]

Heb je dan misschien geen passende range? Wat als je het bij 1 cell houdt?

Ik heb het nl. geprobeerd en het werkte bij mij wel...

Ik benader de sheet en range op een andere manier en dan werkt het wel:

TableDestination:=Sheets("DATA").Range("A1")

donderdag 26 maart 2009 @ 13:26:10 #225

Joooo-pi

Do you want a balloon...

quote:
Op woensdag 25 maart 2009 22:22 schreef DaFan het volgende:
Jopi kan je er niet nog zoiets om heen bouwen, dan hoeft RM alleen nog maar 18 Worksheets aan te maken met de naam van de clubs (neem aan Eredivisie )
[ code verwijderd ]

Hoef je ten eerste A1 niet te 'vervuilen' met de clubnaam, ten tweede hoef je geen 18 buttons te maken en de macro aan te passen qua worksheetnaam (Blad2 in jouw voorbeeld).

Ha, je hebt gelijk. Ik had blijkbaar de post niet helemaal goed gelezen, want ik dacht dat hij het zo wou hebben. Maar ik heb je voorstel er even in verwerkt. Nu met 1 knop op de eerste sheet om de gegevens te verwerken. Dit zou nog in een EventChange kunnen, maar goed.

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

Private Sub CommandButton1_Click()

For Each ws In Worksheets

If ws.Name <> Worksheets(1).Name Then 'zo sla je de eerste worksheet over

Club = ws.Name

Worksheets(Club).Columns("A:A").Clear

i = 0
j = 0

Do
    i = i + 1

    If Worksheets(1).Cells(i, 2).Value = Club Then
        j = j + 1
        Worksheets(Club).Cells(j, 1).Value = Worksheets(1).Cells(i, 1).Value
    End If

Loop Until Worksheets(1).Cells(i, 1).Value = ""

End If

Next

End Sub

[ Bericht 3% gewijzigd door Joooo-pi op 26-03-2009 20:23:16 ]

heitieh

donderdag 26 maart 2009 @ 19:57:04 #226

RayMania

Doei.

Ik heb het precies gedaan zoals je uitgelegd heb. In A:A (blad1) heb ik de lijst met spelers en in B:B de clubnaam. Op blad2 heb ik in A1 een club ingevoerd en op dezelfde sheet staat de commandbutton naar de code, maar ik krijg resultaat. Het enige wat ik krijg is dat de clubnaam verwijderd wordt?

Edit; nu test ik de eerste code, maar die werkt wel

. Maar inderdaad wat DaFan zegt; ik wil 18 bladen maken en dat automatisch alle spelers uit blad1 worden verdeeld over de clubbladen (2 t/m 19, zeg maar).

Achter-elkaar-bezochte-Ajax-thuiswedstrijden-meter: [b]29[/b].
[b]Laatste wedstrijd:[/b] FC Timişoara. [b]Volgende:[/b] ADO Den Haag.
Ray's Statshoekje - 2009/2010.

donderdag 26 maart 2009 @ 20:10:13 #227

Joooo-pi

Do you want a balloon...

quote:
Op donderdag 26 maart 2009 19:57 schreef RayMania het volgende:
Ik heb het precies gedaan zoals je uitgelegd heb. In A:A (blad1) heb ik de lijst met spelers en in B:B de clubnaam. Op blad2 heb ik in A1 een club ingevoerd en op dezelfde sheet staat de commandbutton naar de code, maar ik krijg resultaat. Het enige wat ik krijg is dat de clubnaam verwijderd wordt?

Edit; nu test ik de eerste code, maar die werkt wel . Maar inderdaad wat DaFan zegt; ik wil 18 bladen maken en dat automatisch alle spelers uit blad1 worden verdeeld over de clubbladen (2 t/m 19, zeg maar).

Ja ik weet het. Bij de 2e code moet je de commandbutton op de eerste(!) sheet (bij de gegevens) zetten. Dat was de aanpassing.

Dan maakt ie wel de lijstjes per sheet.

heitieh

donderdag 26 maart 2009 @ 20:17:30 #228

RayMania

Doei.

quote:
Op donderdag 26 maart 2009 20:10 schreef Joooo-pi het volgende:

[..]

Ja ik weet het. Bij de 2e code moet je de commandbutton op de eerste(!) sheet (bij de gegevens) zetten. Dat was de aanpassing.

Dan maakt ie wel de lijstjes per sheet.

Geweldig

! Hartstikke bedankt.

Nu je toch zo goed bezig bent voor mij; hoe zou ik eenvoudig een extra kolom kunnen meenemen? Dus stel ik heb meerdere kolommen (A = Speler, B = Club, C = Positie, D = Rugnummer), hoe kopieer ik dan kolom A, C en D naar de desbetreffende bladen? Sorry als hierdoor de code flink anders is, maar kwam er helaas net pas achter.

En is er een mogelijkheid dat de spelers niet A:A worden gezet, maar bijvoorbeeld in een bepaald gedeelte van de sheet (bijvoorbeeld vanaf B2 t/m B50)?

Achter-elkaar-bezochte-Ajax-thuiswedstrijden-meter: [b]29[/b].
[b]Laatste wedstrijd:[/b] FC Timişoara. [b]Volgende:[/b] ADO Den Haag.
Ray's Statshoekje - 2009/2010.

donderdag 26 maart 2009 @ 20:21:58 #229

Joooo-pi

Do you want a balloon...

quote:
Op donderdag 26 maart 2009 20:17 schreef RayMania het volgende:

[..]

Geweldig ! Hartstikke bedankt.

Nu je toch zo goed bezig bent voor mij; hoe zou ik eenvoudig een extra kolom kunnen meenemen? Dus stel ik heb meerdere kolommen (A = Speler, B = Club, C = Positie, D = Rugnummer), hoe kopieer ik dan kolom A, C en D naar de desbetreffende bladen? Sorry als hierdoor de code flink anders is, maar kwam er helaas net pas achter.

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

Private Sub CommandButton1_Click()

For Each ws In Worksheets

If ws.Name <> Worksheets(1).Name Then 'zo sla je de eerste worksheet over

Club = ws.Name

Worksheets(Club).Columns("A:C").Clear

i = 0
j = 0

Do
    i = i + 1

    If Worksheets(1).Cells(i, 2).Value = Club Then
        j = j + 1
        Worksheets(Club).Cells(j, 1).Value = Worksheets(1).Cells(i, 1).Value
        Worksheets(Club).Cells(j, 2).Value = Worksheets(1).Cells(i, 3).Value
        Worksheets(Club).Cells(j, 3).Value = Worksheets(1).Cells(i, 4).Value
    End If

Loop Until Worksheets(1).Cells(i, 1).Value = ""

End If

Next

End Sub

Dit lijkt me wat je bedoelt..

[ Bericht 2% gewijzigd door Joooo-pi op 26-03-2009 20:25:42 (KOLOMMEN LEGEN VERGETEN (2)) ]

heitieh

donderdag 26 maart 2009 @ 20:25:06 #230

RayMania

Doei.

quote:
Op donderdag 26 maart 2009 20:21 schreef Joooo-pi het volgende:

[..]
[ code verwijderd ]

Dit lijkt me wat je bedoelt..

Top, werkt ook weer

.

Ik had m'n post nog geëdit, maar je was sneller dan het licht.

quote:
En is er een mogelijkheid dat de spelers niet A:A worden gezet, maar bijvoorbeeld in een bepaald gedeelte van de sheet (bijvoorbeeld vanaf B2 t/m B50)?

Achter-elkaar-bezochte-Ajax-thuiswedstrijden-meter: [b]29[/b].
[b]Laatste wedstrijd:[/b] FC Timişoara. [b]Volgende:[/b] ADO Den Haag.
Ray's Statshoekje - 2009/2010.

donderdag 26 maart 2009 @ 20:26:56 #231

Joooo-pi

Do you want a balloon...

quote:
Op donderdag 26 maart 2009 20:25 schreef RayMania het volgende:

[..]

Top, werkt ook weer .

Ik had m'n post nog geëdit, maar je was sneller dan het licht.
[..]

Heb je mijn edit ook gezien dan? Eerste post was ik vergeten de kolommen leeg te halen.

Ik ga nog ff kijken naar je laatste vraag dan.

heitieh

donderdag 26 maart 2009 @ 20:28:13 #232

Joooo-pi

Do you want a balloon...

quote:
Op donderdag 26 maart 2009 20:25 schreef RayMania het volgende:

[..]

Top, werkt ook weer .

Ik had m'n post nog geëdit, maar je was sneller dan het licht.
[..]

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

Private Sub CommandButton1_Click()

For Each ws In Worksheets

If ws.Name <> Worksheets(1).Name Then 'zo sla je de eerste worksheet over

Club = ws.Name

Worksheets(Club).Range("B2:D50").Clear

i = 0
j = 1

Do
    i = i + 1

    If Worksheets(1).Cells(i, 2).Value = Club Then
        j = j + 1
        Worksheets(Club).Cells(j, 2).Value = Worksheets(1).Cells(i, 1).Value
        Worksheets(Club).Cells(j, 3).Value = Worksheets(1).Cells(i, 3).Value
        Worksheets(Club).Cells(j, 4).Value = Worksheets(1).Cells(i, 4).Value
    End If

Loop Until Worksheets(1).Cells(i, 1).Value = ""

End If

Next

End Sub

[ Bericht 2% gewijzigd door Joooo-pi op 26-03-2009 20:29:12 (shit weer het legen vergeten :P) ]

heitieh

vrijdag 27 maart 2009 @ 08:23:41 #233

Piles

Ja, daar was ik weer

Ik heb een lijst met onderdelen, waarbij in kolom L een jaartal van vervanging staat. Nu is de bedoeling dat er per jaar een werkblad komt met daarin alle onderdelen die dat jaar vervangen moeten worden.
Dat is natuurlijk makkelijk door een filter te gebruiken en de gegevens te kopieren, maar het mooiste zou zijn als de gegevens in de aparte werkbladen meeveranderen door wijzigingen in het hoofdblad (dus ook de jaartallen kunnen veranderen)

Is dit te doen (in Excel 2000

! ), of is met filter toch de enige mogelijkheid?

vrijdag 27 maart 2009 @ 09:41:51 #234

Deetch

WTF?

waarom geen pivot table?

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 27 maart 2009 @ 09:45:06 #235

RayMania

Doei.

quote:
Op donderdag 26 maart 2009 20:28 schreef Joooo-pi het volgende:

[..]
[ code verwijderd ]

Hartstikke bedankt. Ik kan weer even verder. Dit maakt alles veel makkelijker

.

Achter-elkaar-bezochte-Ajax-thuiswedstrijden-meter: [b]29[/b].
[b]Laatste wedstrijd:[/b] FC Timişoara. [b]Volgende:[/b] ADO Den Haag.
Ray's Statshoekje - 2009/2010.

vrijdag 27 maart 2009 @ 09:54:42 #236

Piles

quote:
Op vrijdag 27 maart 2009 09:41 schreef Deetch het volgende:
waarom geen pivot table?

Maar als dan in het hoofdblad een jaartal veranderd wordt, dan veranderen de gegevens in de jaarbladen niet mee toch?

vrijdag 27 maart 2009 @ 12:00:18 #237

Deetch

WTF?

In een pivottable kun je alle vervangen onderdelen per jaartal tonen. In de pivottable komt dan een kuezelijst met jaartallen en als je die veranderd veranderd de data in de tabel mee.

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 27 maart 2009 @ 12:02:24 #238

Piles

quote:
Op vrijdag 27 maart 2009 12:00 schreef Deetch het volgende:
In een pivottable kun je alle vervangen onderdelen per jaartal tonen. In de pivottable komt dan een kuezelijst met jaartallen en als je die veranderd veranderd de data in de tabel mee.

Dan ga ik dat zo eens bekijken

zaterdag 28 maart 2009 @ 16:52:41 #239

devuser_250

ik moet een internationaal telefoonnummer invoeren in Excel. Ik moet hiervoor een "+" schrijven voor het nummer, het probleem is dat dat telkens verdwijnt.

Hoe kan ik dit verhelpen?

zaterdag 28 maart 2009 @ 18:44:36 #240

DaFan

' ervoor.

zondag 29 maart 2009 @ 14:05:54 #241

hendrik2009

Een vraag:

Ik heb per week bepaalde data, die wordt samengevat in een draaitabel.
De data uit de draaitabel wordt weergegeven in een grafiek.

Om de weken in verschillende jaren niet te salderen in de draaitabel, maak ik gebruik van de notatie jaar+week, bijvoorbeeld 0914. In de grafiek staat deze notatie nu op de x-as.

Nu is mijn vraag of het mogelijk is om alleen de weeknotatie, in dit geval 14, op de x-as te zetten? Ik heb al een extra kolom in de draaitabel staan, met alleen de weeknummers, wat misschien niet eens nodig is.
Of ontkom ik er niet aan gebruik te maken van een hulpkolom, buiten de draaitabel?

Alvast bedankt voor de hulp.

maandag 30 maart 2009 @ 12:15:42 #242

Stansfield

Hoe zet ik een kop in een grafiek? Ik heb de grafiek al helemaal zoals ik wil. Alleen wil ik erboven, maar wel in de grafiek nog een tekst zetten.

maandag 30 maart 2009 @ 12:27:27 #243

DaFan

Rechtermuisknop -> Grafiekopties -> Titel invullen.

Hendrik:
Volgens mij kan dit niet.

maandag 30 maart 2009 @ 12:27:51 #244

Joooo-pi

Do you want a balloon...

quote:
Op maandag 30 maart 2009 12:15 schreef Stansfield het volgende:
Hoe zet ik een kop in een grafiek? Ik heb de grafiek al helemaal zoals ik wil. Alleen wil ik erboven, maar wel in de grafiek nog een tekst zetten.

Klik met rechts op je grafiek (witte gedeelte) en selecteer "grafiekopties". Vul daar grafiektitel in.

heitieh

maandag 30 maart 2009 @ 12:28:50 #245

Joooo-pi

Do you want a balloon...

quote:
Op maandag 30 maart 2009 12:27 schreef DaFan het volgende:
Rechtermuisknop -> Grafiekopties -> Titel invullen.

Hendrik:
Volgens mij kan dit niet.

Je was me voor

precies zelfde antwoord

heitieh

maandag 30 maart 2009 @ 13:11:21 #246

DaFan

quote:
Op maandag 30 maart 2009 12:28 schreef Joooo-pi het volgende:

[..]

Je was me voor precies zelfde antwoord

Er is in principe ook maar 1 juist antwoord

maandag 30 maart 2009 @ 13:20:11 #247

Stansfield

En hoe doe je dat bij de nederlanse versie van de nieuwste excel?

maandag 30 maart 2009 @ 14:28:46 #248

Deetch

WTF?

quote:
Op maandag 30 maart 2009 13:20 schreef Stansfield het volgende:
En hoe doe je dat bij de nederlanse versie van de nieuwste excel?

Ha, daar kunnen we een heel extra topic wel aan gaan wijden:

"Waar zit die-en-die functie in de nieuwste versie van excel want ik kan hem niet vinden"

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

maandag 30 maart 2009 @ 15:47:25 #249

Joooo-pi

Do you want a balloon...

quote:
Op maandag 30 maart 2009 13:20 schreef Stansfield het volgende:
En hoe doe je dat bij de nederlanse versie van de nieuwste excel?

Grafiekopties en grafiektitel... is dat geen Nederlands dan?

Ik mag toch aannemen dat het in de nieuwste versie echt niet anders is...

heitieh

maandag 30 maart 2009 @ 20:47:50 #250

hoek21

Ik heb weer eens een vraagje. Hoe kan ik tekst en nummers uit 1 cel verdelen over 2 cellen? Ik heb dus bv in een cel staan (Drum 157 kg) Nu wil ik dus in een cel het woord ¨drum¨ hebben en in een andere ¨157¨. Ik weet dat het kan, maar hoe zat het ook alweer?

Al iemand het weet dan is hulp welkom

Dank alvast

GR

maandag 30 maart 2009 @ 20:55:59 #251

DaFan

quote:
Op maandag 30 maart 2009 20:47 schreef hoek21 het volgende:
Ik heb weer eens een vraagje. Hoe kan ik tekst en nummers uit 1 cel verdelen over 2 cellen? Ik heb dus bv in een cel staan (Drum 157 kg) Nu wil ik dus in een cel het woord ¨drum¨ hebben en in een andere ¨157¨. Ik weet dat het kan, maar hoe zat het ook alweer?

Al iemand het weet dan is hulp welkom

Dank alvast

GR

Wordt het door spaties aangegeven waar het gesplitst wordt? Dus alles voor de eerste spatie en tussen de eerste spatie en de 2e?
Alles voor de eerste spatie:

1	=LEFT(A1,LEN(A1)-FIND(" ",A1)-2)

Tussen 1e en 2e spatie:

1	=MID(A1,FIND(" ",A1),D2-FIND(" ",A1))

maandag 30 maart 2009 @ 21:03:47 #252

hoek21

Het ziet er zo uit. Dit is de info uit een cel en ik wil die 157 eruit filteren. (is in het spaans vandaar)

TAMBOR A CAMBIO DE 157KG

Ik ga even proberen of je oplossing wekt

dank alvast

Gr

maandag 30 maart 2009 @ 21:06:02 #253

DaFan

quote:
Op maandag 30 maart 2009 21:03 schreef hoek21 het volgende:
Het ziet er zo uit. Dit is de info uit een cel en ik wil die 157 eruit filteren. (is in het spaans vandaar)

TAMBOR A CAMBIO DE 157KG

Ik ga even proberen of je oplossing wekt

dank alvast

Gr

Nee dat werkt niet. Wil je altijd hetgene hebben dat voor KG staat misschien?

maandag 30 maart 2009 @ 21:13:08 #254

hoek21

Ja dat is wat ik nodig heb. Ik heb dus alleen de 157 nodig uit die cel.

maandag 30 maart 2009 @ 21:19:55 #255

DaFan

Ik heb het idee dat het een beetje omslachtig is maar akkoord:

1	=TRIM(MID(A11,FIND(CHAR(160),SUBSTITUTE(A11," ",CHAR(160),LEN(A11)-LEN(SUBSTITUTE(A11," ","")))),FIND(CHAR(160),SUBSTITUTE(A11,"KG",CHAR(160)))-FIND(CHAR(160),SUBSTITUTE(A11," ",CHAR(160),LEN(A11)-LEN(SUBSTITUTE(A11," ",""))))))

Bleh en ik test het nou maar werkt alleen als 157 en KG aan elkaar staat en 157 een spatie voorstaat.
Waardeloos dit :P

maandag 30 maart 2009 @ 21:32:35 #256

DaFan

Volgens mij kan je beter een UDF gebruiken zoals:
http://www.ozgrid.com/VBA/ExtractNum.htm

maandag 30 maart 2009 @ 22:01:14 #257

hoek21

tja.....die link geeft een foutmelding (kan dit komen door het Spaans?) is dus niet zo eenvoudig mmmmmmmmmmmmmm

maandag 30 maart 2009 @ 22:09:48 #258

qu63

..de tijd drinkt..

Hoe kan je HYPERLINK() laten linken naar een bestand in dezelfde map als mn sheet?
=hyperlink("\map.xlsx";"test") werkt niet iig.. Ik wil dingen als C:\blaba\blabla\blabla\blabla\map.xlsx voorkomen omdat het a) ook op andere pc's komt en b) ik dat gewoon niet wil

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

maandag 30 maart 2009 @ 22:29:24 #259

DaFan

Via =CEL("Bestandsnaam") kan je achterhalen in welke map het huidige bestand staat

Ik denk dat je genoeg van Excel weet om daar wat mee te kunnen.

Edit: Wel eerst een keer opslaan.

maandag 30 maart 2009 @ 22:37:15 #260

qu63

..de tijd drinkt..

quote:
Op maandag 30 maart 2009 22:29 schreef DaFan het volgende:
Via =CEL("Bestandsnaam") kan je achterhalen in welke map het huidige bestand staat
Ik denk dat je genoeg van Excel weet om daar wat mee te kunnen.

Edit: Wel eerst een keer opslaan.

Mja, leuk spelen met LINKS() en RECHTS()

Ik moet dus de bestandsnaam en sheet er af slopen

-edit- Niet met LINKS() en RECHTS() dus.. Ff zoeken

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

maandag 30 maart 2009 @ 22:37:32 #261

DaFan

Zo dus:
=LEFT(CELL("filename"),FIND("[",CELL("filename"))-1)

maandag 30 maart 2009 @ 22:45:43 #262

qu63

..de tijd drinkt..

quote:
Op maandag 30 maart 2009 22:37 schreef DaFan het volgende:
Zo dus:
=LEFT(CELL("filename"),FIND("[",CELL("filename"))-1)

Niet bij mij

"=LINKS(CEL("bestandsnaam");ZOEKEN("[";CEL("bestandsnaam"))-1)" Geeft #WAARDE!
"=ZOEKEN("[";CEL("bestandsnaam"))" Geeft ook #WAARDE!
"=ZOEKEN("[";H13)" Geeft #N/B (In H13 staat "=CEL("bestandsnaam")")

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

maandag 30 maart 2009 @ 22:51:13 #263

DaFan

Wat is je output van CEL("bestandsnaam") ?

maandag 30 maart 2009 @ 22:52:39 #264

qu63

..de tijd drinkt..

quote:
Op maandag 30 maart 2009 22:51 schreef DaFan het volgende:
Wat is je output van CEL("bestandsnaam") ?

C:\Users\Sven\School\Portfolio\06 P-Project\Kwaliteitshandboek\[Inhoud.xlsx]Blad1

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

maandag 30 maart 2009 @ 22:57:10 #265

qu63

..de tijd drinkt..

http://office.microsoft.com/en-us/excel/HP052091161033.aspx

Daar staat ook niks in over relatieve verwijzingen

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

maandag 30 maart 2009 @ 23:05:19 #266

DaFan

FIND = VIND.ALLES

Niet ZOEKEN. ZOEKEN = LOOKUP.

maandag 30 maart 2009 @ 23:09:47 #267

qu63

..de tijd drinkt..

quote:
Op maandag 30 maart 2009 23:05 schreef DaFan het volgende:
FIND = VIND.ALLES

Niet ZOEKEN. ZOEKEN = LOOKUP.

hey, daar zit wat in

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

maandag 30 maart 2009 @ 23:20:33 #268

qu63

..de tijd drinkt..

Ok, uiteindelijke functie:
=HYPERLINK(LINKS(CEL("bestandsnaam");VIND.ALLES("[";CEL("bestandsnaam"))-1)&$B$7&" - "&$C$7&"\"&RECHTS($B$8;1)&" - "&$C$8&"\"&RECHTS(B9;2)&" - "&C9&".docx";"Link")

Wordt:
C:\Users\Sven\School\Portfolio\06 P-Project\Kwaliteitshandboek\01 - Kwaliteitsbeleid\0 - Beleid\01 - Intentieverklaring.docx

Thanks DaFan

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

dinsdag 31 maart 2009 @ 07:33:46 #269

DaFan

Goed werk

Weet je zeker dat je met .docx wil gaan werken? Of 2007 bestandstype in het algemeen? In bedrijven gebruikt nog bijna niemand het. Wij gebruiken zelfs nog 2002 (al heb ik stiekem 2003 Engelse versie opgezet, ik kon godverdomme geen functie vinden in het Nederlands

)

dinsdag 31 maart 2009 @ 09:39:06 #270

qu63

..de tijd drinkt..

quote:
Op dinsdag 31 maart 2009 07:33 schreef DaFan het volgende:
Goed werk

Weet je zeker dat je met .docx wil gaan werken? Of 2007 bestandstype in het algemeen? In bedrijven gebruikt nog bijna niemand het. Wij gebruiken zelfs nog 2002 (al heb ik stiekem 2003 Engelse versie opgezet, ik kon godverdomme geen functie vinden in het Nederlands )

Het wordt alleen door mij en mn pa gebruikt, en op alle pc's en laptops staat Office2007

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

dinsdag 31 maart 2009 @ 12:47:29 #271

Joooo-pi

Do you want a balloon...

quote:
Op maandag 30 maart 2009 23:20 schreef qu63 het volgende:
Ok, uiteindelijke functie:
=HYPERLINK(LINKS(CEL("bestandsnaam");VIND.ALLES("[";CEL("bestandsnaam"))-1)&$B$7&" - "&$C$7&"\"&RECHTS($B$8;1)&" - "&$C$8&"\"&RECHTS(B9;2)&" - "&C9&".docx";"Link")

Wordt:
C:\Users\Sven\School\Portfolio\06 P-Project\Kwaliteitshandboek\01 - Kwaliteitsbeleid\0 - Beleid\01 - Intentieverklaring.docx

Thanks DaFan

werkt dit niet gewoon: =hyperlink("bestandsnaam"; "link") ??

ik bedoel: =HYPERLINK("01 - Intentieverklaring.docx"; "link")

Ik heb het ff geprobeerd en werkte wel

heitieh

dinsdag 31 maart 2009 @ 15:33:59 #272

qu63

..de tijd drinkt..

quote:
Op dinsdag 31 maart 2009 12:47 schreef Joooo-pi het volgende:

[..]

werkt dit niet gewoon: =hyperlink("bestandsnaam"; "link") ??

ik bedoel: =HYPERLINK("01 - Intentieverklaring.docx"; "link")

Ik heb het ff geprobeerd en werkte wel

Kan wel, alleen ik heb er dus een hele mappenstructuur in zitten, dan moet ik iedere link handmatig aanpassen. Dit is gewoon copy-pasten

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

dinsdag 31 maart 2009 @ 22:21:52 #273

Stimpy2009

Hoi, ik ben bezig met een sheet om stop tijden in kaart te brengen en nu ben ik al wel zover dat in een ander lijstje een top 5 komt te staan. maar nu wil ik ook graag de bijhorende text er automatisch bij hebben.. kan iemand me helpen? ik kom er niet meer uit!
groetjes Stimpy
zie voorbeeld:
http://i261.photobucket.com/albums/ii43/Tinuske2008/voorbeeld.jpg

dinsdag 31 maart 2009 @ 22:35:48 #274

henkway

quote:
Op dinsdag 31 maart 2009 22:21 schreef Stimpy2009 het volgende:
Hoi, ik ben bezig met een sheet om stop tijden in kaart te brengen en nu ben ik al wel zover dat in een ander lijstje een top 5 komt te staan. maar nu wil ik ook graag de bijhorende text er automatisch bij hebben.. kan iemand me helpen? ik kom er niet meer uit!
groetjes Stimpy
zie voorbeeld:
http://i261.photobucket.com/albums/ii43/Tinuske2008/voorbeeld.jpg

=E11

fijnstofhype - Methaan warmt de aarde 20 keer zo snel op als CO2. - TV-PC
-Travelmap - Koeien zijn slecht voor milieu -
Melk is FOUT , - / - Kaas en melk zijn erg ongezond

dinsdag 31 maart 2009 @ 22:48:05 #275

qu63

..de tijd drinkt..

quote:
Op dinsdag 31 maart 2009 22:35 schreef henkway het volgende:

[..]

=E11

En wat als er een andere nummer 1 is?

Je kan het doen dmv de functie horiz.zoeken of vert.zoeken (ik gok altijd wel ke ik moet gebruiken, en meestal doen ze niet precies wat ik moet hebben

), alleen is het dan lastig om te doen als er 2 singen zijn met dezelfde waarde..

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

dinsdag 31 maart 2009 @ 23:04:51 #276

DaFan

Jezus Henkway

Nee VERT.ZOEKEN werkt hier niet, dat kan alleen als de op te zoeken waarde LINKS van de te vinden waarde staat. (Dus 20 links, andere rechts). Dit gaat met INDEX en MATCH (ken de NL termen niet). Welke versie heb je?

Morgen op werk kan ik wel even voor je klussen.
Is er een kans dat er 2x dezelfde waarde in de top 5 staat?

dinsdag 31 maart 2009 @ 23:11:46 #277

qu63

..de tijd drinkt..

Je kan toch ook -1 doen? Ik geloof dat ik het zo een keer werkend heb gekregen..

En anders ben ik benieuwd naar je INDEX/MATCH script

Ik doe soms gewoon in rij G (ofzo) =A1, dan kan ik daar mee verder

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

dinsdag 31 maart 2009 @ 23:54:06 #278

Deetch

WTF?

quote:
Op dinsdag 31 maart 2009 23:11 schreef qu63 het volgende:
Je kan toch ook -1 doen? Ik geloof dat ik het zo een keer werkend heb gekregen..

En anders ben ik benieuwd naar je INDEX/MATCH script
Ik doe soms gewoon in rij G (ofzo) =A1, dan kan ik daar mee verder

VLOOKUP met -1 als kolom verwijzing om rechts in de array te zoeken en de waarde links van de gevonden waarde weer te geven? Als dat kan staat hier morgen een youtube linkje waarin ik mijn schoen op eet.

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

dinsdag 31 maart 2009 @ 23:58:55 #279

qu63

..de tijd drinkt..

quote:
Op dinsdag 31 maart 2009 23:54 schreef Deetch het volgende:

[..]

VLOOKUP met -1 als kolom verwijzing om rechts in de array te zoeken en de waarde links van de gevonden waarde weer te geven? Als dat kan staat hier morgen een youtube linkje waarin ik mijn schoen op eet.

*prutsen gaat*

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

woensdag 1 april 2009 @ 08:21:52 #280

DaFan

J29 ofzo is het komt de volgende formule, deze kan je doortrekken naar beneden.

=INDEX($E$10:$E$15,MATCH(Q29,$Q$10:$Q$15,0))

Vertalen kan je zelf, zie OP.

Edit het lijkt erop dat je voor de gehele rechterkolom (de gele zeg maar) je LARGE gebruikt om de top 5 te maken. Verander de 10:15 range in 10:25.

[ Bericht 21% gewijzigd door DaFan op 01-04-2009 08:30:20 ]

woensdag 1 april 2009 @ 08:28:11 #281

DaFan

En nee, -1 werkt niet

Was het maar waar, geeft een stuk makkelijkere formule.
VLOOKUP zoekt simpelweg alleen in de eerste kolom van de table_array die je opgeeft. MATCH niet.

woensdag 1 april 2009 @ 12:33:27 #282

Swennus

Een vraagje:

Ik heb 5 waardes (1 t/m 5) en nou zit aan elk van deze waardes een tekst

mijn vraag is nou:

Hoe kan ik er voor zorgen dat wanneer in cel x "1" staat dan de bijbehorende tekst verschijnt?

vb

A B

1 DA 1

2 DB 2

3 DC 3

4 DD 4

5 DE 5

Hattrick: Atletico Mineiro S.C. (816058)

woensdag 1 april 2009 @ 12:34:44 #283

G-Mart

Hoi,

Ik ben bezig met een spreadsheet dat een overzicht bevat van gegevens van verschillende bedrijven waar ik mee samenwerk. Elk bedrijf is bezig met een verschillend project waar ik graag afbeeldingen van wil laten zien in mijn spreadsheet. Ik zit niet zo te wachten op grote rijen aan afbeeldingen maar wil eigenlijk een knop hebben waarmee je afbeeldingen als pop-up te zien krijgt, idealiter met een mooi kader er omheen (vergelijkbaar met hoe je hier op het forum een YouTube video kunt bekijken).

Iemand enig idee hoe dit te doen (als het uberhaupt al mogelijk is)?

P.S.: Ik gebruik de Engelse versie van Excel 2003

Alvast bedankt!

woensdag 1 april 2009 @ 13:16:22 #284

DaFan

quote:
Op woensdag 1 april 2009 12:33 schreef Swennus het volgende:
Een vraagje:

Ik heb 5 waardes (1 t/m 5) en nou zit aan elk van deze waardes een tekst

mijn vraag is nou:

Hoe kan ik er voor zorgen dat wanneer in cel x "1" staat dan de bijbehorende tekst verschijnt?

vb

A B
1 DA 1
2 DB 2
3 DC 3
4 DD 4
5 DE 5

Waar vul je deze waardes in en waar heb je deze opgeslagen?

woensdag 1 april 2009 @ 13:29:38 #285

DaFan

quote:
Op woensdag 1 april 2009 12:34 schreef G-Mart het volgende:
Hoi,

Ik ben bezig met een spreadsheet dat een overzicht bevat van gegevens van verschillende bedrijven waar ik mee samenwerk. Elk bedrijf is bezig met een verschillend project waar ik graag afbeeldingen van wil laten zien in mijn spreadsheet. Ik zit niet zo te wachten op grote rijen aan afbeeldingen maar wil eigenlijk een knop hebben waarmee je afbeeldingen als pop-up te zien krijgt, idealiter met een mooi kader er omheen (vergelijkbaar met hoe je hier op het forum een YouTube video kunt bekijken).

Iemand enig idee hoe dit te doen (als het uberhaupt al mogelijk is)?

P.S.: Ik gebruik de Engelse versie van Excel 2003

Alvast bedankt!

Ik heb het als volgt opgelost (2003 Engelse versie):

Ik heb een knop toegevoegd en een Userform in Visual Basic.
De knop heet btnBedrijfA en de Userform heet frmPlaatje.

In het Userform heb ik, ter grootte van het volledige Userform (maar dat maakt verder niet uit) een Image toegevoegd (een lege, je kan de bron aanpassen). Deze heb ik imgUserform genoemd.

In de code van de knop heb ik het volgende staan:

1
2
3
4
5
6
7
8
9

Private Sub btnBedrijfA_Click()

With frmPlaatje
    .imgUserform.Picture = LoadPicture("path", 240, 162)
    .Caption = "Bedrijf A"
    .Show
End With

End Sub

Als je nu op de knop klikt verschijnt het Userform met het plaatje wat in "path" staat (zelf aanpassen dus, het liefst op een netwerklocatie waar iedereen bij komt.

Dit zelfde trucje kan je ook doen bij een knop B, knop C etc. Namen zelf aanpassen naar wat je makkelijk en overzichtelijk vindt.

De plaatjes haal ik zelf lokaal weg (sneller, makkelijker) maar je kan daar volgens mij ook een netwerklocatie bij doen. Je kan ook evt deze plaatjes meeleveren in een map bij het bestand. Dan moet je het path dus dynamisch maken, maar als je daar vragen over hebt hoor ik het wel.
Ook kan je ze evt op een apart werkblad zetten, een naam geven, en dan aanroepen. Het blad zelf kan je dan hiden.

Succes.

woensdag 1 april 2009 @ 14:25:02 #286

Swennus

quote:
Op woensdag 1 april 2009 13:16 schreef DaFan het volgende:

[..]

Waar vul je deze waardes in en waar heb je deze opgeslagen?

bedankt voor de snelle reactie maar heb het reeds gevonden!

Maar nu loop ik tegen een ander "probleem"

Hoe kan ik er voor zorgen dat er alleen nog maar in een 2tal cellen iets kan worden gewijzigd en dat men de rest van de cellen niet meer kan selecteren?

[ Bericht 18% gewijzigd door Swennus op 01-04-2009 16:18:37 ]

Hattrick: Atletico Mineiro S.C. (816058)

woensdag 1 april 2009 @ 19:10:53 #287

hoek21

aaaaaaaaaaaaahhhhhhhhhh ik heb iets gedaan denk ik maar ik weet niet wat en weet ook niet hoe ik het weer tergu kan krijgen. Op de een of andere manier kan ik opeens geen formules meer copieren. Als ik knip en plak of sleep dan kopieert hij alleen de waarde maar niet de formule. Hij geeft wel de formule weer in de cel maar houd de waarde van de andere cel. aaaaaaaa wat heb ik gedaan????

Please help!!!

Dank

woensdag 1 april 2009 @ 19:12:50 #288

DaFan

quote:
Op woensdag 1 april 2009 14:25 schreef Swennus het volgende:

[..]

bedankt voor de snelle reactie maar heb het reeds gevonden!

Maar nu loop ik tegen een ander "probleem"

Hoe kan ik er voor zorgen dat er alleen nog maar in een 2tal cellen iets kan worden gewijzigd en dat men de rest van de cellen niet meer kan selecteren?

http://spreadsheets.about(...)/080428_lockcell.htm

woensdag 1 april 2009 @ 21:51:27 #289

Joooo-pi

Do you want a balloon...

quote:
Op woensdag 1 april 2009 19:10 schreef hoek21 het volgende:
aaaaaaaaaaaaahhhhhhhhhh ik heb iets gedaan denk ik maar ik weet niet wat en weet ook niet hoe ik het weer tergu kan krijgen. Op de een of andere manier kan ik opeens geen formules meer copieren. Als ik knip en plak of sleep dan kopieert hij alleen de waarde maar niet de formule. Hij geeft wel de formule weer in de cel maar houd de waarde van de andere cel. aaaaaaaa wat heb ik gedaan????

Please help!!!

Dank

Heb je misschien "automatisch berekenen" uitgezet. Dat staat in "opties" --> "berekenen".

heitieh

donderdag 2 april 2009 @ 12:48:25 #290

G-Mart

Hieronder een afbeelding van m'n spreadsheet:

In de eerste kolom zie je vinkboxjes. In rij 5 en 6 zie je dat ik 'stippeltjes' heb gebruikt voor als ze uitgevinkt staan. Dit doe ik handmatig, maar is er een manier dat Excel ziet dat als ik ze uitvink dat er automatisch stippeltjes verschijnen? (en vice versa)

Ik gebruik de Engelstalige versie van Excel 2003.

Alvast bedankt!

donderdag 2 april 2009 @ 13:02:37 #291

qu63

..de tijd drinkt..

Geen idee of er in Excel 2003 ook automatische opmaak zit (in 2007NL iig), daar moet het mee kunnen!

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

donderdag 2 april 2009 @ 13:07:45 #292

DaFan

Je kan toch een _change event maken voor de boxes?

donderdag 2 april 2009 @ 13:14:36 #293

G-Mart

quote:
Op donderdag 2 april 2009 13:07 schreef DaFan het volgende:
Je kan toch een _change event maken voor de boxes?

Euh, zo goed ben ik niet met Excel :-/

donderdag 2 april 2009 @ 13:17:29 #294

qu63

..de tijd drinkt..

Ik heb nu trouwens zo'n zelfde soort lijst gemaakt, maar dan met Automatische opmaak. Als ik in rij A een x zet wordt ie groen (met groene tekst), zo niet dan is ie rood. Alle datums krijgen een kleur naarmate ze dichter bij komen. Alles wat binnen een week van nu ligt is rood, binnen 2 weken oranje en alles daarna is groen. De kleur veranderd dus iedere keer mee

Iedere persoon heeft ook een eigen kleur (en veranderd automatisch als de naam veranderd) en als er een opdracht klaar is komt de link naar het document!

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]

donderdag 2 april 2009 @ 13:31:09 #295

DaFan

quote:
Op donderdag 2 april 2009 13:14 schreef G-Mart het volgende:

[..]

Euh, zo goed ben ik niet met Excel :-/

Waar heb je die checkboxes vandaan gehaald?
En zou je er evt mee akkoord gaan om het met kruisjes (x) te doen in de cellen ipv boxjes? Scheelt je een hoop werk.

donderdag 2 april 2009 @ 14:53:38 #296

G-Mart

quote:
Op donderdag 2 april 2009 13:31 schreef DaFan het volgende:

[..]

Waar heb je die checkboxes vandaan gehaald?
En zou je er evt mee akkoord gaan om het met kruisjes (x) te doen in de cellen ipv boxjes? Scheelt je een hoop werk.

Ik heb gewoon geGoogled naar een optie om checkboxes toe te voegen. x-jes zijn ook okay, alhoewel ik liever checkboxjes heb.

donderdag 2 april 2009 @ 15:17:23 #297

DaFan

quote:
Op donderdag 2 april 2009 14:53 schreef G-Mart het volgende:

[..]

Ik heb gewoon geGoogled naar een optie om checkboxes toe te voegen. x-jes zijn ook okay, alhoewel ik liever checkboxjes heb.

Hoe heb je het gedaan dan

Via Developer dus?

Ik dacht dat ik wel even tijd zou hebben maar ben nu best druk, damn you work!
Stomme nieuwe telefooncentrale

donderdag 2 april 2009 @ 16:22:55 #298

DaFan

Ok G-mart ik heb het als volgt gedaan, ik heb 4 checkboxes in A1:A4 geplaatst en daar de volgende codes aangehangen (op dubbelklikken in Design mode), of via Alt-F11 naar de VBA omgeving gaan en dan dubbelklikken links op de sheet waarin ze staan:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

If CheckBox1.Value = True Then
    Range("A1").Value = 1
Else
    Range("A1").Value = -1
End If

End Sub

Private Sub CheckBox2_Click()

If CheckBox2.Value = True Then
    Range("A2").Value = 1
Else
    Range("A2").Value = -1
End If

End Sub

Dit zijn er slechts twee maar je kan raden wat er in de events van checkbox 3 en 4 staan, vrij simpel aan te passen.

Daaronder heb ik deze code geplaatst:

1
2
3
4
5
6
7
8
9
10
11
12
13

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1:A4")) Is Nothing Then
    Rij = Target.Row

    If Range("A" & Rij).Value < 0 Then
        Rows(Rij).Interior.ColorIndex = 0
    Else
        Rows(Rij).Interior.ColorIndex = 1
    End If
End If

End Sub

Nu wordt de inhoud van de rij zwart als de checkbox is aangevinkt, anders wordt ie wit :s)

Ik weet niet of je er zelf uit kan komen qua stippeltjes enzo, maar dan hoor ik het wel.

donderdag 2 april 2009 @ 22:52:56 #299

kanovinnie

Wie dit leest is gek!

Excel, Text van cijfers scheiden

Dat is mijn probleem, kan iemand helpen aub?

Op dinsdag 25 augustus 2015 15:48 schreef Toekito het volgende:
de grootste schande van heel FOK! naast Fylax is Kano als mod.

donderdag 2 april 2009 @ 23:06:11 #300

DaFan

In jouw voorbeeld, staat 12.9 in dan in A1 oid? Ik kan makkelijk een macro schrijven dat je na het plakken even op een knopje drukt en voila. Moet ik wel weten in welke kolom het staat (als het altijd in dezelfde kolom komt). Je kan ook krijgen dat je een pop-up box krijgt waarin je moet aangeven waar je de lijst hebt geplakt.

Zeg het maar, ga ik morgen op werk even naar kijken

Edit: Hier verder
[EXCEL] Het grote Excel vragen topic, #12

[ Bericht 12% gewijzigd door DaFan op 02-04-2009 23:25:17 ]

donderdag 2 april 2009 @ 23:16:38 #301

kanovinnie

Wie dit leest is gek!

quote:
Op donderdag 2 april 2009 23:06 schreef DaFan het volgende:
In jouw voorbeeld, staat 12.9 in dan in A1 oid? Ik kan makkelijk een macro schrijven dat je na het plakken even op een knopje drukt en voila. Moet ik wel weten in welke kolom het staat (als het altijd in dezelfde kolom komt). Je kan ook krijgen dat je een pop-up box krijgt waarin je moet aangeven waar je de lijst hebt geplakt.

Zeg het maar, ga ik morgen op werk even naar kijken

Ik heb elke keer andere getallen, maar het staat inderdaad in cel A1, en het kunnen al snel zo'n 50, tot 100 cellen zijn met cijfers/tekst (complexe tekeningen met veel pijpen).

Op dinsdag 25 augustus 2015 15:48 schreef Toekito het volgende:
de grootste schande van heel FOK! naast Fylax is Kano als mod.

Forum Opties
Forumhop:
Hop naar:	(afkorting, bv 'KLB')

» digital corner

» software

» digital corner

» software