[Excel] Het grote Excel vragen topic #32

Index

» digital corner

» software

actieve topics nieuwe topics
abonnement Unibet Coolblue
pi_110988530


Welkom bij “Het grote Excel vragentopic” waar je terecht kan met vragen over Excel.

In dit topic is het de bedoeling dat we gericht vragen stellen en antwoorden geven op de gestelde vragen. Om alles zo goed mogelijk te laten verlopen zijn er een aantal regels.

Regels
1. Als je een vraag stelt, zet er dan bij welke versie van Excel je hebt en op welke taal hij ingesteld staat.
2. Zet macrocode tussen [ code ] tags
3. Als het “pseudo-code” is, vermeldt dit dan duidelijk
4. Er bestaan geen domme vragen, wel domme antwoorden. Als jouw antwoord niet gaat bijdragen, geef het antwoord dan niet.
5. Dit topic is geen “code-FEBO” waar je half opgewarmde code uit de muur trekt, het is de bedoeling dat je er zelf iets van leert.

Definities
Functie Een interne functie die bij Excel is geleverd.
UDF Een “user definded function”, een zelfgebouwde functie
Macro Een stuk code die opdrachten uitvoert, gebouwd in (meestal) de VBA editor
Add-In Een Excel workbook met VBA-code (of C#, C) die als .xla (of .xll) is opgeslagen, deze is als vaste plug-in in Excel te plaatsen.
Workbook Het excelbestand
Sheet of Worksheet Het tabblad
Form, Formulier, Userform Een Dialoogvenster in VBA gebouwd

Tips & Links
De help functie van excel of visual basic voor excel kan je een eind op weg helpen. (F1)

Het workbook met het FOK!-menu zoals in de banner weergegeven is hier te vinden. Dit menu is naar wens aan te passen. De icoontjes in het menu zijn hier allemaal weergegeven. In dit workbook zijn drie macro's aanwezig: Een printertool waarmee je uit meerder workbooks sheets kan selecteren voo afdrukken, een power replace die termen kan wijzigen in meerdere workbooks tegelijk en een formule vertaler, de formule in de actieve cell wordt in het engels weergegeven, je kan ook een engelse formule invoeren die dan in de actieve cell in de geldende taal wordt geplaatst. De UDF is naar aanleiding van een vraag in topic #29. De functie kan worden aangeroepen door in een cel =FOK() te typen en dan op de Fx te klikken voor uitleg over de variabelen.

De VBA editor bereik je door ALT+F11 in te drukken. Vanaf Excel 2007 is de VBA editor lastiger te vinden. Op deze site wordt uitgelegd hoe je de editor kan activeren.

De interne functies zijn afhankelijk van welke taal jouw Excel draait. Op deze en deze site kun je de formules in verschillende talen vertalen.

De meer uitgebreide macro's kunnen traag worden, ook kan het scherm flikkeren als gevolg van veel "select" acties. Deels kun je dit ondervangen door zo veel mogelijk select acties te vervangen door directe verwijzingen naar cells en deels door een macro-optimalisatie door te voeren. In de onderstaande code is een routine voor macro-optimalisatie en een routine om de optimalisatie weer uit te zetten weergegeven. In de voorbeeld sheet is een uitgebreide versie van MOA en MOU opgenomen.

SPOILER
Om spoilers te kunnen lezen moet je zijn ingelogd. Je moet je daarvoor eerst gratis Registreren. Ook kun je spoilers niet lezen als je een ban hebt.
Bij macro's die een bepaalde, merkbare, tijd nodig hebben om hun werk te doen is het van belang de gebruiker een idee te geven van wat er gebeurt, zeker met macro-optimalisatie aan kan het lijken alsof Excel is vastgelopen. Je kan bijvoorbeeld de statusbar een waarde geven, met eventueel een percentage van de reeds uitgevoerde code.

SPOILER
Om spoilers te kunnen lezen moet je zijn ingelogd. Je moet je daarvoor eerst gratis Registreren. Ook kun je spoilers niet lezen als je een ban hebt.
Mooi, grappig en cool
Een uitgebreide site met nuttige en minder nuttige excelsheetjes. Van kekke grafieken om je manager of leraar te betoveren via oscillogrammen en simulatoren tot pong voor als het weer een typische vrijdagmiddag is: Excelunusual

Verder
Alle vorige topics zijn hier terug te vinden.

Nieuw topic? Haal de OP uit de wiki

[ Bericht 1% gewijzigd door Deetch op 01-05-2012 12:59:37 ]
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 1 mei 2012 @ 11:46:43 #2
62215 qu63
..de tijd drinkt..
pi_110990446
quote:
3s.gif Op dinsdag 1 mei 2012 10:22 schreef Deetch het volgende:
coole website die excelunusual. Ik heb zelf al een poosje een excelsheet met allemaal thermometer grafieken, ook leuk voor managementplaatjes.
Dan ga ik die maar eens checken! Het wordt weer eens tijd voor een leuk maar volkomen nutteloos Excel-sheetje :P

-edit- In de categorie zinloos maar cool, een 3D Flight Simulator! :D http://excelunusual.com/a(...)lator-video-preview/

Of Pong! WTF! http://excelunusual.com/a(...)-2003-video-preview/
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  dinsdag 1 mei 2012 @ 11:53:51 #3
62215 qu63
..de tijd drinkt..
pi_110990719
WTF! Dat Excelunusual.com is echt gaaf! _O-
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_110992484
mooi om de komkommertijd mee te vullen
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 1 mei 2012 @ 13:24:08 #5
138547 VASND
Happen naar het baasje
pi_110993585
ff een vraagje.

Ik heb een lijst uitslagen van een studentensportevenement in deze vorm:

1
2
3
4
5		Groningen 1  10 punten
Nijmegen 1    8 punten
Eindhoven 2   6 punten 
Groningen 2   4 punten
Amsterdam 1   2 punten

En nu wil ik er voor zorgen dat alléén de hoogst gerankte teams per stad punten krijgen, maar ze moeten wel de punten van degenen onder hun 'weg kunnen pakken'. (dus plaats 4 krijgt in dit voorbeeld geen punten maar zorgt er wel voor dat 5 er maar 2 heeft). Hoe doe ik dit het makkelijkste?
Uiteindelijk heb ik een stuk of 10 uitslagenlijsten waarvan de punten opgeteld moeten worden per stad tot een eindklassement.
-|||---ᕙ(⇀‸↼‶)ᕗ---|||-
[b]Op woensdag 28 juli 2010 23:05 schreef Dromenvangertje het volgende:[/b]
het zou mij een eer zijn om alles voor u te doen wat uw hartje begeert.
pi_110995819
Alleen het hoogst geplaatste team van een stad krijgt dus punten. Dat is dan toch niet eerlijk als je met je groningen 2 team 2x boven groningen 1 komt dan ben je dus als groningen 1 in hte nadeel. of is er ook een team ranking?

Ik zou in ieder geval overald de "punten" weglaten zodat je alleen cijfers hebt.

Kolom A1 en verder, teamnamen incl volgnummer
Kolom B score (aflopend gesorteerd)
Nieuwe kolom C: geschoonde namen =LEFT(A1,LEN(A1)-2)
Nieuwe kolom D, geschoonde punten
Cel D1: =B1
Cel D2 en verder =IF(ISERROR(VLOOKUP(C2,$C$1:C1,1,FALSE)),B2,0)

Optellen per stad:
=SUMIF(C1:C5,"groningen",D1:D5)
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 1 mei 2012 @ 15:37:02 #7
138547 VASND
Happen naar het baasje
pi_110998393
quote:
3s.gif Op dinsdag 1 mei 2012 14:34 schreef Deetch het volgende:
Alleen het hoogst geplaatste team van een stad krijgt dus punten. Dat is dan toch niet eerlijk als je met je groningen 2 team 2x boven groningen 1 komt dan ben je dus als groningen 1 in hte nadeel. of is er ook een team ranking?

Ik zou in ieder geval overald de "punten" weglaten zodat je alleen cijfers hebt.

Kolom A1 en verder, teamnamen incl volgnummer
Kolom B score (aflopend gesorteerd)
Nieuwe kolom C: geschoonde namen =LEFT(A1,LEN(A1)-2)
Nieuwe kolom D, geschoonde punten
Cel D1: =B1
Cel D2 en verder =IF(ISERROR(VLOOKUP(C2,$C$1:C1,1,FALSE)),B2,0)

Optellen per stad:
=SUMIF(C1:C5,"groningen",D1:D5)
Top!
In de praktijk komen deelnemers per stad, onderverdeeld in verschillende teams. Ze werken dus naar een overwinning voor hun stad toe, niet per sé individueel. (voor de beeldvorming, het gaat hier over 11 steden).
Om de grootte van de afvaardiging (soms verschillen van 200 vs 50) minder invloedrijk te maken is er voor deze methode gekozen.

Zeer bedankt, hier kan ik weer even mee verder!
-|||---ᕙ(⇀‸↼‶)ᕗ---|||-
[b]Op woensdag 28 juli 2010 23:05 schreef Dromenvangertje het volgende:[/b]
het zou mij een eer zijn om alles voor u te doen wat uw hartje begeert.
  dinsdag 1 mei 2012 @ 15:38:35 #8
373015 Erkannn
IkBenZoVrolijk
pi_110998461
quote:
10s.gif Op dinsdag 1 mei 2012 11:53 schreef qu63 het volgende:
WTF! Dat Excelunusual.com is echt gaaf! _O-
Lachen he :P
"Gravitation is not responsible for people falling in love."
pi_111027449
quote:
14s.gif Op dinsdag 1 mei 2012 15:37 schreef VASND het volgende:

[..]

Top!
In de praktijk komen deelnemers per stad, onderverdeeld in verschillende teams. Ze werken dus naar een overwinning voor hun stad toe, niet per sé individueel. (voor de beeldvorming, het gaat hier over 11 steden).
Om de grootte van de afvaardiging (soms verschillen van 200 vs 50) minder invloedrijk te maken is er voor deze methode gekozen.

Zeer bedankt, hier kan ik weer even mee verder!
Oh ja, nog even een opmerking voor de functie van de geschoonde namen. Dit gaat dus alleen goed als de teamnamen minus de laatste 2 tekens alleen voor de zelfde stad hetzelfde zijn.
Dus "groningen 1" en "groningen 2" gaat goed maar "amsterdam" en "amsterdom" gaat dus mis omdat de geschoonde naam dan in beide gevallen "amsterd" is
Ook "Utrecht 1" en "Utrecht 21" gaat mis omdat de geschoonde namen dan "Utrecht" en "Utrecht " (met spatie) wordt. Dus als je teams hebt met een volgnummer >9 dan moet je =LEFT(A1,LEN(A1)-3) 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
  woensdag 2 mei 2012 @ 08:50:04 #10
62215 qu63
..de tijd drinkt..
pi_111027920
quote:
3s.gif Op woensdag 2 mei 2012 08:15 schreef Deetch het volgende:

[..]

Oh ja, nog even een opmerking voor de functie van de geschoonde namen. Dit gaat dus alleen goed als de teamnamen minus de laatste 2 tekens alleen voor de zelfde stad hetzelfde zijn.
Dus "groningen 1" en "groningen 2" gaat goed maar "amsterdam" en "amsterdom" gaat dus mis omdat de geschoonde naam dan in beide gevallen "amsterd" is
Ook "Utrecht 1" en "Utrecht 21" gaat mis omdat de geschoonde namen dan "Utrecht" en "Utrecht " (met spatie) wordt. Dus als je teams hebt met een volgnummer >9 dan moet je =LEFT(A1,LEN(A1)-3) doen.
Kan je dan niet beter op zoek naar de laatste spatie en vanaf daar afkappen?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_111028332
quote:
0s.gif Op woensdag 2 mei 2012 08:50 schreef qu63 het volgende:

[..]

Kan je dan niet beter op zoek naar de laatste spatie en vanaf daar afkappen?
Dat is natuurlijk veel beter: =LEFT(A1,FIND(" ",A1)-1)

Dat gaat alleen mis dan met Den Bosch en Den Haag want dat wordt allebei "Den"
en met teams zonder spatie.

Dit is nog beter dan: =IFERROR(LEFT(A1,FIND(" ",A1)-1),A1)
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 2 mei 2012 @ 12:22:40 #12
62215 qu63
..de tijd drinkt..
pi_111033976
quote:
3s.gif Op woensdag 2 mei 2012 09:13 schreef Deetch het volgende:

[..]

Dat is natuurlijk veel beter: =LEFT(A1,FIND(" ",A1)-1)

Dat gaat alleen mis dan met Den Bosch en Den Haag want dat wordt allebei "Den"
en met teams zonder spatie.
Vandaar dat ik zei laatste spatie ;), als het tenminste altijd PLAATSNAAM SPATIE CIJFER is..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_111034770
Maar hoe doe je de laatste spatie vinden dan? Kun je met find ook vanaf rechts zoeken?
Al googelend kom ik wat leuke shizzle tegen.
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_111034878
positie van laatste spatie vinden:
=FIND("|",SUBSTITUTE(A1," ","|",LEN(A1)-LEN(SUBSTITUTE(A1," ",""))))

laatste woord in een tekststring:
=RIGHT(A1,LEN(A1)-FIND("|",SUBSTITUTE(A1," ","|",LEN(A1)-LEN(SUBSTITUTE(A1," ","")))))

alle tekst voor de laatste spatie:
=LEFT(A1,FIND("|",SUBSTITUTE(A1," ","|",LEN(A1)-LEN(SUBSTITUTE(A1," ",""))))+1)

Bron: http://stackoverflow.com/(...)el-without-using-vba
Hierin wordt ook uitgelegd hoe je om moet gaan met bijzondere gevallen (geen spatie, laatste teken is een spatie 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
pi_111034917
en een hendig sjieke UDF om een tekstring om te draaien:

1
2
3
4
5
6
7
8
9
10
11
12
13		Function strReverse(text) As String
'
' Returns its argument, reversed
' J. Walkenbach
'
Dim TextLen As Integer
Dim i As Integer

TextLen = Len(text)
For i = TextLen To 1 Step -1
strReverse = strReverse & Mid(text, i, 1)
Next i
End Function
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_111054508
quote:
3s.gif Op woensdag 2 mei 2012 12:50 schreef Deetch het volgende:
positie van laatste spatie vinden:
=FIND("|",SUBSTITUTE(A1," ","|",LEN(A1)-LEN(SUBSTITUTE(A1," ",""))))

laatste woord in een tekststring:
=RIGHT(A1,LEN(A1)-FIND("|",SUBSTITUTE(A1," ","|",LEN(A1)-LEN(SUBSTITUTE(A1," ","")))))

alle tekst voor de laatste spatie:
=LEFT(A1,FIND("|",SUBSTITUTE(A1," ","|",LEN(A1)-LEN(SUBSTITUTE(A1," ",""))))+1)

Bron: http://stackoverflow.com/(...)el-without-using-vba
Hierin wordt ook uitgelegd hoe je om moet gaan met bijzondere gevallen (geen spatie, laatste teken is een spatie etc)
Maar dan elke , moet een ; worden.

=RIGHT(A1;LEN(A1)-FIND("|";SUBSTITUTE(A1;" ";"|";LEN(A1)-LEN(SUBSTITUTE(A1;" ";"")))))
  woensdag 2 mei 2012 @ 20:45:19 #17
62215 qu63
..de tijd drinkt..
pi_111055932
quote:
0s.gif Op woensdag 2 mei 2012 20:19 schreef McGilles het volgende:

[..]

Maar dan elke , moet een ; worden.

=RIGHT(A1;LEN(A1)-FIND("|";SUBSTITUTE(A1;" ";"|";LEN(A1)-LEN(SUBSTITUTE(A1;" ";"")))))
Dan moet je alles vertalen right=rechts, etc ;)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  donderdag 3 mei 2012 @ 14:25:20 #18
62215 qu63
..de tijd drinkt..
pi_111084493
Hier zitten ook wel wat nuttige tips tussen: http://www.automateexcel.com/
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_111089069
quote:
0s.gif Op woensdag 2 mei 2012 20:19 schreef McGilles het volgende:

[..]

Maar dan elke , moet een ; worden.

=RIGHT(A1;LEN(A1)-FIND("|";SUBSTITUTE(A1;" ";"|";LEN(A1)-LEN(SUBSTITUTE(A1;" ";"")))))
Tja dat verschilt per taalversie en windows instelling.

Windows instelling: lijstscheidingsteken of list seperator kan dus een ; of , zijn

Office instelling: taal NL of EN: nederlandse functienamen of engelse

Meestal heb je de combinatie ; met NL functie namen of , met EN functie namen
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 3 mei 2012 @ 16:29:01 #20
138547 VASND
Happen naar het baasje
pi_111090034
Haha helden, ik had idd één teamnummer 10.
Omdat het maar 1 team was heb ik dit opgelost door de spatie tussen team en teamnummer weg te halen.
Het is gelukt, bedankt!
-|||---ᕙ(⇀‸↼‶)ᕗ---|||-
[b]Op woensdag 28 juli 2010 23:05 schreef Dromenvangertje het volgende:[/b]
het zou mij een eer zijn om alles voor u te doen wat uw hartje begeert.
pi_111094066
Ik werk hier met de Engelse versie van Excel 2000. Hierin probeer ik een formule te vinden die in een tabel van H3 tot J123 de eerste rij zoekt waarin een andere waarde dan 0 voorkomt. Van die rij moet dan de waarde uit kolom G worden gegeven.

Ik zat zelf al te denken aan een vlookup voor kolom H, I en J, maar dan zou ik de waarde van een negatieve kolom in vlookup nodig hebben en dat werkt niet. Iemand een idee hoe het wel zou kunnen?
  donderdag 3 mei 2012 @ 18:08:01 #22
62215 qu63
..de tijd drinkt..
pi_111094414
quote:
0s.gif Op donderdag 3 mei 2012 17:58 schreef _superboer_ het volgende:
Ik werk hier met de Engelse versie van Excel 2000. Hierin probeer ik een formule te vinden die in een tabel van H3 tot J123 de eerste rij zoekt waarin een andere waarde dan 0 voorkomt. Van die rij moet dan de waarde uit kolom G worden gegeven.
Bedoel je niet de eerste kolom?
quote:
Ik zat zelf al te denken aan een vlookup voor kolom H, I en J, maar dan zou ik de waarde van een negatieve kolom in vlookup nodig hebben en dat werkt niet. Iemand een idee hoe het wel zou kunnen?
In kolom K =G1 etc zetten en eventueel verbergen :)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_111099230
Kolom F invoegen met de vermenigvuldiging van de oude H, I en J. vervolgens Vlookup doen op de waarde 0
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_111102680
quote:
0s.gif Op donderdag 3 mei 2012 18:08 schreef qu63 het volgende:

[..]

Bedoel je niet de eerste kolom?
Nee, in G1 staat een bepaalde datum, in de andere kolommen wat er in of uit een magazijn ging op die datum. Ik wil de eerste datum hebben waarop zo'n wijziging plaats vond.

quote:
[..]

In kolom K =G1 etc zetten en eventueel verbergen :)
Dat kan niet netter?

quote:
3s.gif Op donderdag 3 mei 2012 19:56 schreef Deetch het volgende:
Kolom F invoegen met de vermenigvuldiging van de oude H, I en J. vervolgens Vlookup doen op de waarde 0
En hoe kan ik vlookup doen op de eerste waarde die niet 0 is?
  donderdag 3 mei 2012 @ 21:42:19 #25
62215 qu63
..de tijd drinkt..
pi_111105295
quote:
0s.gif Op donderdag 3 mei 2012 20:57 schreef _superboer_ het volgende:

[..]

Nee, in G1 staat een bepaalde datum, in de andere kolommen wat er in of uit een magazijn ging op die datum. Ik wil de eerste datum hebben waarop zo'n wijziging plaats vond.
Dan kolom XYZ ;) De eerstvolgende lege kolom iig ;)
quote:
Dat kan niet netter?
Nope, negatieve verwijzing in H/VLOOKUP kunnen niet.
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_111107023
quote:
0s.gif Op donderdag 3 mei 2012 21:42 schreef qu63 het volgende:

Nope, negatieve verwijzing in H/VLOOKUP kunnen niet.
Dan gebruik je toch INDEX( MATCH( ??
  donderdag 3 mei 2012 @ 22:31:49 #27
62215 qu63
..de tijd drinkt..
pi_111108372
quote:
5s.gif Op vrijdag 16 maart 2012 17:12 schreef qu63 het volgende:
Uitdaging:
Ben bezig om een urenregistratie in elkaar te zetten in Excel. Nu zijn deze al vaak genoeg langsgekomen in deze reeks, alleen gaat het in dit geval om touringcarchauffeurs. Deze hebben ook te maken met wettelijk rij- en rusttijden.

Wat ik wil is dat ik netjes in mijn overzicht te zien krijg of er overtredingen zijn (te weinig rust, te lang gereden). Ik heb onderstaand schema wat hiervoor van belang is:

[..]

Voorbeeldsheet: http://www.svenahrens.nl/Rijrust.xls (Excel 2007, NL)

Voor 1 dag kan ik makkelijk bepalen of ik binnen de wet blijf of niet, over een week, maand of jaar wordt het een heel ander verhaal. Het aantal voorwaarden maken me dan een beetje duizilig :P Kan iemand me hiermee helpen?
Opmaak van de voorbeeldsheet is niet leidend, als ik maar per sheet een maand heb waarop ik per dag (24u) alles in kan vullen..

In de voorbeeldsheet moet nu dus een melding komen dat ik op 13-3 nog niet had mogen rijden omdat ik te weinig rust had. Op 14-3 moet er komen staan dat ik te lang (15 minuten) gereden heb.
Op 15-3 hield ik me wel netjes aan de tijden, maar op 16-3 niet meer omdat ik dan al 2x 10 uur gereden heb die week.
Ben er de laatste tijd zelf mee aan t klooien geweest, maar het is te ingewikkeld en onpraktisch om in Excel te doen. Het begint al met de invoer van de tijden, dat moet handmatig en op de minuut nauwkeurig. Het kan namelijk voorkomen dat ik 1 minuut rij, die moet dan wel genoteerd worden omdat mijn pauze onderbroken is.

Helaas, dan maar werken met verschillende systemen :)
Ook ivm budget, er zijn commerciële toepassingen, maar die zijn te uitgebreid, te duur en niet geschikt voor een klein bedrijf ;(
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_111122851
quote:
7s.gif Op donderdag 3 mei 2012 22:09 schreef DaFan het volgende:

[..]

Dan gebruik je toch INDEX( MATCH( ??
Hiermee is het gelukt :)

Nu ben ik bij de volgende uitdaging aangekomen: ik laat een macro een bepaalde waarde in een cel plaatsen. Op basis hiervan moeten er nieuwe gegevens uit een database getrokken worden, die excel dan vervolgens kan kopieren naar een nieuw tablad. Hoe kan ik de macro laten wachten zodat de cellen geupdate kunnen worden en de juiste gegevens dus gekopieerd worden? Met "Application.Wait Now + TimeSerial(0, 0, 15)" lukt het niet omdat in die tijd de cellen niet geupdate worden.
pi_111123182
Zou hiermee kunnen:

1
2
3
4
5
6		Sub asd()
 MsgBox ("start calculation")
 Application.CalculateFull
 MsgBox ("calculation complete")
 End Sub
 
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_111124659
ok vraagje.

Ik heb een sheet met een aantal tabbladen ( verschillende regio's ).
Op elk tab staan de eventuele issues beschreven in die regio die opgepakt moeten worden.
Even een voorbeeld

A1 = start date issue
B1 = Closed date issue

Ik wil op een voorblad een dashboard maken met daarin in ieder geval de info :
openstaande issues < 30 dagen
openstaande issues 30-60 dagen
openstaande issues 60+ dagen

Weet iemand hoe ik dit het beste aan kan pakken.
Ik kom een eind, echter issues die nog niet closed zijn kan ik niet automatisch uitrekenen hoeveel dagen hij al open staat ( geprobeerd met formule met =TODAY() maar lukte niet :)

graag jullie ideeen :) thx !
  vrijdag 4 mei 2012 @ 12:52:42 #31
62215 qu63
..de tijd drinkt..
pi_111124851
quote:
0s.gif Op vrijdag 4 mei 2012 12:47 schreef realbase het volgende:
ok vraagje.

Ik heb een sheet met een aantal tabbladen ( verschillende regio's ).
Op elk tab staan de eventuele issues beschreven in die regio die opgepakt moeten worden.
Even een voorbeeld

A1 = start date issue
B1 = Closed date issue

Ik wil op een voorblad een dashboard maken met daarin in ieder geval de info :
openstaande issues < 30 dagen
openstaande issues 30-60 dagen
openstaande issues 60+ dagen

Weet iemand hoe ik dit het beste aan kan pakken.
Ik kom een eind, echter issues die nog niet closed zijn kan ik niet automatisch uitrekenen hoeveel dagen hij al open staat ( geprobeerd met formule met =TODAY() maar lukte niet :)

graag jullie ideeen :) thx !
=today()-STARTDATUM al geprobeerd?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_111124932
achter elke issue een kolom maken met daarin de functie:

=if(B1<>"", "Completed",TODAY()-A1)

Vervolgens kun je countif doen op deze kolom (bijv kolom C)

aantal openstaande issues korter dan 30 dagen
=countif(c1:c40,"<30")

aantal openstaande issues tussen 30 en 60 dagen
=countif((c1:c40,"<60")-countif(c1:c40,"<30")

aantal openstaande issues langer dan 60 dagen
=countif(c1:c40,">=60")

Het is wel belangrijk dat je data in kolom A ook echt als datum zijn weergegeven en niet als een tekst.
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_111125573
quote:
3s.gif Op vrijdag 4 mei 2012 12:54 schreef Deetch het volgende:
achter elke issue een kolom maken met daarin de functie:

=if(B1<>"", "Completed",TODAY()-A1)

Vervolgens kun je countif doen op deze kolom (bijv kolom C)

aantal openstaande issues korter dan 30 dagen
=countif(c1:c40,"<30")

aantal openstaande issues tussen 30 en 60 dagen
=countif((c1:c40,"<60")-countif(c1:c40,"<30")

aantal openstaande issues langer dan 60 dagen
=countif(c1:c40,">=60")

Het is wel belangrijk dat je data in kolom A ook echt als datum zijn weergegeven en niet als een tekst.
Hi Deetsch,

Ik heb je formule geprobeerd, geeft me echter het volgende :
( let niet op de cel nummers, die zijn in mn sheet anders dan in mn voorbeeld )

=IF(L2<>"";"Closed";TODAY()-B2)
en dan geeft hij in de cell "Closed" als er al een datum staat, als cell leeg is bij closed date werkt het wel
pi_111125844
quote:
0s.gif Op vrijdag 4 mei 2012 13:08 schreef realbase het volgende:

[..]

Hi Deetsch,

Ik heb je formule geprobeerd, geeft me echter het volgende :
( let niet op de cel nummers, die zijn in mn sheet anders dan in mn voorbeeld )

=IF(L2<>"";"Closed";TODAY()-B2)
en dan geeft hij in de cell "Closed" als er al een datum staat, als cell leeg is bij closed date werkt het wel
Dat is toch ook logisch aangezien je in cel B de datum van afsluiten hebt neergezet als de call is afgesloten?
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_111125911
oh wacht. je wil weten hoe lang een call open is geweest?
dan kun je gewoon B1-A1 ipv "Closed" doen want datums kun je gewoon van elkaar aftrekken als getallen.

Waarom doe je L2 ipv B2?
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_111126474
/edit. opgelost :)

[ Bericht 96% gewijzigd door realbase op 04-05-2012 13:34:39 ]
pi_111128731
quote:
0s.gif Op vrijdag 4 mei 2012 13:27 schreef realbase het volgende:
/edit. opgelost :)
Het is eigenlijk niet de bedoeling dat je je vraag weer weghaalt, misschien heeft iemand anders ook iets aan jouw oplossing.
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_111129124
sorry ! Mn vraag was stom.. jij werkt met komma's en mijn excel accepteerd alleen ;
Vandaar dat het fout ging :)
pi_111148722
Nog 1 vraagje

Ik probeer deze formule werkend te krijgen, maar hij wil niet.

=IF(M3="Open";TODAY()-B3;"")

Wat ik wil is dat hij uitrekent als de tekst "Open" in die Cell staat hij TODAY() minus de start datum pakt en dus uitrekent hoeveel dagen hij open staat.

What am I doing wrong :)


Ps. weet je nog Deetsch 11 januari 2007.. dag om nooit te vergeten !

[Excel] Het grote Excel vragen topic :)

[ Bericht 25% gewijzigd door realbase op 04-05-2012 22:31:03 ]
pi_111237755
quote:
0s.gif Op vrijdag 4 mei 2012 22:01 schreef realbase het volgende:
Nog 1 vraagje

Ik probeer deze formule werkend te krijgen, maar hij wil niet.

=IF(M3="Open";TODAY()-B3;"")

Wat ik wil is dat hij uitrekent als de tekst "Open" in die Cell staat hij TODAY() minus de start datum pakt en dus uitrekent hoeveel dagen hij open staat.

What am I doing wrong :)

Ps. weet je nog Deetsch 11 januari 2007.. dag om nooit te vergeten !

[Excel] Het grote Excel vragen topic :)
Ach ja dat was een goed idee voor een topic reeks. Brings back memries:
Cats - Memory - Original Broadway Cast
Cats - Memory - Original Broadway Cast

We zitten nu in het eerste lustrum, cool ^O^

[OT]
Volgens mij is die code goed met de volgende voorwaarden:
• Je moet inderdaad ; gebruiken ipv , in jouw configuratie
• B3 bevat een datum (dus geen tekst) en deze is ouder dan de datum van vandaag (anders error)
• In M3 staat daadwerkelijk "Open" en niet bijvoorbeeld "open" (zonder hoofdletter) of "open " (met spatie)
• Je hebt een engelse excel versie, anders: =ALS(M3="Open";TODAY()-B3;"")
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 7 mei 2012 @ 08:35:13 #41
267443 Cue_
Cuecumbergirl
pi_111237769
quote:
3s.gif Op maandag 7 mei 2012 08:33 schreef Deetch het volgende:

• Je hebt een engelse excel versie, anders: =ALS(M3="Open";TODAY()-B3;"")
Is het dan niet VANDAAG() ?
pi_111237781
Ik heb een vraag of iets mogelijk is. ALs dit zo is ga ik kijken of ik het voor elkaar krijg :9

Kan je in een excel file een "draft" van een e-mail invoegen. Dus ipv mailto: en dan een blanko mailtje te krijgen, een mail met ontvangers/inhoud vooringevuld?

(office 2007 taal: ENG . opslag doel --> sharepoint)
pi_111238929
quote:
5s.gif Op maandag 7 mei 2012 08:35 schreef Cue_ het volgende:

[..]

Is het dan niet VANDAAG() ?
maandag }:| maar inderdaad =ALS(M3="Open";VANDAAG()-B3;"")
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_111238945
quote:
99s.gif Op maandag 7 mei 2012 08:36 schreef Prof_Hoax het volgende:
Ik heb een vraag of iets mogelijk is. ALs dit zo is ga ik kijken of ik het voor elkaar krijg :9

Kan je in een excel file een "draft" van een e-mail invoegen. Dus ipv mailto: en dan een blanko mailtje te krijgen, een mail met ontvangers/inhoud vooringevuld?

(office 2007 taal: ENG . opslag doel --> sharepoint)
Zal ws. via een macrootje moeten. Is dat OK?
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_111240271
quote:
3s.gif Op maandag 7 mei 2012 09:46 schreef Deetch het volgende:

[..]

Zal ws. via een macrootje moeten. Is dat OK?
Ik heb geen idee. Nog nooit mee gewerkt. Kan dit opgeslagen worden zonder extra files te uploaden? het zit zo, ik moet een documentje maken met een inventarisatie van spullen. Als collega's (van over heel de wereld) klikken op een contact button van die site wil ik een mailtje met daarin een "aan" adres een "cc" adres en een tekst veld waar ze zelf nog maar enkele dingen aan toe moeten voegen.
Het zou gaan om een mailtje via Outlook, vanuit excell 2007 (outlook ook 2007) :+ Is dat lastig te realiseren?
Als dit relatief eenvoudig is zal ik me er eens voor zetten, is dit vergevorderd ga ik het laten :@
  maandag 7 mei 2012 @ 10:59:34 #46
38651 yozd
FR1908 Vakkie R
pi_111240693
Ik probeer een grafiek te koppelen van Excel naar Word en dat lukt met speciaal plakken. Ik heb nu de grafiek in Excel echter bewerkt door er links en rechts een tekstvak naast te zetten. Ik heb nu dus 3 "plaatjes":

[tekst] [grafiek] [tekst]

Deze heb ik gegroepeerd.

Als ik nu het "totaalplaatje" kopieer vanuit Excel en speciaal plak in Word dan is de optie "koppeling plakken" niet meer mogelijk. Hoe kan dat? En is dat op te lossen?
"On a good day, when I run, the voices in my head get quieter until it’s just me, my breath and my feet on the sand (Dexter, E5x09)."
pi_111240763
koppeling plakken werkt alleen met een alleen de grafiek en niet met een groepering want dat is nl. naast de grafiek ook nog de tekstvakken. Dat snapt word dan niet. Kun je niet beter de tekstvakken dan pas in word er bij plaatsen misschien dat het dan wel wil.

Dus eerst de excel grafiek als koppeling plakken in word en dan de tekstvakken in word en dan groeperen.
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_111240888
quote:
99s.gif Op maandag 7 mei 2012 10:44 schreef Prof_Hoax het volgende:

[..]

Ik heb geen idee. Nog nooit mee gewerkt. Kan dit opgeslagen worden zonder extra files te uploaden? het zit zo, ik moet een documentje maken met een inventarisatie van spullen. Als collega's (van over heel de wereld) klikken op een contact button van die site wil ik een mailtje met daarin een "aan" adres een "cc" adres en een tekst veld waar ze zelf nog maar enkele dingen aan toe moeten voegen.
Het zou gaan om een mailtje via Outlook, vanuit excell 2007 (outlook ook 2007) :+ Is dat lastig te realiseren?
Als dit relatief eenvoudig is zal ik me er eens voor zetten, is dit vergevorderd ga ik het laten :@
Wordt hier duidelijk uitgelegd. http://www.ozgrid.com/VBA/send-email.htm

Hoe maak je nu een macro:
Neem een macro op (willekeurig wat). In office 2007 moet je de ribbon developer wel aanzetten.
Ga naar visual basic (via de ribbon developer of ALT+F11) en zoek dan je spreadsheet op en daaronder dan de module1.
Hier staat nu de code van je opgenomen macro. Vervang deze code door de code uit de website hierboven en pas het adres en de subject aan.
Vervolgens maak je een knop op je spreadsheet en koppelt daar je macro aan (rechtermuis op knop klikken)
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_111241238
Je kunt in de sendmail code geen CC toevoegen maar wel naar twee adressen mailen
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20		Sub Send1Sheet_ActiveWorkbook() 
     'Create a new Workbook Containing 1 Sheet  And sends As attachment. 
     
    Dim Recip() 
    
ThisWorkbook.Sheets(15).Copy 
With ActiveWorkbook 
         
        Redim Preserve Recip(0) 
        Recip(0) = "michael.oriordan@test.com" 
        Redim Preserve Recip(1) 
        Recip(1) = "michael.oriordan2@test.com" 
         'and so on
        
        .SendMail Recipients:=Recip, _ 
        Subject:="Debrief " & Format(Date, "dd/mmm/yy") 
        .Close SaveChanges:=False 
    End With 
     
End Sub 

Of als je toch echt een CC wilt dan kun je de outlook object route gebruiken:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23		Sub Mailer()
Sheets("BB Email Data").Select
pathname = [b11].value 'defines attachment
dname = [b14].value 'defines date for subject
Dim objol As New outlook.Application
Dim objmail As MailItem
Set objol = New outlook.Application
Set objmail = objol.createitem(olmailitem)
    With objmail
        .To = "whoever" 'enter in here the email address
        .cc = "whoever" 'enter in here the email address
        .Subject = "Daily test email for  " & dname
        .Body = "Please find attached the teste email" & _
            vbCrLf & "If you have any queries can you please let me know" & vbCrLf
        .NoAging = True
        .Attachments.Add pathname 'adds attachment to email
        .display
    End With
    Set objmail = Nothing
    Set objol = Nothing
    SendKeys "%{s}", True 'send the email without prompts
    
End Sub
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_111241963
Wow Deetch! Dank je wel ^O^ Eens naar kijken als ik tijd heb, deze week. Ik laat het resultaat weten O+
actieve topics nieuwe topics
abonnement Unibet Coolblue
[Excel] Het grote Excel vragen topic #32
Index

» digital corner

» software

Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')