Hij doet het nog steeds niet. Het zal vast wel aan mij liggen, daar niet van.quote:Op dinsdag 17 mei 2011 15:56 schreef Pakspul het volgende:
=DATUMVERSCHIL(C8;D8;"y")
C8 = 1-1-2000
D8 = 1-1-2011
De derde parameter kun je nog veranderen waardoor de uitkomst anders wordt.
Hmm, nog nooit mee gewerkt.. De data komt uit meerdere sheets met, als het eenmaal af is, in totaal een 3000 regels..quote:
Is het nou 1 kolom, of meerdere sheetsquote:Op woensdag 18 mei 2011 11:18 schreef qu63 het volgende:
[..]
Hmm, nog nooit mee gewerkt.. De data komt uit meerdere sheets met, als het eenmaal af is, in totaal een 3000 regels..
Het zijn meerdere sheets waarvan ik kolom K uit wil lezenquote:Op woensdag 18 mei 2011 11:26 schreef Piles het volgende:
[..]
Is het nou 1 kolom, of meerdere sheets
Ga anders in A2 staan, kies Invoegen -> Draaitabel -> Tabel/bereik kolom K (K:K). Vervolgens zet je de kolomnaam in Rijlabels. Dan heb je een heel eind wat je wilt denk ik?
Dat had ik ook al bedacht, maar er komt regelmatig nieuwe data bij..quote:Op woensdag 18 mei 2011 12:03 schreef DaFan het volgende:
Autofilter uniques, copy paste? Maar dat is eenmalig
Oke het zal heel erg rookie overkomen, maar dat ben ik dan ook. Hoe komt deze formule er dan uit te zien als ik ook wil afronden naar boven of beneden?quote:Op woensdag 18 mei 2011 10:36 schreef DaFan het volgende:
In je originele vraag staat het antwoord; AFRONDEN eromheen.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | For Each chtobj In ActiveSheet.ChartObjects MsgBox chtobj.Name If left(chtobj.Name,5) = "TYPE1" Then Hier wil ik dan voor alle grafieken die hier bij horen, 'ActiveChart.SeriesCollection(1).Values = "='#PO'!R4C8:R65C8" 'ActiveChart.SeriesCollection(1).Name = "" 'ActiveChart.SeriesCollection(2).XValues = "='#PO'!R4C1:R65C1" 'ActiveChart.SeriesCollection(2).Values = "='#PO'!R4C12:R65C12" Dit soort dingen opvragen en weer instellen na modificatie..... End If Next chtobj |
Uit DATUMVERSCHIL komt sowieso al een geheel getal. Dus afronden heeft niet zoveel zinquote:Op woensdag 18 mei 2011 15:10 schreef Henk1056 het volgende:
[..]
Oke het zal heel erg rookie overkomen, maar dat ben ik dan ook. Hoe komt deze formule er dan uit te zien als ik ook wil afronden naar boven of beneden?
=DATUMVERSCHIL(C8;D8;"y")
En weet je misschien ook hoe ik een hele kolom met mm/md/yyyy notaties gemakkelijk kan omzetten naar dd-mm-yyyy notaties?
Zit ik eindelijk weer s achter mn PCquote:Op donderdag 19 mei 2011 20:09 schreef Holy_Goat het volgende:
Laat maar.
Dikke oplossing gemacht und es funzt.
In A1 kan je de gebruiker A of B in laten vullen (eventueel te beveiligen dmv gegevensvalidatie, dan krijg je een fout als er geen A of B ingevuld is)quote:Op zondag 22 mei 2011 13:14 schreef Serrano het volgende:
Is het mogelijk om (met bijv een macro) de gebruiker een keuze te geven uit verschillende opties die allemaal een eigen setting hebben van gegevens in een bepaalde tabel.
Je kan bijv uit A en B kiezen. Als je voor A kiest, krijg je een tabel met
378 310 68 (ieder getal is een aparte cel)
Als je voor B kiest, krijg je een tabel met 378 320 58
Snap dat het weekend is, maar ik hoop dat er iemand is die het me kan vertellen of dit kan en wellicht op welke manier..
Die dropdown kan je ook maken met gegevensvalidatiequote:Op zondag 22 mei 2011 14:38 schreef DaFan het volgende:
Ik denk dat het met een VLOOKUP nog makkelijker is, gebaseerd op A1 en met alle gegevens in een hulpblad ergens verderop.
Je kan dan of bv een dropdown maken in A1.
Als je per se een knop wil kan dat ook, dan laat je de knop(pen) gewoon A1 vullen en de knoppen zet je eroverheen.
o rlyquote:Op zondag 22 mei 2011 15:49 schreef qu63 het volgende:
[..]
Die dropdown kan je ook maken met gegevensvalidatie
Met maar 2 waardes (A of B) vond ik dat een wat omslachtige manier.. Dit leek me een stuk overzichtelijker!quote:Op zondag 22 mei 2011 15:58 schreef DaFan het volgende:
[..]
o rly
Daar ging ik wel vanuit jaAls je dan toch al een lijst hebt met alle mogelijke waardes (je hebt immers de VLOOKUP tabel gemaakt) maak je daar een dynamic name van en die zet je weer in de dropdown met data validation.
Mee eens, met maar 2 waardes moet je het jezelf niet te lastig maken.quote:Op zondag 22 mei 2011 16:13 schreef qu63 het volgende:
[..]
Met maar 2 waardes (A of B) vond ik dat een wat omslachtige manier.. Dit leek me een stuk overzichtelijker!
Kijk, ik hield nu ook geen rekening met een mogelijke groei van waarden e.d.quote:Op zondag 22 mei 2011 16:16 schreef DaFan het volgende:
[..]
Mee eens, met maar 2 waardes moet je het jezelf niet te lastig maken.
Al heb ik (doe voor mn werk ook deels programmere - webdesign/SQL etc) wel door dat dynamischer = beter.
Dus ook al is het beetje omslachtig, maak je het jezelf (en degene na je die er aan werkt!) het een stuk gemakkelijker.
dat laatste kan met rechtermuisknop > kenmerkenquote:Op maandag 23 mei 2011 13:34 schreef actuarisje het volgende:
VBA vraag.
Ik heb op mijn excelsheet een (groot) aantal buttons. Om alles er mooi uit te laten zien, wil ik dat deze buttons de afmetingen van de cel krijgen waarin ze staan. Heeft iemand heer een idee/macro voor?
Het liefst zou ik (ook nog) hebben dat de buttons resizen op het moment dat de celgrootte wordt aangepast...
He zeg, qu63, doe jij ook wel eens wat met databases in excel?quote:Op zondag 22 mei 2011 16:25 schreef qu63 het volgende:
[..]
Kijk, ik hield nu ook geen rekening met een mogelijke groei van waarden e.d.Voor deze vraag was dit een prima oplossing. Als de sheet groter zou kunnen worden en er meer variabelen in zouden kunnen komen in de toekomst is een dynamische tabel beter ja
Maar goed, dat stond niet in de vraag vermeld dus hield ik het bij het beantwoorden van de vraag
Nopequote:Op maandag 23 mei 2011 14:18 schreef Holy_Goat het volgende:
[..]
He zeg, qu63, doe jij ook wel eens wat met databases in excel?
Ik denk dat als je de database kunt leze je em ook in kunt lezen in Excel.. Ervaring heb ik er niet mee!quote:Kan dat ook overal draaien? (werkomgeving met 0 rechten)
Dat dacht ik dus ook. Maar als ik dat instel (rechtermuisknop -> Format Control -> Properties en dan 'Move and size with cells'), veranderen ze toch echt niet mee als ik de cel groter/kleiner maak...quote:Op maandag 23 mei 2011 14:17 schreef Holy_Goat het volgende:
[..]
dat laatste kan met rechtermuisknop > kenmerken
Ctrl-H en vink Match case aan.quote:Op dinsdag 24 mei 2011 15:33 schreef mrbombastic het volgende:
Ik heb Office Excel 2003.
VBA heeft alle code waar Range(...) in voorkomt vervangen door range.
Dus Range("A1").Value is nu geworden range("A1").Value.
Dit vind ik niet mooi. Weet iemand hoe ik range weer met hoofdletter krijg?
Als ik het aanpas naar Range met een hoofdletter dan maakt VBA er ZELF weer range met een kleine letter van.quote:
1 2 3 4 | WisA WisB Eng 100012 Pietje Puk 6,1 7,2 5,6 099123 Theo Jansen 4,5 3,3 7,0 102399 Annie Schmidt 6,0 5,2 8,1 |
1 2 3 4 5 6 7 8 9 | 100012 Pietje Puk WisA 6,1 100012 Pietje Puk WisB 7,2 100012 Pietje Puk Eng 5,6 099123 Theo Jansen WisA 4,5 099123 Theo Jansen WisB 3,3 099123 Theo Jansen Eng 7,0 102399 Annie Schmidt WisA 6,0 102399 Annie Schmidt WisB 5,2 102399 Annie Schmidt Eng 8,1 |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | Sub Kolom() ' ' Kolom Macro ' Dim c As Range Dim k As Integer, r As Integer k = Selection.Column + Selection.Columns.Count r = Selection.Row For Each c In Selection Cells(r, k) = c r = r + 1 Next c ' End Sub |
Excel 2007 NLquote:Op maandag 30 mei 2011 15:25 schreef Deetch het volgende:
Welke versie gebruik je.
Selecteer eerst je gegevens:
Druk de ctrl toets in en hou deze vast
Selecteer de gewenste datums (inclusief koptekst) uit kolom B
Selecteer de winst/verlies uit kolom S en zorg ervoor dat er voor elke cel van kolom B ook een cel van kolom S is geselecteer
Laat ctrl los
Maak een lijn grafiek
Stel dan je vervolgvragen.
Daar moet ik wel uitkomen.quote:Op maandag 30 mei 2011 16:35 schreef DaFan het volgende:
Nieuwe kolom met een running total per datum en die kiezen ipv de winst per dag.
Heb je de OP gelezen?quote:Op maandag 30 mei 2011 16:34 schreef nils7 het volgende:
Hallo
Ik moet tijden bij elkaar op tellen.
Maar het zijn geen standaard tijden.
Ik kom er niet uit met de oplossingen die ik via Google kan vinden.
Ik moet de werkuren hier van het bedrijf bij elkaar op tellen + de overuren etc.
Daar ik dit in totaal kan uitdraaien heb ik nogal grote getallen.
Ik heb bijvoorbeeld 27234:45 uren:min en daarbij wil ik de overuren 1041:33 bij op tellen.
Maar in Excel kan ik hier geen (ik heb celeigenschappen geprobeerd) optie voor vinden.
Iemand een idee?
Er moet 28.276:18 uitkomen?quote:Op maandag 30 mei 2011 16:34 schreef nils7 het volgende:
Hallo
Ik moet tijden bij elkaar op tellen.
Maar het zijn geen standaard tijden.
Ik kom er niet uit met de oplossingen die ik via Google kan vinden.
Ik moet de werkuren hier van het bedrijf bij elkaar op tellen + de overuren etc.
Daar ik dit in totaal kan uitdraaien heb ik nogal grote getallen.
Ik heb bijvoorbeeld 27234:45 uren:min en daarbij wil ik de overuren 1041:33 bij op tellen.
Maar in Excel kan ik hier geen (ik heb celeigenschappen geprobeerd) optie voor vinden.
Iemand een idee?
jaquote:
los van dit alles...quote:Op maandag 30 mei 2011 10:45 schreef -J-D- het volgende:
Beste DIG-vrienden,
Ik heb een Excel-bestand met daarin allerlei weddenschappen die ik heb afgesloten bij allerlei bookmakers. In dat bestand houd ik bij welke bets winnend zijn en welke niet.
Zie http://gyazo.com/2b386794881542599b5269455f9f3524.png
Zoals je ziet, zit er een kolom in waarbij per weddenschap wordt aangegeven wat de winst of verlies is. Nu wil ik graag een nieuw tabblad maken waar een grafiek in komt te staan. Deze grafiek moet de winst op de verticale as komen en de tijd op de horizontale as. Zoals je ziet hebben, sommige dagen geen weddenschappen en sommige dagen meerdere.
Ik heb weinig ervaring met Excel op wat basisvaardigheden na. Deze sheet is dan ook niet door mezelf ontworpen.
Het feit dat sommige dagen meerdere weddenschappen hebben en sommigen nul, maakt het voor mij niet makkelijker. Ook het feit dat ik gegegens uit een ander tabblad moet halen (aangezien de grafiek niet op dit blad moet komen) maakt het lastig.
Kan iemand mij vertellen hoe ik die grafiek kan maken? Ik heb al wat lopen stoeien met de grafieken, maar doe allerlei dingen fout. Krijg niet eens de assen juist
moet de invoer in 1 cel, of mag het ook in 2 cellen? (dus 1 cel met uur, 1 cel met minuut, en dat dus 2x)quote:
Ik gok niet, ik wed.quote:Op maandag 30 mei 2011 22:45 schreef Holy_Goat het volgende:
[..]
los van dit alles...
wut the fuck.
Hoeveel gok jij eigenlijklijkt me niet heel gezond
dan is het goedquote:Op maandag 30 mei 2011 22:48 schreef -J-D- het volgende:
[..]
Ik gok niet, ik wed.
Geloof me of niet, maar ik heb de statistieken van de afgelopen 9 jaar bijgehouden. Geloof maar dat het winstgevend is. Twee weken op vakantie en dan niet wedden? Geen probleem.
Heb trouwens nog een extreem omslachtige formule voor je geklust voor als je beetje grappig wilt doenquote:
1 | =AFRONDEN.NAAR.BENEDEN((AFRONDEN.NAAR.BENEDEN(A1;0)*60+REST(A1;1)*100 + AFRONDEN.NAAR.BENEDEN(A2;0)*60+REST(A2;1)*100)/60;0)+REST((AFRONDEN.NAAR.BENEDEN(A1;0)*60+REST(A1;1)*100 + AFRONDEN.NAAR.BENEDEN(A2;0)*60+REST(A2;1)*100)/60;1)*0,6 |
Alleen in dit Excel bestand. Ik had er al 2 weken in gewerkt en opeens veranderden alle regels waar Range met een hoofdletter in staat naar range met een kleine letter.quote:Op donderdag 26 mei 2011 08:40 schreef Deetch het volgende:
Gebeurt dat in alle code die je maakt in VBA? Of alleen in een specifieke macro?
Probeer ik grappig te doen?quote:Op maandag 30 mei 2011 22:56 schreef Holy_Goat het volgende:
Heb trouwens nog een extreem omslachtige formule voor je geklust voor als je beetje grappig wilt doen
Aah oke ik ga er mee aan de gang, thnx.quote:Op maandag 30 mei 2011 22:56 schreef Holy_Goat het volgende:
[..]
dan is het goed
[..]
Heb trouwens nog een extreem omslachtige formule voor je geklust voor als je beetje grappig wilt doen
[ code verwijderd ]
(sorry, in het NL op deze pc, maar kan file wel geven)
in cel A1 heb je HH,MM staan (let op, met komma ipv : !)
in cel A2 heb je HH,MM staan (let op, met komma ipv : !)
Antwoord in dit geval in A3: 28276,18
copy pasta-en danquote:Op dinsdag 31 mei 2011 15:33 schreef nils7 het volgende:
[..]
Aah oke ik ga er mee aan de gang, thnx.
Excel is hier in het Nederlands dus dat scheelt.
1 2 3 4 5 6 7 8 9 10 11 12 | Tabel 1 a 2 b 3 c 4 Tabel 2 a c Gewenste uitkomst a 2 c 4 |
maar ik wil niets optellenquote:Op donderdag 2 juni 2011 10:44 schreef Pakspul het volgende:
Kijk eens naar som.als. als je maar één record van een mogelijk hebt moet de sommatie geen probleem leveren.
Dan zou er bij gewenste uitkomst ook "b -- 3" komen te staan, en dat moet niet..quote:Op donderdag 2 juni 2011 10:44 schreef Pakspul het volgende:
Kijk eens naar som.als. als je maar één record van een mogelijk hebt moet de sommatie geen probleem leveren.
met de aanname dat er meerdere combinaties van 'b' aanwezig zijn.quote:Op donderdag 2 juni 2011 11:08 schreef qu63 het volgende:
[..]
Dan zou er bij gewenste uitkomst ook "b -- 3" komen te staan, en dat moet niet..
In het voorbeeld komen alleen a en c in beide tabellen voor..quote:Op donderdag 2 juni 2011 11:17 schreef Pakspul het volgende:
[..]
met de aanname dat er meerdere combinaties van 'b' aanwezig zijn.
* Pakspul slingert de pc wel eens aan volling een voorgelegd te bouwen.
Kan het zo zijn dat in kolom F iets staat wat in A niet staat?quote:Op donderdag 2 juni 2011 11:29 schreef Misan het volgende:
http://uploadpic.org/v.php?img=EQ2PF9reXq
Ik wil een derde tabel maken waarin per cel uit kolom A gekeken wordt of deze in kolom F voorkomt en indien dit het geval is dan moet deze weergegeven worden. Als dat gelukt is dan kan ik met de uitkomst en een VLOOKUP de rest vullen.
jepquote:Op donderdag 2 juni 2011 11:30 schreef qu63 het volgende:
[..]
Kan het zo zijn dat in kolom F iets staat wat in A niet staat?
quote:Sub BepaalDoorsnede()
Dim n1 As Integer, n2 As Integer
n1 = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row 'Aantal rijen in lijst 1
n2 = ActiveSheet.Cells(Rows.Count, "D").End(xlUp).Row 'Aantal rijen in lijst 2
teller = 1
vorigeLetter = ""
For i = 1 To n2
On Error Resume Next
letter = Range("D" & i)
If letter <> vorigeLetter Then
getal = WorksheetFunction.VLookup(letter, Range("A1:B" & n1), 2, 0)
If Err.Number = 0 Then
Range("F" & teller) = letter
Range("G" & teller) = getal
teller = teller + 1
End If
vorigeLetter = letter
End If
Next i
End Sub
Kolom selecteren en dan het vak linksbovenin waar dan 8Rx1K oid staat vervangen door Datum/Naam/Bedrag/Whateverquote:Op vrijdag 3 juni 2011 13:04 schreef San_Andreas het volgende:
ik heb een uitgebreide tabel met kolommen en vooral heel veel rijen. Nu wil ik elke kolom een naam geven (bv datum, naam, bedrag). Dat is geen probleem maar er moet een manier zijn om dat handig te managen. Ik weet alleen niet hoe die functie/techniek in Excel heet.
volgens mij is dit hem (in OpenOffice geef ik toe):quote:Op maandag 6 juni 2011 09:25 schreef sanger het volgende:
Ik heb weer eens een vraag
Ik heb een tabel met 18 rijen. Deze rijen hebben een bepaalde index (getal van 1 - 18). Nu is een bepaald getal welke ik over die 18 rijen mag verdelen. Dit getal voer ik in in een invulveld.
Ik ben nu op zoek naar een formule die het te verdelen getal op de juiste manier verdeeld over de 18 rijen. Mocht dit getal hoger zijn dan 18, moet er eerst over iedere rij 1 bij geteld worden en vervolgens het restant verdeeld worden over de resterende rijen op basis van de index (waarbij de kleinste indexwaarde als eerst komt).
Dus bv. ik heb 22 te verdelen over de 18 rijen. Dan is dus op iedere rij 1, en op de 4 rijen met de laagste index dus een extra (dus eigenlijk 2).
Ik kan hier op me werk niet op uploadsites komen, maar ik heb een Excel uitgewerkt waar precies instaat wat ik wil. Die kan ik desgewenst wel mailen
Iemand een idee hoe dit te doen?
Een simpele manier om het op te lossen:quote:Op maandag 6 juni 2011 09:25 schreef sanger het volgende:
Ik heb weer eens een vraag
Ik heb een tabel met 18 rijen. Deze rijen hebben een bepaalde index (getal van 1 - 18). Nu is een bepaald getal welke ik over die 18 rijen mag verdelen. Dit getal voer ik in in een invulveld.
Ik ben nu op zoek naar een formule die het te verdelen getal op de juiste manier verdeeld over de 18 rijen. Mocht dit getal hoger zijn dan 18, moet er eerst over iedere rij 1 bij geteld worden en vervolgens het restant verdeeld worden over de resterende rijen op basis van de index (waarbij de kleinste indexwaarde als eerst komt).
Dus bv. ik heb 22 te verdelen over de 18 rijen. Dan is dus op iedere rij 1, en op de 4 rijen met de laagste index dus een extra (dus eigenlijk 2).
Ik kan hier op me werk niet op uploadsites komen, maar ik heb een Excel uitgewerkt waar precies instaat wat ik wil. Die kan ik desgewenst wel mailen
Iemand een idee hoe dit te doen?
quote:Op maandag 6 juni 2011 10:07 schreef San_Andreas het volgende:
[..]
volgens mij is dit hem (in OpenOffice geef ik toe):
A1 = 22
A2 = QUOTIENT( $A$1; 18)
A3 = REST( $A$1;18)
vervolgens stop je deze formule in je kolommen:
= $A$2+ ALS( EN($A$3 > 0 ; KOLOM(A14) <= $A$3); 1; 0)
gebruik RIJ ipv KOLOM als je met rijen wil werken
Ik krijg ze eigenlijk allebei niet goed.quote:Op maandag 6 juni 2011 10:09 schreef mrbombastic het volgende:
[..]
Een simpele manier om het op te lossen:
- Stel D1 is je invulveld (22).
- Stel kolom A is je kolom met indices (1-18).
Zet in D2: max(A:A)
- Zet in D3: =AFRONDEN.NAAR.BENEDEN(D1/D2;0)
- Zet in D4: =REST(E1;E2)
- Zet in B1: =E$3+ALS(A1<=E$4;1;0) en trek dit door naar beneden.
My bad, ik ben van kolom E naar kolom D verwisseld, alleen ben ik dit in de laatste 2 stappen vergeten.quote:Op maandag 6 juni 2011 10:50 schreef sanger het volgende:
[..]
[..]
Ik krijg ze eigenlijk allebei niet goed.
Misschien is het makkelijker als ik iets meer info geef over de sheet zelf
• Het te verdelen getal staat in D3
• De indices staan in C6 tm C23
• Het resultaat van de formule moet in E6 tm E23 terechtkomen
Nu werkt het inderdaadquote:Op maandag 6 juni 2011 10:57 schreef mrbombastic het volgende:
[..]
My bad, ik ben van kolom E naar kolom D verwisseld, alleen ben ik dit in de laatste 2 stappen vergeten.
- Zet in D4 (of ergens anders): =AANTAL(C6:C23)
- Zet in D5 (of ergens anders): =AFRONDEN.NAAR.BENEDEN(D3/D4;0)
- Zet in D6 (of ergens anders): =REST(D3;D4)
- Zet in E6: =D$5+ALS(C6<=D$6;1;0) en trek dit door naar beneden.
Wat wil je precies dat Excel voor je doet?quote:Op dinsdag 7 juni 2011 11:45 schreef DoorgestokenKaart het volgende:
Ik heb in excel een hele waslijst aan grootboekrekeningen die steeds verder gespecificeerd worden. Het hoogste (minst gespecificeerde) niveau is 2 cijfers (10, 11, 20, 30 etc. etc.) en het diepste (meest gespecificeerde) niveau bestaat uit 8 cijfers.
Nu wil ik graag in excel vanaf het hoogste niveau (2 cijfers) steeds verder kunnen specificeren naar het niveau met 8 cijfers. Weet iemand of dit mogelijk is in excel? Ik heb hier niet de beschikking over andere softwarepakketten.
Een beetje dit idee:
[ afbeelding ]
Met automatische opmaak en wat als()-formules moet je toch ver kunnen komen ;-)quote:Op dinsdag 7 juni 2011 12:11 schreef DaFan het volgende:
Gegevens - Groeperen
Maar wordt niet zo mooi als hierboven
Tnxquote:
Ik wil het overzichtelijker hebben. Het is een lijst van ruim 20.000 grootboekrekeningen. Ik wil graag als eerste overzicht alle groepboekrekeningen met 2 cijfers zichtbaar hebben, en van daaruit verder specificeren.quote:Op dinsdag 7 juni 2011 12:06 schreef qu63 het volgende:
[..]
Wat wil je precies dat Excel voor je doet?
Je kan gewoon in kolom A de grootboekrekening invullen (van 2 tot 8 cijfers dus) en dan in B de naam, in C en D debet en credit, etc.
Met MySAP ERP Financials kan je het wel voor elkaar krijgen hoorquote:Op woensdag 8 juni 2011 15:28 schreef DaFan het volgende:
Of in SQL, of Exact of in Access of in Paint.
Sap is ERP Deetch...
1 2 3 4 5 | Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("C23")) Is Nothing Then Call Vernieuwen End If 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 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 | Sub Vernieuwen() ' ' Vernieuwen Macro ' ' Sneltoets: Ctrl+Shift+V ' Application.ScreenUpdating = False Sheets("Hulpsheet Sven").PivotTables("Draaitabel9").PivotCache.Refresh Sheets("Hulpsheet Sven").PivotTables("Draaitabel9").PivotFields("Adviseur FCBV").AutoSort _ xlAscending, "Adviseur FCBV" Sheets("Hulpsheet Sven").PivotTables("Draaitabel10").PivotCache.Refresh Sheets("Hulpsheet Sven").PivotTables("Draaitabel10").PivotFields("Adviseur FCBV").AutoSort _ xlAscending, "Adviseur FCBV" Sheets("Hulpsheet Sven").PivotTables("Draaitabel11").PivotCache.Refresh Sheets("Hulpsheet Sven").PivotTables("Draaitabel11").PivotFields("Adviseur STEW").AutoSort _ xlAscending, "Adviseur STEW" Sheets("Hulpsheet Sven").PivotTables("Draaitabel12").PivotCache.Refresh Sheets("Hulpsheet Sven").PivotTables("Draaitabel12").PivotFields("Adviseur FCBV").AutoSort _ xlAscending, "Adviseur FCBV" Sheets("Hulpsheet Sven").PivotTables("Draaitabel13").PivotCache.Refresh Sheets("Hulpsheet Sven").PivotTables("Draaitabel13").PivotFields("Adviseur FCBV mbt MB!"). _ AutoSort xlAscending, "Adviseur FCBV mbt MB!" Sheets("Hulpsheet Sven").PivotTables("Draaitabel14").PivotCache.Refresh Sheets("Hulpsheet Sven").PivotTables("Draaitabel14").PivotFields( _ "Adviseur FCBV voor MB opdracht").AutoSort xlAscending, _ "Adviseur FCBV voor MB opdracht" Sheets("Hulpsheet Sven").PivotTables("Draaitabel15").PivotCache.Refresh Sheets("Hulpsheet Sven").PivotTables("Draaitabel15").PivotFields("Adviseur FCBV").AutoSort _ xlAscending, "Adviseur FCBV" Sheets("Hulpsheet Sven").PivotTables("Draaitabel16").PivotCache.Refresh Sheets("Hulpsheet Sven").PivotTables("Draaitabel16").PivotFields("Adviseur FCBV").AutoSort _ xlAscending, "Adviseur FCBV" Sheets("Hulpsheet Sven").PivotTables("Draaitabel17").PivotCache.Refresh Sheets("Hulpsheet Sven").PivotTables("Draaitabel17").PivotFields("Adviseur FCBV mbt IFB"). _ AutoSort xlAscending, "Adviseur FCBV mbt IFB" Sheets("Hulpsheet Sven").PivotTables("Draaitabel18").PivotCache.Refresh Sheets("Hulpsheet Sven").PivotTables("Draaitabel18").PivotFields("Adviseur STEW").AutoSort _ xlAscending, "Adviseur STEW" Sheets("Hulpsheet Sven").PivotTables("Draaitabel19").PivotCache.Refresh Sheets("Hulpsheet Sven").PivotTables("Draaitabel19").PivotFields("Adviseur STEW").AutoSort _ xlAscending, "Adviseur STEW" Sheets("Hulpsheet Sven").PivotTables("Draaitabel20").PivotCache.Refresh Sheets("Hulpsheet Sven").PivotTables("Draaitabel20").PivotFields("Adviseur FCBV").AutoSort _ xlAscending, "Adviseur FCBV" Sheets("Hulpsheet Sven").PivotTables("Draaitabel21").PivotCache.Refresh Sheets("Hulpsheet Sven").PivotTables("Draaitabel21").PivotFields("Adviseur FCBV").AutoSort _ xlAscending, "Adviseur FCBV" Sheets("Hulpsheet Sven").PivotTables("Draaitabel22").PivotCache.Refresh Sheets("Hulpsheet Sven").PivotTables("Draaitabel22").PivotFields("Adviseur FCBV").AutoSort _ xlAscending, "Adviseur FCBV" Sheets("Hulpsheet Sven").PivotTables("Draaitabel23").PivotCache.Refresh Sheets("Hulpsheet Sven").PivotTables("Draaitabel23").PivotFields("Adviseur FCBV").AutoSort _ xlAscending, "Adviseur FCBV" Sheets("Hulpsheet Sven").PivotTables("Draaitabel27").PivotCache.Refresh Sheets("Hulpsheet Sven").PivotTables("Draaitabel27").PivotFields("Totaal").AutoSort _ xlAscending, "Totaal" Application.ScreenUpdating = True End Sub |
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |