SPOILEROm 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.SPOILEROm 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.Password kwijt?
Soms heb je een worksheeet beveiligd met een password maar ben je die kwijt. Gelukkig is dat geen groot probleem want de interne beveiliging van Excel stelt niet heel veel voor.
Hier vind je meer info en een downloadbare macro die alle interne passwords verwijdert.
DISCLAIMER: Denk erom dat je met het breken van de beveiliging van een excelsheet mogelijk wet- of regelgeving overtreedt. Als de spreadsheet van jezelf is zou het geen probleem moeten zijn.
In andere gevallen: vraag toestemming aan de originele schrijver.
Bij twijfelgevallen: NIET DOEN
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 wikiSupra 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
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 | Sub ListAllFile() 'makes list of files in selected folder Dim objFso As Object Dim objFolder As Object Dim objFile As Object Dim ws As Worksheet Dim sItem As String Dim fldr As FileDialog Set objFso = CreateObject("Scripting.FileSystemObject") 'Set ws = ActiveCell 'Get the folder object associated with the directory 'select folder dialogue Set fldr = Application.FileDialog(msoFileDialogFolderPicker) With fldr .Title = "Select a Folder" .AllowMultiSelect = False .InitialFileName = strPath If .Show <> -1 Then GoTo NextCode sItem = .SelectedItems(1) End With NextCode: 'MsgBox sItem Set objFolder = objFso.GetFolder(sItem) ActiveCell.Value = "The files found in " & sItem & " are:" 'Loop through the Files collection i = 1 For Each objFile In objFolder.Files ActiveCell.Offset(i, 0).Value = objFile.Name i = i + 1 Next 'Clean up! Set objFolder = Nothing Set objFile = Nothing Set objFso = Nothing End Sub |
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 | Option Explicit Sub makeMergeSheets(control As IRibbonControl) Dim ws As Worksheet Dim x As Integer Dim r As Integer On Error Resume Next Application.DisplayAlerts = False Sheets("Merge").Delete Application.DisplayAlerts = True On Error GoTo 0 Set ws = Worksheets.Add(before:=Sheets("Index")) ws.Name = "Merge" r = 5 'beginregel For x = 3 To Worksheets.Count - 2 If Sheets(x).Range("H30").Value > 0 Then With ws .Range("a" & r).Value = Sheets(x).Range("D4").Value .Range("b" & r).Value = Sheets(x).Range("D5").Value .Range("c" & r).Value = Sheets(x).Range("D6").Value .Range("d" & r).Value = UCase(Sheets(x).Range("D7").Value) .Range("e" & r).Value = Sheets(x).Range("i3").Value r = r + 1 End With End If Next Set ws = Nothing End Sub |
Waarschijnlijk zijn het geen getallen maar tekst. En waarom is 1640 zonder punt?quote:Op woensdag 29 oktober 2014 13:55 schreef CklokC het volgende:
Dit zal vast niet de moeilijkste vraag zijn, maar ik kom er maar niet uit.![]()
Ik wil getallen sorteren van groot naar klein. Door het scheidingsteken voor duizendtallen (een punt in dit geval) sorter hij echter niet goed:
[ afbeelding ]
Hij zou de 2.059 na de 1.936 moeten zetten en voor 10.065. Enzovoorts.
Ik wil gewoon dat 2.059 wordt weergegeven als 2059.
Iemand?
Zou goed kunnen. Deze getallen komen uit SAP.quote:Op woensdag 29 oktober 2014 14:18 schreef Deetch het volgende:
[..]
Waarschijnlijk zijn het geen getallen maar tekst. En waarom is 1640 zonder punt?
Kolom selecterenquote:Op woensdag 29 oktober 2014 15:01 schreef CklokC het volgende:
[..]
Zou goed kunnen. Deze getallen komen uit SAP.
1640 is zonder punt omdat ik die handmatig zo had gezet, om te testen of ie dat wel pakte.
Soms is het zo makkelijk.quote:Op woensdag 29 oktober 2014 15:07 schreef Deetch het volgende:
[..]
Kolom selecteren
CTRL+H
. vervangen door niks
replace all
Helaas vaak genoeg geclasht met SAPquote:
quote:Op woensdag 29 oktober 2014 15:07 schreef Deetch het volgende:
[..]
Kolom selecteren
CTRL+H
. vervangen door niks
replace all
Lol, gebeurt mij ook nog wel eens. heb ik een hele macro gemaakt om iets te doen en zegt een collega: Oh zo? klik klik klaarquote:Op woensdag 29 oktober 2014 16:36 schreef KaBuf het volgende:
[..]
Ik zat al moeilijk een oplossing uit te denken met text to columns
Dat deed ik een keer bij een collega die al jaren met formules en filters duplicaten verwijderde, terwijl Data>Remove duplicate hetzelfde doet.quote:Op woensdag 29 oktober 2014 16:42 schreef Deetch het volgende:
[..]
Lol, gebeurt mij ook nog wel eens. heb ik een hele macro gemaakt om iets te doen en zegt een collega: Oh zo? klik klik klaar
Dit is ook meteen een makkelijke manier om datums uit SAP goed te zetten. Vanwege de datum notatie 29.10.2014 sorteert hij dan ook zo irritant. Nu deed ik via tekst naar kolom (o.i.d. weet het even niet exact uit m'n hoofd) de datum overzetten van 29.10.2014 naar 29-10-2014.quote:Op woensdag 29 oktober 2014 16:35 schreef Deetch het volgende:
[..]
Helaas vaak genoeg geclasht met SAP
graag gedaan
Tja SAP is dan ook een duits programma. de afkorting staat voor "Scheiß Arsch Programm" of "Sanduhr Abwarten Programm"quote:Op woensdag 29 oktober 2014 19:50 schreef CklokC het volgende:
[..]
Dit is ook meteen een makkelijke manier om datums uit SAP goed te zetten. Vanwege de datum notatie 29.10.2014 sorteert hij dan ook zo irritant. Nu deed ik via tekst naar kolom (o.i.d. weet het even niet exact uit m'n hoofd) de datum overzetten van 29.10.2014 naar 29-10-2014.
Hahaha, dat verklaart alles. Deze zegt voor mij genoeg:quote:Op donderdag 30 oktober 2014 08:17 schreef Deetch het volgende:
[..]
Tja SAP is dan ook een duits programma. de afkorting staat voor "Scheiß Arsch Programm" of "Sanduhr Abwarten Programm"
OT:
Het kan idd ook via text to columns, dan moet je bij de datum kolom even aangeven dat het een datum notatie is.
Als je nog meer geluk hebt krijg je er ook nog 01.01.2014 uit en excel vind in datum notities de trailing 0 vaak niet zo leuk.quote:Op woensdag 29 oktober 2014 19:50 schreef CklokC het volgende:
[..]
Dit is ook meteen een makkelijke manier om datums uit SAP goed te zetten. Vanwege de datum notatie 29.10.2014 sorteert hij dan ook zo irritant. Nu deed ik via tekst naar kolom (o.i.d. weet het even niet exact uit m'n hoofd) de datum overzetten van 29.10.2014 naar 29-10-2014.
=VERT,ZOEKEN(B2;I2:K8;3;WAAR)quote:Op maandag 3 november 2014 10:28 schreef Legwieh het volgende:
Ik zou graag in de cel waar de vraagtekens een functie hebben welke afhankelijk van het getal wat in de cel erboven staat het juiste percentage weergeeft.
Dus indien er in cel B2 een waarde staat van ¤7000 moet hij bijvoorbeeld weergeven K2
Staat er in cel b2 een waarde van ¤21500 moet hij weergeven K4, enzovoorts. Nu zou dit volgens mij moeten met een Als functie maar ik heb geen flauw idee hoe. En ik zou ook echt niet weten hoe, wie kan mij helpen?
Alvast dank,
[ afbeelding ]
Named ranges moet wel kunnen denk ik.quote:Op maandag 3 november 2014 13:48 schreef d4v1d het volgende:
Hoe selecteer je een aantal opeenvolgende kollomen behalve één?
Heb nu dit: =COUNTIF(B4;B5;B7;B8;B9;B10;B11; ">0") maar dan krijg ik dus dit omdat ik elke kolom apart opgeef.
[ afbeelding ]
Ik wil dus B4, B5 en B7 t/m B11 selecteren.. en B6 niet.
Named ranges werkt ook niet met count if, je andere optie is dan eigenlijk de enige oplossing.quote:Op maandag 3 november 2014 13:49 schreef Janneke141 het volgende:
[..]
Named ranges moet wel kunnen denk ik.
Andere optie: =COUNTIF(B4:B11)-COUNTIF(B6)
Is om mn gewerkte uren bij te houden, ik heb dus onder elkaar maandag, dinsdag, woensdag.. Etc.. En daarachter de werktijdenMaar soms doe ik twee shifts en die schrijf ik dan onder elkaar op twee verschillende regels. (Beide met dezelfde dag/datum).quote:Op maandag 3 november 2014 13:58 schreef Deetch het volgende:
[..]
Named ranges werkt ook niet met count if, je andere optie is dan eigenlijk de enige oplossing.
Beter past de vragensteller zijn dataset aan want het lijkt op een onlogische opbouw.
De truc met INDIRECT wel maar alleen als je hem combineert met de SUM functie:quote:Op maandag 3 november 2014 13:48 schreef d4v1d het volgende:
Hoe selecteer je een aantal opeenvolgende kollomen behalve één?
Heb nu dit: =COUNTIF(B4;B5;B7;B8;B9;B10;B11; ">0") maar dan krijg ik dus dit omdat ik elke kolom apart opgeef.
[ afbeelding ]
Ik wil dus B4, B5 en B7 t/m B11 selecteren.. en B6 niet.
Heb van die min 'n plus gemaakt en het werktquote:Op maandag 3 november 2014 13:49 schreef Janneke141 het volgende:
[..]
Andere optie: =COUNTIF(B4:B11)-COUNTIF(B6)
quote:Op maandag 3 november 2014 14:53 schreef d4v1d het volgende:
[..]
Heb van die min 'n plus gemaakt en het werkt
=COUNTIF(B4:B5;">0")+COUNTIF(B7:B11; ">0")quote:
Die functie met de min had ook gewerkt hoor.quote:Op maandag 3 november 2014 15:00 schreef d4v1d het volgende:
[..]
=COUNTIF(B4:B5;">0")+COUNTIF(B7:B11; ">0")
Oh wacht, jij trekt B6 eraf van B4 t\m B11 zie ik nu. Ik deed B4 en B5, plus B7 t/m B11quote:Op woensdag 5 november 2014 13:42 schreef Deetch het volgende:
[..]
Die functie met de min had ook gewerkt hoor.
=COUNTIF(B4:B11;">0")-COUNTIF(B6; ">0")
1 | =IF(E2>F2;Accepted;IF(F2>E2;Declined;Neutral)) |
De teksten staan niet tussen aanhalingstekens.quote:Op donderdag 6 november 2014 20:30 schreef einschtein het volgende:
[ code verwijderd ]
Hij geeft bij mij een naam error, wat is er fout?
1 | =IF(E2>F2;"Accepted";IF(F2>E2;"Declined";"Neutral")) |
Ik dacht dat het niet tussen aanhalingstekens hoefde, maar thanks!quote:Op donderdag 6 november 2014 20:47 schreef Watertornado het volgende:
[..]
De teksten staan niet tussen aanhalingstekens.
Zo werkt hij wel:
[ code verwijderd ]
Iets dat een tekst is moet altijd in aanhalingstekens, anders denkt excel dat het een functienaam of een named range moet zijn en krijg je dus een error.quote:Op donderdag 6 november 2014 21:02 schreef einschtein het volgende:
[..]
Ik dacht dat het niet tussen aanhalingstekens hoefde, maar thanks!
http://www.mrexcel.com/fo(...)near-trend-line.htmlquote:Op dinsdag 18 november 2014 14:51 schreef DhrSoulslayer het volgende:
Jongens misschien een hele domme vraag.
Ik heb in excel een grafiek gemaakt met daarin een trendlijn die excel zelf gemaakt heeft.
Nu wil ik dat de waardes van de trendlijn in de tabel gezet worden die erbij hoort.
voorbeeld:[ afbeelding ]
Uiteraard snap ik dat dit geschatte/niet gemeten waardes zijn maar voor de volledigheid wil ik ze er wel graag in hebben.
En als je rechtsklikt op je oranje lijn kun je deze ook nog op de secundaire as neerzetten, dan kun je daar de trend ook goed zien. Rechtsklikken, format data series, series options, secondary axisquote:Op dinsdag 18 november 2014 14:51 schreef DhrSoulslayer het volgende:
Jongens misschien een hele domme vraag.
Ik heb in excel een grafiek gemaakt met daarin een trendlijn die excel zelf gemaakt heeft.
Nu wil ik dat de waardes van de trendlijn in de tabel gezet worden die erbij hoort.
voorbeeld:[ afbeelding ]
Uiteraard snap ik dat dit geschatte/niet gemeten waardes zijn maar voor de volledigheid wil ik ze er wel graag in hebben.
Ik zou beide oranje lijnen op de 2e as zetten trouwens.quote:Op dinsdag 18 november 2014 15:26 schreef Deetch het volgende:
[..]
En als je rechtsklikt op je oranje lijn kun je deze ook nog op de secundaire as neerzetten, dan kun je daar de trend ook goed zien. Rechtsklikken, format data series, series options, secondary axis
Trendlijn gaat automagisch mee natuurlijkquote:Op dinsdag 18 november 2014 15:37 schreef qu63 het volgende:
[..]
Ik zou beide oranje lijnen op de 2e as zetten trouwens.
Hmm dat ziet er interresant uit. Echter als ik dit in een cel invul komt er niks bijzonders uit. Wellicht dat het te maken heeft met andere excel versies? Ik gebruik 2013 Pro Plus in het nederlands.quote:Op dinsdag 18 november 2014 15:33 schreef Deetch het volgende:
Trend waarden van een rechte lijn kun je als volgt berekenen:
Ik neem aan dat je jaartallen op regel 1 staan, beginnen met 2010 in kolom B
Voor mensen
=INTERCEPT($B$2:$J$2,$B$1:$J$1)+SLOPE($B$2:$J$2,$B$1:$J$1)*B1
Voor server
=INTERCEPT($B$3:$J$3,$b$1:$J$1)+SLOPE($B$3:$J$3,$B$1:$J$1)*B1
Daarom staat dit ook in de OPquote:Op dinsdag 18 november 2014 15:51 schreef DhrSoulslayer het volgende:
[..]
Hmm dat ziet er interresant uit. Echter als ik dit in een cel invul komt er niks bijzonders uit. Wellicht dat het te maken heeft met andere excel versies? Ik gebruik 2013 Pro Plus in het nederlands.
enquote:Op dinsdag 21 oktober 2014 10:14 schreef Deetch het volgende:
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.
quote:
Je hebt helemaal gelijk. Mijn schuld. Te snel en scheef gelezen.quote:Op dinsdag 18 november 2014 16:01 schreef qu63 het volgende:
[..]
Daarom staat dit ook in de OP:
[..]
en
[..]
intercept() = snijpunt()quote:Op dinsdag 18 november 2014 16:03 schreef DhrSoulslayer het volgende:
[..]
Je hebt helemaal gelijk. Mijn schuld. Te snel en scheef gelezen.
Kan ik alsnog een klein duwtje in de goede richting krijgen?
en komma's vervangen door ;quote:Op dinsdag 18 november 2014 16:09 schreef qu63 het volgende:
[..]
intercept() = snijpunt()
en
Slope() = richting()
Volgens de eerste link in de tweede quote
En komma's of puntkomma's is weer afhankelijk van de lokale settingsquote:Op dinsdag 18 november 2014 16:13 schreef Deetch het volgende:
[..]
en komma's vervangen door ;
Degenen die ooit heeft bedacht dat excel in meerdere talen vertaald moest worden moeten ze een nekschot geven. Het voegt geen enkele functionaliteit toe en zorgt alleen maar voor verwarring.
Ik werk ook nog met een cadcam programma, als je tijdens het gebruik van dat programma je settings van het scheidingstekens veranderd dan loopt dat programma vast en moet je handmatig wat files gaan vervangen. Dus het kan nog erger.quote:Op dinsdag 18 november 2014 16:37 schreef qu63 het volgende:
[..]
En komma's of puntkomma's is weer afhankelijk van de lokale settings
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |