abonnement Unibet Coolblue Bitvavo
  zondag 3 mei 2009 @ 18:30:57 #1
62215 qu63
..de tijd drinkt..
pi_68628391
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
[EXCEL] Het grote Excel vragen topic, #11
[EXCEL] Het grote Excel vragen topic, #12
[EXCEL] Het grote Excel vragen topic, #13

Nieuw topic? Haal de OP bij de wiki

[ Bericht 9% gewijzigd door qu63 op 03-05-2009 18:42:42 ]
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_68628535
Zet je nog ff #12 in de wiki?
  zondag 3 mei 2009 @ 18:36:21 #3
62215 qu63
..de tijd drinkt..
pi_68628554
quote:
Op zondag 3 mei 2009 18:35 schreef DaFan het volgende:
Zet je nog ff #12 in de wiki?
goed idee
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  zondag 3 mei 2009 @ 18:37:56 #4
158136 Joooo-pi
Do you want a balloon...
pi_68628621
Mooi plaatje/banner bij de OP zou toch ook niet misstaan...
heitieh
  zondag 3 mei 2009 @ 18:38:44 #5
62215 qu63
..de tijd drinkt..
pi_68628638
quote:
Op zondag 3 mei 2009 18:37 schreef Joooo-pi het volgende:
Mooi plaatje/banner bij de OP zou toch ook niet misstaan...
Ik kan wel een plaatje in Excel maken dmv opmaak e.d.
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  zondag 3 mei 2009 @ 18:48:30 #6
95236 marcb1974
Dakshin Ray
pi_68628943
Hoe ver zijn jullie met visual basic?
stupidity has become as common as common sense was before
pi_68629180
quote:
Op zondag 3 mei 2009 18:37 schreef Joooo-pi het volgende:
Mooi plaatje/banner bij de OP zou toch ook niet misstaan...
Wat had je tegen?
  zondag 3 mei 2009 @ 18:57:38 #8
158136 Joooo-pi
Do you want a balloon...
pi_68629209
quote:
Op zondag 3 mei 2009 18:56 schreef raaavi het volgende:

[..]

Wat had je tegen?
Mijn tegenvallend paintshop talent
heitieh
  zondag 3 mei 2009 @ 18:59:17 #9
158136 Joooo-pi
Do you want a balloon...
pi_68629252
quote:
Op zondag 3 mei 2009 18:48 schreef marcb1974 het volgende:
Hoe ver zijn jullie met visual basic?
Op een schaal van 1 tot 10 euhh...

Nee ff serieus. "We" weten wel wat erover: wat wil je weten?
heitieh
  zondag 3 mei 2009 @ 20:33:35 #10
62215 qu63
..de tijd drinkt..
pi_68632861
quote:
Op zondag 3 mei 2009 18:48 schreef marcb1974 het volgende:
Hoe ver zijn jullie met visual basic?
Niet
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  zondag 3 mei 2009 @ 21:04:43 #11
62215 qu63
..de tijd drinkt..
pi_68633966
Bestand A:
1
2
3
4
5
6
Factuurnummer   Debiteurnummer
9001            1
9003            3
9005            2
9006            1
9007            1


Bestand B:
1
2
3
4
Debiteurnummer   Openstaande facturen
1               xx
2               xx
3               xx


Hoe kan ik nu de openstaande facturen in bestand B automatisch uit bestand A laten pakken? En dat het dan dus kommegescheiden neergezet wordt

Uitkomst moet dus zoiets worden:
1
2
3
4
Debiteurnummer   Openstaande facturen
1               9001, 9006, 9007
2               9005
3               9003


-edit- Het kan natuurlijk ook op 2 tabbladen ipv 2 verschillende documenten. Maakt voor de code niets uit denk ik

[ Bericht 3% gewijzigd door qu63 op 03-05-2009 21:41:51 ]
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_68637784
Gr je stelt wel moeilijk vragen. Het kan wel maar het is smerig moeilijk. Zal morgen ff kijken of ik er op mn werk aantoe kom.
  zondag 3 mei 2009 @ 22:37:55 #13
62215 qu63
..de tijd drinkt..
pi_68637799
quote:
Op zondag 3 mei 2009 22:37 schreef DaFan het volgende:
Gr je stelt wel moeilijk vragen. Het kan wel maar het is smerig moeilijk. Zal morgen ff kijken of ik er op mn werk aantoe kom.
I know, ik zoek altijd naar onmogelijk oplossingen

Alvast bedankt!

Ik betaal je wel een keer een biertje in Almere (we'll meet half-way )
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_68645927
Kan je trouwens niet gewoon Autofilter gebruiken
  maandag 4 mei 2009 @ 09:21:35 #15
62215 qu63
..de tijd drinkt..
pi_68645938
quote:
Op maandag 4 mei 2009 09:20 schreef DaFan het volgende:
Kan je trouwens niet gewoon Autofilter gebruiken
Hoe bedoel je dat?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_68647650
Onder dit:
1
2
3
4
5
6
Factuurnummer   Debiteurnummer
9001            1
9003            3
9005            2
9006            1
9007            1


Selecteren, dan DAta -> Filter -> Autofilter.
Dan kan je met de dropdown in de 2e kolom kiezen voor Debiteur 1 waarna je alle facturen ziet links die daarbij horen. Die kan je dan copy/paste special -> Transpose erachter plakken.

Scheelt een hoop werk op een hele lastige formule :P
  maandag 4 mei 2009 @ 11:18:21 #17
62215 qu63
..de tijd drinkt..
pi_68648957
Maar dat betekend dat ik dan handmatig moet copy-pasten van sheet naar sheet, toch?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_68650022
Hm ik heb het nu zo, ik moet nog even kijken of ik het links naar rechts ipv boven naar beneden kan doen.

A1:A5 zijn de debiteurennummers, B1:B5 zijn de factuurnummers. D1 bevat de op te zoeken debiteur.

Vanaf D3 gaan we dan de factuurnummers onder elkaar zetten met de volgende formule:
1=IF(ROWS(D$3:D3)<=COUNTIF($A$1:$A$5,D$1),INDEX($B$1:$B$5,SMALL(IF($A$1:$A$5=D$1,ROW($B$1:$B$5)-ROW($B$1)+1),ROWS(D$3:D3))),"")

En naar beneden slepen.

edit
Ctrl-Shift-Enter

[ Bericht 13% gewijzigd door DaFan op 04-05-2009 11:52:10 ]
pi_68650442
En van links naar rechts; F2 bevat hier de te zoeken debiteur, G2 en verder bevatten dan de factuurnummers:
1=IF(COLUMNS($G2:G2)<=COUNTIF($A$1:$A$5,$F$2),INDEX($B$1:$B$5,SMALL(IF($A$1:$A$5=$F2,ROW($B$1:$B$5)-ROW($B$1)+1),COLUMNS($G2:G2))),"")

Ctrl-Shift-Enter.

Geen idee hoe je ze kan scheiden met komma's, denk dat dat iets is om met VBA te doen.

Kom je er zo uit?
  maandag 4 mei 2009 @ 12:07:38 #20
62215 qu63
..de tijd drinkt..
pi_68650773
Ik kom d'r niet helemaal (lees: helemaal niet) uit

Kan ik je anders de sheet toesturen?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  maandag 4 mei 2009 @ 12:14:51 #21
183090 Matthew_Star
Holy psionics!
pi_68651013
dit is een handig topik
pi_68651281
Ja kan wel.
Zie pm.
pi_68653172
Gelukt, qu63 heeft mail. Voor de liefhebbers hieronder de volledige formule:

=IF(COLUMNS($B2:B2)<=COUNTIF('Openstaande facturen'!$B$2:$B$4,Blad3!$A2),INDEX('Openstaande facturen'!$A$2:$A$4,SMALL(IF('Openstaande facturen'!$B$2:$B$4=Blad3!$A2,ROW('Openstaande facturen'!$A$2:$A$4)-ROW('Openstaande facturen'!$A$2)+1),COLUMNS($B2:B2))),"")
pi_68653591
ik kan de functie sorteren niet aanroepen vanuit Excel. Volgens mij moet ik dan een extensie aanzetten oid. Ik heb het probleem al eerder gehad maar weet niet meer hoe ik dit moet oplossen. Kan iemand me helpen?
=Sorteren is de functie.
pi_68653842
SORTEREN in Excel met een formule?
Hoe zie je dat voor je?
  maandag 4 mei 2009 @ 13:43:27 #26
62215 qu63
..de tijd drinkt..
pi_68653908
quote:
Op maandag 4 mei 2009 13:18 schreef DaFan het volgende:
Gelukt, qu63 heeft mail. Voor de liefhebbers hieronder de volledige formule:

=IF(COLUMNS($B2:B2)<=COUNTIF('Openstaande facturen'!$B$2:$B$4,Blad3!$A2),INDEX('Openstaande facturen'!$A$2:$A$4,SMALL(IF('Openstaande facturen'!$B$2:$B$4=Blad3!$A2,ROW('Openstaande facturen'!$A$2:$A$4)-ROW('Openstaande facturen'!$A$2)+1),COLUMNS($B2:B2))),"")
Thanks!

Nederlandse versie:
=ALS(KOLOMMEN($B2:B2)<=AANTAL.ALS('Openstaande facturen'!$B$2:$B$4;Blad3!$A2);INDEX('Openstaande facturen'!$A$2:$A$4;KLEINSTE(ALS('Openstaande facturen'!$B$2:$B$4=Blad3!$A2;RIJ('Openstaande facturen'!$A$2:$A$4)-RIJ('Openstaande facturen'!$A$2)+1);KOLOMMEN($B2:B2)));"")
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  maandag 4 mei 2009 @ 13:53:23 #27
62215 qu63
..de tijd drinkt..
pi_68654166
Zit ik die formule een beetje te tweaken/aan te passen werkt ie niet meer!

Was ik vergeten ctrl+shift+enter te doen

Maar hij is nu helemaal naar wens!
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  maandag 4 mei 2009 @ 14:16:12 #28
158136 Joooo-pi
Do you want a balloon...
pi_68654789
quote:
Op maandag 4 mei 2009 13:18 schreef DaFan het volgende:
Gelukt, qu63 heeft mail. Voor de liefhebbers hieronder de volledige formule:

=IF(COLUMNS($B2:B2)<=COUNTIF('Openstaande facturen'!$B$2:$B$4,Blad3!$A2),INDEX('Openstaande facturen'!$A$2:$A$4,SMALL(IF('Openstaande facturen'!$B$2:$B$4=Blad3!$A2,ROW('Openstaande facturen'!$A$2:$A$4)-ROW('Openstaande facturen'!$A$2)+1),COLUMNS($B2:B2))),"")
Ik kijk ook mee , maar het is niet bepaald een formule die je direct snapt . Ik ga em ook niet uitpluizen nu
heitieh
pi_68654869
Ik heb m ook maar een keer gekregen via MrExcel en pas m gewoon aan. Deze vraag komt nogal eens vaker voor

Ik snap m ondertussen wel maar beetje lastig om toe te lichten.
pi_68655031
Jo0Lz
pi_68655214
tvp
pi_68661606
quote:
Op maandag 4 mei 2009 13:31 schreef jakees het volgende:
ik kan de functie sorteren niet aanroepen vanuit Excel. Volgens mij moet ik dan een extensie aanzetten oid. Ik heb het probleem al eerder gehad maar weet niet meer hoe ik dit moet oplossen. Kan iemand me helpen?
=Sorteren is de functie.
Wat wil je precies? Sorteren is een menu optie, geen functie. Of wil je de rangorde bepalen van een getal in een lijst getallen?
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 5 mei 2009 @ 09:29:49 #33
69191 Varr
Hier ben ik, hierzo!!
pi_68682482
Dag, ik hoop dat iemand mij kan helpen. Ik wil de volgende formule gebruiken:=MAX(AB32:AB55) .


De eerst volgende in de rij moet zijn =MAX(Uurdata!AB56:AB79), per 24 dus. Alleen als ik de formule doortrekt doet die automatisch per 1 en wordt het =MAX(Uurdata!AB33:AB56) ipv =MAX(Uurdata!AB56:AB79). Hoe zorg ik dat ik de formule automatisch door kan trekken zodat hij per 24 doet? Handmatig dit doen is geen optie.
  dinsdag 5 mei 2009 @ 09:35:01 #34
62215 qu63
..de tijd drinkt..
pi_68682599
Als het goed is snap Excel het als je er 3 handmatig doet, daarna kan je slepen
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  dinsdag 5 mei 2009 @ 09:37:23 #35
69191 Varr
Hier ben ik, hierzo!!
pi_68682652
Heb ik geprobeerd, als doe ik 10achter elkaar dan doet hij vervolgens alsnog per 1.
pi_68683185
je moet er een kolommetje voor zetten met dan in de eerste cel (bijv. A2) de waarde 32. vervolgens doe je in de cel ernaast de volgende formule:

=MAX(INDIRECT("AB"&C4&":AB"&C4+23))

in de cel onder de waarde 32 zet je =A2+24
vervolgens kopieer je de twee kolommen naar beneden en klaar is Varr
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 5 mei 2009 @ 10:14:52 #37
69191 Varr
Hier ben ik, hierzo!!
pi_68683361
Bedankt alvast, ik heb hem nog niet helemaal goed door, waar staat die C4 voor?
  dinsdag 5 mei 2009 @ 11:45:21 #38
1055 Schanulleke
Een kop vol zaagsel!
pi_68686527
Ik heb een vraagje dat waarschijnlijk heel simpel is. Ik heb in een sheet een aantal kolommen staan die voor het overzicht meestal verborgen zijn. Soms moet ik ze toch even bekijken. Nu doe ik dat altijd door te selecteren, rechtermuisknop, zichtbaar maken.
Is daar een handiger manier voor, als een soort uitklapmenu ofzo?

Ik gebruik 2007 NL overigens.
Life is what you make it.
pi_68686862
quote:
Op dinsdag 5 mei 2009 10:14 schreef Varr het volgende:
Bedankt alvast, ik heb hem nog niet helemaal goed door, waar staat die C4 voor?
iets te snel gekopieerd, bij mij staat het getal 32 in cel C4. Zou in het voorbeeld dus A2 moeten zijn.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_68687755
quote:
Op dinsdag 5 mei 2009 11:45 schreef Schanulleke het volgende:
Ik heb een vraagje dat waarschijnlijk heel simpel is. Ik heb in een sheet een aantal kolommen staan die voor het overzicht meestal verborgen zijn. Soms moet ik ze toch even bekijken. Nu doe ik dat altijd door te selecteren, rechtermuisknop, zichtbaar maken.
Is daar een handiger manier voor, als een soort uitklapmenu ofzo?

Ik gebruik 2007 NL overigens.
Ik zou gewoon twee macro's opnemen, een waarvan je de kolommen opent, en een waarbij je ze weer verbergt. Die kan je dan aan 2 knoppen hangen.
Er is verder geen trucje om ze snel open/dicht te doen afaik.
pi_68688124
quote:
Op dinsdag 5 mei 2009 11:45 schreef Schanulleke het volgende:
Ik heb een vraagje dat waarschijnlijk heel simpel is. Ik heb in een sheet een aantal kolommen staan die voor het overzicht meestal verborgen zijn. Soms moet ik ze toch even bekijken. Nu doe ik dat altijd door te selecteren, rechtermuisknop, zichtbaar maken.
Is daar een handiger manier voor, als een soort uitklapmenu ofzo?

Ik gebruik 2007 NL overigens.
Schrijf een macrootje: ;)
In VB:
1
2
3
4
5
6
7
8
9
Sub Macro1()

If Columns(2).Hidden = True Then
Columns("B:B").EntireColumn.Hidden = False
Else
Columns("B:B").EntireColumn.Hidden = True
End If

End Sub

Waarbij de '2' het kolomnummertje is en B de kolom die verborgen moet worden.
Daarna druk je op Alt+F8.
Zoek de macro op. Één keer klikken erop en dan op opties.
Vervolgens kun je een sneltoets combinatie bedenken.
Bijvoorbeeld CTRL+m.
Druk op OK
Vervolgens het schermpje 'x-en'
Als je nu op CTRL+m drukt verschijnt of verdwijnt het kolommetje.

Suc6
pi_68688226
Nog beter longarm.
  dinsdag 5 mei 2009 @ 14:49:18 #43
69191 Varr
Hier ben ik, hierzo!!
pi_68693135
Via een draaitabel ben ik eruit gekomen, alsnog bedankt.

Volgende vraag, een makkelijke lijkt het.

Ik bereken met =MAX(BX:BX) het maximum uit een kolom. In kolom A staat de datum ernaast. Ik wil deze datum van dit maximum weten via een formule zonder hem zelf eruit te moeten halen.

Ik zoek dus een formule die de cel links van het maximum toont. Wie kan me helpen?
pi_68695868
Is er altijd maar 1 maximum?

=INDEX(AX:AX,MATCH(MAX(BX:BX),BX:BX,0))

Vind alleen de eerste, dus als er twee keer 1 miljard voorkomt, heb je een probleem.
pi_68696556
Anders kan het zo:

In A1:A5 staan je datums, in B1:B5 staan je 'nummers'.
In D1 komt dan:
=IF(COLUMNS($D1:D1)<=COUNTIF($B$1:$B$5,MAX($B$1:$B$5)),INDEX($A$1:$A$5,SMALL(IF($B$1:$B$5=MAX($B$1:$B$5),ROW($A$1:$A$5)-ROW($A$1)+1),COLUMNS($D1:D1))),"")

Bevestigen met Ctrl-Shift-Enter. Deze kan je doortrekken naar rechts en deze zal van meerdere maxima de bijhorende data geven.
  dinsdag 5 mei 2009 @ 16:31:49 #46
69191 Varr
Hier ben ik, hierzo!!
pi_68697007
Hij snapt de komma's om een of andere reden niet, ",MAX" etc....
pi_68697099
Puntkomma's dan. Heb je weer zo'n kromme Nederlands/Engelse mix versie.
  dinsdag 5 mei 2009 @ 16:35:00 #48
62215 qu63
..de tijd drinkt..
pi_68697125
quote:
Op dinsdag 5 mei 2009 16:31 schreef Varr het volgende:
Hij snapt de komma's om een of andere reden niet, ",MAX" etc....
Komt omdat komma's in de Engelse versie gebruikt worden, en puntkomma's in de Nederlandse
COUNTIF kent ie waarschijnlijk ook niet

http://dolf.trieschnigg.nl/excel/excel.html
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_68697156
Moet ie zn versie er maar bij zetten.
  dinsdag 5 mei 2009 @ 16:37:13 #50
69191 Varr
Hier ben ik, hierzo!!
pi_68697223
Puntkomma's ook niet helaas. Het is Microsoft Excel 2003 SP3
pi_68697940
quote:
Op dinsdag 5 mei 2009 16:37 schreef Varr het volgende:
Puntkomma's ook niet helaas. Het is Microsoft Excel 2003 SP3
nederlands of engels?
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_68699438
quote:
Op zondag 3 mei 2009 18:30 schreef qu63 het volgende:

Tip 2: Als je een vraag stelt, zet er dan bij welke versie je hebt en op welke taal hij ingesteld staat!
Echt he
  dinsdag 5 mei 2009 @ 20:18:14 #53
69191 Varr
Hier ben ik, hierzo!!
pi_68704974
Ik heb de Nederlandse versie, zowel puntkomma als punt geprobeerd, om een of andere reden accepteert hij beide niet.
pi_68705815
Je moet wel alles vertalen he...
pi_68719575
quote:
Op dinsdag 5 mei 2009 16:35 schreef qu63 het volgende:

[..]

Komt omdat komma's in de Engelse versie gebruikt worden, en puntkomma's in de Nederlandse
COUNTIF kent ie waarschijnlijk ook niet

http://dolf.trieschnigg.nl/excel/excel.html
=SOM.ALS(A:A;A1;B:B)

Waarbij A:A de kolom is die je wilt vergelijken
De waarde waarmee vergeleken moet worden
Waarbij B:B het optelbereik is
pi_68719889
quote:
Op dinsdag 5 mei 2009 20:18 schreef Varr het volgende:
Ik heb de Nederlandse versie, zowel puntkomma als punt geprobeerd, om een of andere reden accepteert hij beide niet.
Ideetje:
http://members.chello.nl/jvolk/keepitcool/download.html
en download: TranslateIT!
Dit is een invoegtoepassing in Excel. Kun je makkelijk vertalen engels nederlands en vica versa
pi_68719924
quote:
Op woensdag 6 mei 2009 09:28 schreef longarm het volgende:

[..]
Ideetje:
http://members.chello.nl/jvolk/keepitcool/download.html
en download: TranslateIT!
Dit is een invoegtoepassing in Excel. Kun je makkelijk vertalen engels nederlands en vica versa

Je kunt formules vertalen, maar ook gedeeltes vanuit het klembord vertalen van en naar nederlands.
pi_68719945
Ik blijf reageren
Handige addins en zo
  woensdag 6 mei 2009 @ 09:45:44 #59
134944 Hi_flyer
Van alles te melden
pi_68720245
Ik heb onderstaande vrij eenvoudige code en ik zie iets over het hoofd. Als ik een niet-bestaand runnumber invoer, komt er geen messagebox tevoorschijn ;(

In kolom A van sheet5 staan bestaande runnumbers, hierin wordt gezocht en in geval van niet gevonden zou er dus een messagebox tevoorschijn moeten komen. Wat doe ik fout?

1
2
3
4
5
6
7
8
9
Private Sub Load_older_run_Click()
    Dim strRunNumber As String
    
    strRunNumber = InputBox("Input old run number", "Load old run number")
    
    If IsError(Sheet5.range("A:A").Find(strRunNumber)) Then
        MsgBox "Runnumber doesn't exist!"
    End If
End Sub
pi_68720756
moet je bij die find functie niet aangeven dat ie een exacte match vind? Gaat hij nu misschien naar de best lijkende runnumber? Dan krijg je dus geen foutmelding. Code ziet er veder wel goed uit.
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 6 mei 2009 @ 10:13:58 #61
134944 Hi_flyer
Van alles te melden
pi_68720989
Ik heb nog geprobeerd met iserror(...) = false en dan blijkt dat ie inderdaad elke waarde als false ziet. Ik zie alleen geen mogelijkheid om een exact match 'af te dwingen".
pi_68720996
quote:
Op woensdag 6 mei 2009 09:45 schreef Hi_flyer het volgende:
Ik heb onderstaande vrij eenvoudige code en ik zie iets over het hoofd. Als ik een niet-bestaand runnumber invoer, komt er geen messagebox tevoorschijn ;(

In kolom A van sheet5 staan bestaande runnumbers, hierin wordt gezocht en in geval van niet gevonden zou er dus een messagebox tevoorschijn moeten komen. Wat doe ik fout?
[ code verwijderd ]


Misschien:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Load_older_run_Click()
    
    Dim strRunNumber As String
    gevonden = False
    strRunNumber = InputBox("Input old run number", "Load old run number")
    
    i = 1
    Do While Range("A" & i) <> ""
    If Range("A" & i) = strRunNumber Then gevonden = True
    i = i + 1
    Loop
    
    MsgBox (gevonden)
       
End Sub
  woensdag 6 mei 2009 @ 10:25:21 #63
134944 Hi_flyer
Van alles te melden
pi_68721353
Die is denk ik heel gevaarlijk als een niet bestaand runnumber ingevoerd wordt. Dan worden er 65K zoekopdrachten gedaan. Ik herinner me zojuist een site waar een paar mooie voorbeelden van zoekopdrachten op staan die weinig tijd kosten, alleen kan ik die niet terugvinden.
I'll keep you all informed.

Herstel, ik zie dat dat probleem getackeld is.
  woensdag 6 mei 2009 @ 11:45:02 #64
158136 Joooo-pi
Do you want a balloon...
pi_68723972
quote:
Op woensdag 6 mei 2009 09:45 schreef Hi_flyer het volgende:
Ik heb onderstaande vrij eenvoudige code en ik zie iets over het hoofd. Als ik een niet-bestaand runnumber invoer, komt er geen messagebox tevoorschijn

In kolom A van sheet5 staan bestaande runnumbers, hierin wordt gezocht en in geval van niet gevonden zou er dus een messagebox tevoorschijn moeten komen. Wat doe ik fout?
[ code verwijderd ]
Iserror heb ik mijn twijfels over, in de help staat namelijk dat de find "nothing" wordt als de term niet gevonden wordt. Mijn voorstel in jouw script zou zijn:

1If Sheet5.range("A:A").Find(strRunNumber) is nothing then ...


Zo staat het ook in de help bij method "find"



(ben zelf ook met zoiets bezig nu

[ Bericht 8% gewijzigd door Joooo-pi op 06-05-2009 11:50:11 (Je wilde em andersom) ]
heitieh
pi_68732672
Ik probeer een berekening te maken. Hij moet Cel W15 delen door W22, maar geen waarde geven als een van beide niet is ingevuld.

Ik heb nu dit:
1=IF(W15<>"";W15/W22;"")

Maar op deze manier lukt het me niet om er ook voor te zorgen dat de cel leeg blijft als W22 leeg is.

Iemand die mij aan de oplossing kan helpen?
  woensdag 6 mei 2009 @ 16:16:10 #66
158136 Joooo-pi
Do you want a balloon...
pi_68734563
quote:
Op woensdag 6 mei 2009 15:38 schreef Merson het volgende:
Ik probeer een berekening te maken. Hij moet Cel W15 delen door W22, maar geen waarde geven als een van beide niet is ingevuld.

Ik heb nu dit:
[ code verwijderd ]

Maar op deze manier lukt het me niet om er ook voor te zorgen dat de cel leeg blijft als W22 leeg is.

Iemand die mij aan de oplossing kan helpen?
1=IF(AND(W15<>"";W22<>"");W15/W22;"")


heitieh
pi_68734675
quote:
Op woensdag 6 mei 2009 16:16 schreef Joooo-pi het volgende:

[..]
[ code verwijderd ]

Dank je wel!
pi_68762513
Hey,

Ik wil graag het volgende, het is vrij eenvoudig maar ik kom er maar niet uit:

Ik gebruik conditional formatting om A1 van een achtergrondkleur te voorzien.

Vervolgens moeten cellen A2,A3,A4,A5 dezelfde achtergrondkleur krijgen.
pi_68762979
Je kan toch Conditionnal formatting op A2;A5 toepassen met =A1= xxxx
Het hoeft niet per se op dezelfde cel van toepassing te zijn.

De achterliggende gedachte hier is dat als het TRUE is, dat de format wordt toegepast. Daarom staat er een vergelijking A1=xxx zodat hij gaat testen. Je gebruikt dus dezelfde Cond format als in A1.
  donderdag 7 mei 2009 @ 11:11:20 #70
158136 Joooo-pi
Do you want a balloon...
pi_68764812
quote:
Op donderdag 7 mei 2009 10:15 schreef DaFan het volgende:
Je kan toch Conditionnal formatting op A2;A5 toepassen met =A1= xxxx
Het hoeft niet per se op dezelfde cel van toepassing te zijn.

De achterliggende gedachte hier is dat als het TRUE is, dat de format wordt toegepast. Daarom staat er een vergelijking A1=xxx zodat hij gaat testen. Je gebruikt dus dezelfde Cond format als in A1.
Bij de voorwaardelijke opmaak dan "formule" selecteren ipv "celwaarde" ...
heitieh
pi_68764864
quote:
Op donderdag 7 mei 2009 11:11 schreef Joooo-pi het volgende:

[..]

Bij de voorwaardelijke opmaak dan "formule" selecteren ipv "celwaarde" ...


Ben toch wel blij dat jij nu ook hier actief bent
pi_68766433


Even ter visualisatie: A t/m J wordt door Conditional Formatting een kleur gegeven.
Dus wanneer value = D, dan color is geel.
value = E, dan color is geel.

Vervolgens moeten de cijfers die onder de gele cellen staan ook geel worden, dus de 0,1,6 en de 4,4,0
pi_68766809
Hm ik heb nu dit voor de regel van CC:

=VERSCHUIVING(INDIRECT(CEL("Adres"));-3;0)="D"

Maar het werkt soms wel, soms niet. Misschien kan jo-pi hier nog wat mee, ik ben eigenlijk een beetje druk met werk

Edit: Nieuwe laptop gekregen dus even geen Engelse Excel meer
  donderdag 7 mei 2009 @ 12:20:56 #74
158136 Joooo-pi
Do you want a balloon...
pi_68767122
quote:
Op donderdag 7 mei 2009 11:58 schreef Petrulli het volgende:
[ afbeelding ]

Even ter visualisatie: A t/m J wordt door Conditional Formatting een kleur gegeven.
Dus wanneer value = D, dan color is geel.
value = E, dan color is geel.

Vervolgens moeten de cijfers die onder de gele cellen staan ook geel worden, dus de 0,1,6 en de 4,4,0
Hier maak je voor A2,A3,A4,A5 twee voorwaarden:
1. formule : A2="D" geeft opmaak geel
2. formule : A2="E" geeft opmaak geel

en zo ook voor B2, B3, B4, B5 enz, enz.
heitieh
  donderdag 7 mei 2009 @ 12:22:58 #75
158136 Joooo-pi
Do you want a balloon...
pi_68767195
quote:
Op donderdag 7 mei 2009 12:11 schreef DaFan het volgende:
Hm ik heb nu dit voor de regel van CC:

=VERSCHUIVING(INDIRECT(CEL("Adres"));-3;0)="D"

Maar het werkt soms wel, soms niet. Misschien kan jo-pi hier nog wat mee, ik ben eigenlijk een beetje druk met werk

Edit: Nieuwe laptop gekregen dus even geen Engelse Excel meer
Welke vraag is dat?
heitieh
pi_68768602
Zelfde als jij beantwoord, maar ik wou voorkomen dat je voor elke rij een Cond format moet maken.
  donderdag 7 mei 2009 @ 13:48:26 #77
69191 Varr
Hier ben ik, hierzo!!
pi_68770149
Bedankt voor de voorgaande hulp, de formule is gelukt!

Nu het volgende probleem. Ik wil het volgende berekenen.

A B
1tijd waarde

Ik wil dat de formule kijhet maximum berekent van alle 01:00 in A1 t/m A zoveel. Dus hij kijkt in A of het 01:00 is, en uit al deze 01:00 pakt hij de hoogste waarde uit B.

Ik heb het via een MAX.ALS formule geprobeerd maar het lukt me niet...
pi_68770860
=VERT.ZOEKEN(MAX(A:A);B:B;0) ?

Als hij geen A:A of B:B pakt dan gebruik je 1 t/m 65536.
  donderdag 7 mei 2009 @ 18:40:41 #79
158136 Joooo-pi
Do you want a balloon...
pi_68780847
quote:
Op donderdag 7 mei 2009 13:48 schreef Varr het volgende:
Bedankt voor de voorgaande hulp, de formule is gelukt!

Nu het volgende probleem. Ik wil het volgende berekenen.

A B
1tijd waarde

Ik wil dat de formule kijhet maximum berekent van alle 01:00 in A1 t/m A zoveel. Dus hij kijkt in A of het 01:00 is, en uit al deze 01:00 pakt hij de hoogste waarde uit B.

Ik heb het via een MAX.ALS formule geprobeerd maar het lukt me niet...
Je wil het maximum uit B waarbij in A 01:00 staat? Zonder macro zou ik het zo niet weten, maar je kan wel de autofilter gebruiken: filter A op 01:00 en filter B op aflopend.
heitieh
pi_68881085
Kan ik via Word een link maken die automatisch naar een excelfile gaat op de juiste locatie?
  zondag 10 mei 2009 @ 19:41:24 #81
158136 Joooo-pi
Do you want a balloon...
pi_68881158
quote:
Op zondag 10 mei 2009 19:38 schreef devuser_250 het volgende:
Kan ik via Word een link maken die automatisch naar een excelfile gaat op de juiste locatie?
Dit is het Excel topic, maargoed...

Volgens mij kun je gewoon een hyperlink naar een lokaal bestand maken...
heitieh
  dinsdag 12 mei 2009 @ 09:09:21 #82
84430 kanovinnie
Wie dit leest is gek!
pi_68929376
hhhhhhoe kan ik vanuit het ene tabblad gegevens in het volgende tabblad gooien? het gaat om 1 cel waar het een optelling instaat van dat tabblad.
Op dinsdag 25 augustus 2015 15:48 schreef Toekito het volgende:
de grootste schande van heel FOK! naast Fylax is Kano als mod.
  dinsdag 12 mei 2009 @ 09:15:38 #83
107418 wdn
Elfen lied O+
pi_68929524
quote:
Op dinsdag 12 mei 2009 09:09 schreef kanovinnie het volgende:
hhhhhhoe kan ik vanuit het ene tabblad gegevens in het volgende tabblad gooien? het gaat om 1 cel waar het een optelling instaat van dat tabblad.
Door in een cel de naam van het blad op te nemen voor de variabele.

Dus in blad 3 cel a1:
=blad1!A1
wordt A1 uit blad 1 overgenomen naar A1 in blad 3.
Kan ook met tellingen:
=SOM(A1:A10)
telt het huidige blad.
=SOM(blad1!A1:blad1!A10)
telt blad 1 A1 t/m A10
Beatus vir qui suffert tentationem.
PSN Rinzewind en Cadsuana Melaidhrin
Stellar Blade *O* Sea of Stars *O* Trails Daybreak *O*
  dinsdag 12 mei 2009 @ 09:25:13 #84
84430 kanovinnie
Wie dit leest is gek!
pi_68929750
ah, dat is eigenlijk best simpel. Ik ga het even proberen.
Op dinsdag 25 augustus 2015 15:48 schreef Toekito het volgende:
de grootste schande van heel FOK! naast Fylax is Kano als mod.
  dinsdag 12 mei 2009 @ 09:26:32 #85
62215 qu63
..de tijd drinkt..
pi_68929785
quote:
Op dinsdag 12 mei 2009 09:25 schreef kanovinnie het volgende:
ah, dat is eigenlijk best simpel. Ik ga het even proberen.
Je kan het ook doen door een "=" te tikken, en daarna de gewenste cel(len) te selecteren.
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  dinsdag 12 mei 2009 @ 09:27:43 #86
84430 kanovinnie
Wie dit leest is gek!
pi_68929819
Hij wil waarden bijwerken, en opent het venster wat je krijgt als je een bestand opent. Wat doe ik fout?
Op dinsdag 25 augustus 2015 15:48 schreef Toekito het volgende:
de grootste schande van heel FOK! naast Fylax is Kano als mod.
  dinsdag 12 mei 2009 @ 09:29:09 #87
84430 kanovinnie
Wie dit leest is gek!
pi_68929858
Ah de fout zat hem in geen ' en ' plaatsen, het moet 'blad1'!A1 zijn

Bedankt
Op dinsdag 25 augustus 2015 15:48 schreef Toekito het volgende:
de grootste schande van heel FOK! naast Fylax is Kano als mod.
  dinsdag 12 mei 2009 @ 09:37:34 #88
107418 wdn
Elfen lied O+
pi_68930102
Die ' zijn niet noodzakelijk toch(!?)
Ff testen.

EDIT:

dit werkt bij mij:
=SOM(Blad1!A1:Blad1!A10)
(staat in a1 blad 2)
Beatus vir qui suffert tentationem.
PSN Rinzewind en Cadsuana Melaidhrin
Stellar Blade *O* Sea of Stars *O* Trails Daybreak *O*
  vrijdag 15 mei 2009 @ 15:41:49 #89
14337 BierKoning
Bier 4 Ever!!
pi_69059114
Oke, ik heb een leuke (ik zoek me rot op internet, maar kan niks vinden)

Ik heb (via data validation) drie kolommen met cellen, met elk een dropdown menu. In dat dropdown menu kan men kiezen tussen percentages van 0 tm 100% met een stapgrootte 10%.

Nu zou ik graag willen zien dat de som van de drie cellen op een rij, niet gelijk is aan 100%. Dit bv door het rood kleuren van de cellen. Eventueel samen met een foutmelding.

Excel moet dus (waarschijnlijk via een macro) 'toetsen' of de som gelijk is aan 1(00).

Dit kan ongetwijfeld, alleen weet iemand hoe?
pi_69060932
dus alle drie de keuzes moeten rood worden als de som geen 100% is?

selecteer de eerste cel met je percentage (in mijn voorbeeld B1, de andere percentages staan dan in C1, D1 tm D1)
ga in het menu Format naar Conditional Formatting
verander de keuze "Cell Value Is" in "Formula is"
zet in de invulbox de volgende formule: =SUM($B1:$D1)<>100
klik op de knop format en kies dan de format die je wilt hebben als de som van de percentages niet 100 is
kies daarna OK
vervolgens deze cel met layout kopieren en plakken
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_69069954
Excel vraag:

Ik heb een lange lijst met gegevens. Hiervoor moet ik de hele pagina naar beneden scrollen.
Op mijn vorige werk hadden we daar een mooi scrollmenu voor: 10 regels, wilde je meer gegevens invoeren dan kon je in dat schermpje scrollen en ging niet de héle pagina naar beneden.

Iemand een idee wat ik bedoel en hoe je dat maakt?
  vrijdag 15 mei 2009 @ 21:14:20 #92
95236 marcb1974
Dakshin Ray
pi_69070042
Venster -> Splitsen
stupidity has become as common as common sense was before
pi_69070066
Ik denk dat je bedoelt Freeze Panes:
Selecteer 2e regel, Windows (of View) > Freeze panes.

Dan zet je de 1ste regel vast en scrollt ie niet mee.
  vrijdag 15 mei 2009 @ 21:17:54 #94
107418 wdn
Elfen lied O+
pi_69070172
Dat klinkt als "Venster Titels blokkeren" of "window - Freeze panes" (engelse versie).
Dan blijven de bovenste paar regels staan terwijl de rest gebruikt kan worden om te scrollen (normaal betreft dit titels maar dat kan voor meer regels).
Beatus vir qui suffert tentationem.
PSN Rinzewind en Cadsuana Melaidhrin
Stellar Blade *O* Sea of Stars *O* Trails Daybreak *O*
pi_69072775
quote:
Op zondag 10 mei 2009 19:41 schreef Joooo-pi het volgende:

[..]

Dit is het Excel topic, maargoed...

Volgens mij kun je gewoon een hyperlink naar een lokaal bestand maken...
Ik heb regelmatig in dossiers hyperlinks naar andere Excel werkbladen, alleen soms verwijs ik meerdere keren naar hetzelfde bestand, maar dan wil ik eigenlijk gelijk naar het goede gedeelte verwijzen. Bijvoorbeeld bij de eerste hyperlink wil ik naar ces D160 verwijzen en bij de andere naar B3532, zodat de beoordelaar/gebruiker gelijk op de goede plek zit. Is het mogelijk om een code met cel achter de hyperlink te zetten?
  zaterdag 16 mei 2009 @ 10:21:08 #96
158136 Joooo-pi
Do you want a balloon...
pi_69080876
quote:
Op vrijdag 15 mei 2009 22:33 schreef InnocentFR het volgende:

[..]

Ik heb regelmatig in dossiers hyperlinks naar andere Excel werkbladen, alleen soms verwijs ik meerdere keren naar hetzelfde bestand, maar dan wil ik eigenlijk gelijk naar het goede gedeelte verwijzen. Bijvoorbeeld bij de eerste hyperlink wil ik naar ces D160 verwijzen en bij de andere naar B3532, zodat de beoordelaar/gebruiker gelijk op de goede plek zit. Is het mogelijk om een code met cel achter de hyperlink te zetten?
Ik denk het wel kan, want in word kun je ook macro 's schrijven. Als je dan via een shell excel start. In zo'n shell start kun je, denk ik, een macro in excel aanroepen. Andersom (van excel naar word) kan dat namelijk ook.

Ziet er allemaal niet geweldig simpel uit, maar op mijn werk heb ik zo'n scriptje liggen (van excel naar word). Als je er belang bij hebt, post ik em wel.

edit: Dit lijkt me een dead-end...
Misschien dat het anders kan, maar ik weet het ff niet.

[ Bericht 8% gewijzigd door Joooo-pi op 16-05-2009 14:10:00 ]
heitieh
pi_69086301
quote:
Op zaterdag 16 mei 2009 10:21 schreef Joooo-pi het volgende:

[..]

Ik denk het wel kan, want in word kun je ook macro 's schrijven. Als je dan via een shell excel start. In zo'n shell start kun je, denk ik, een macro in excel aanroepen. Andersom (van excel naar word) kan dat namelijk ook.

Ziet er allemaal niet geweldig simpel uit, maar op mijn werk heb ik zo'n scriptje liggen (van excel naar word). Als je er belang bij hebt, post ik em wel.

edit: Dit lijkt me een dead-end...
Misschien dat het anders kan, maar ik weet het ff niet.
Sorry, ik heb niet dezelfde plannen als de originele vraag van iemand anders. Bij mij betreft het gewoon van excel naar een ander excel bestandje.
  zaterdag 16 mei 2009 @ 16:32:21 #98
15080 static
03.09.2006 - 11:35
pi_69089366
Ik maak erg veel gebruik van Pivot-tables en de daarbijbehorende grafieken. Nu wil ik een extra range aan zo'n grafiek toevoegen, maar dat kan blijkbaar niet (het knopje 'Add' bij 'Select data source' is grijs).

Is er een andere mogelijkheid om dit te doen, behalve de hele zwik aan data naar een andere tab te kopieeren?
Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
  zaterdag 16 mei 2009 @ 16:41:35 #99
158136 Joooo-pi
Do you want a balloon...
pi_69089643
quote:
Op zaterdag 16 mei 2009 14:17 schreef InnocentFR het volgende:

[..]

Sorry, ik heb niet dezelfde plannen als de originele vraag van iemand anders. Bij mij betreft het gewoon van excel naar een ander excel bestandje.
Als je beide excelbestanden open hebt, ga je in een cell staan. Typ = en ga met de muis naar de cel waar je naar wil verwijzen. Vervolgens Enter.

Je krijgt dan zoiets:
=[bestandsnaam]Blad1!$A$1

Succes
heitieh
pi_69090667
quote:
Op zaterdag 16 mei 2009 16:41 schreef Joooo-pi het volgende:

[..]

Als je beide excelbestanden open hebt, ga je in een cell staan. Typ = en ga met de muis naar de cel waar je naar wil verwijzen. Vervolgens Enter.

Je krijgt dan zoiets:
=[bestandsnaam]Blad1!$A$1

Succes
Ja dat wist ik wel , maar ik wil een hyperlink maken. De waarde hoef ik niet vanaf het andere werkblad te maken, maar ik wil wel van het bedrag een hyperlink maken naar de berekeningsgegevens in een ander bestand.
abonnement Unibet Coolblue Bitvavo
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')