DIG Digital Corner
Alles wat je altijd al over computers, hardware, software, internet en elektronische gadgets had willen weten, maar niet op Tweakers.net durft te vragen.
quote:Op maandag 1 april 2013 18:12 schreef snabbi het volgende:
[..]
Ik heb er nog eens over nagedacht. Ik kom ook niet tot een goede oplossing. Het enige wat je kan doen is de kolom met je bedragen dubbel te maken (dus een fake kolom met dezelfde waarden toevoegen). Nu kan je beide opnemen in je waarden veld en op die manier zal voor elke uitgave en ook het bijbehorende eind totaal je weergave op gemiddeld gezet kunnen worden.
heel jammer dit.
Beste Fokkers,
even een kort vraagje.
Ik heb kolom A1 t/m Z1 vol staan met percentages.
Nou zou ik graag willen dat excel automatisch de 3 laagste percentages rood maakt
en de 3 hoogste percentages groen kleurt!
Hoe pak ik dit aan met een formule, ik kom er niet uit?!
Alvast bedankt!
even een kort vraagje.
Ik heb kolom A1 t/m Z1 vol staan met percentages.
Nou zou ik graag willen dat excel automatisch de 3 laagste percentages rood maakt
en de 3 hoogste percentages groen kleurt!
Hoe pak ik dit aan met een formule, ik kom er niet uit?!
Alvast bedankt!
Attended: UFC 99 - UFC 167 - UFC 175 - TUF 19 Finale - Invicta 13 - UFC 189 - Fight Night 84 / 87 / 90 - TUF 23 Finale - UFC 200 - UFC 205
4 time, 4 time, 4 time, 4 time TUP champion!!!
4 time, 4 time, 4 time, 4 time TUP champion!!!
Voorwaardelijke opmaak gebruiken?quote:
Beste Fokkers,
even een kort vraagje.
Ik heb kolom A1 t/m Z1 vol staan met percentages.
Nou zou ik graag willen dat excel automatisch de 3 laagste percentages rood maakt
en de 3 hoogste percentages groen kleurt!
Hoe pak ik dit aan met een formule, ik kom er niet uit?!
Alvast bedankt!
In combinatie met RANG(), denk ik.quote:
Opinion is the medium between knowledge and ignorance (Plato)
Nou, het is me gelukt met voorwaardelijke opmaakquote:
Maar ik heb ditzelfde in A2 t/m Z2, A3 t/m Z3 etc etc, moet ik nou voor elke regel die voorwaardelijke opmaak doen, dat kost nogal wat tijd?!
Want als ik alle regels tegelijk selecteer pakt hij alleen de 3 hoogste en 3 laagste van het hele werkblad?? terwijl ik dit per regel moet kunnen zien.
[ Bericht 9% gewijzigd door Tazmaniac op 08-04-2013 12:29:33 ]
Attended: UFC 99 - UFC 167 - UFC 175 - TUF 19 Finale - Invicta 13 - UFC 189 - Fight Night 84 / 87 / 90 - TUF 23 Finale - UFC 200 - UFC 205
4 time, 4 time, 4 time, 4 time TUP champion!!!
4 time, 4 time, 4 time, 4 time TUP champion!!!
Wat heb je ingevoerd bij de voorwaardelijke opmaak? Want het zou wel moeten kunnen als je op een slimme manier wat $-tekens neerzet.quote:
[..]
Nou, het is me gelukt met voorwaardelijke opmaak
Maar ik heb ditzelfde in A2 t/m Z2, A3 t/m Z3 etc etc, moet ik nou voor elke regel die voorwaardelijke opmaak doen, dat kost nogal wat tijd?!
Want als ik alle regels tegelijk selecteer pakt hij alleen de 3 hoogste en 3 laagste van het hele werkblad?? terwijl ik dit per regel moet kunnen zien.
Opinion is the medium between knowledge and ignorance (Plato)
Ik selecteer de regel, dan klik ik op voorwaardelijke opmaak, kleuren schalen, meer regels, alleen waarden met hoogste of laagste rangschikking opmaken.quote:
[..]
Wat heb je ingevoerd bij de voorwaardelijke opmaak? Want het zou wel moeten kunnen als je op een slimme manier wat $-tekens neerzet.
Ik typ zelf dus niks.
Sorry ben hier niet zo handig mee..
Attended: UFC 99 - UFC 167 - UFC 175 - TUF 19 Finale - Invicta 13 - UFC 189 - Fight Night 84 / 87 / 90 - TUF 23 Finale - UFC 200 - UFC 205
4 time, 4 time, 4 time, 4 time TUP champion!!!
4 time, 4 time, 4 time, 4 time TUP champion!!!
Lol, nooit geweten.quote:
Kopieren van die kolom bij de volgende kolom plakken speciaal opmaak.
Thanks Bas en Janneke
Attended: UFC 99 - UFC 167 - UFC 175 - TUF 19 Finale - Invicta 13 - UFC 189 - Fight Night 84 / 87 / 90 - TUF 23 Finale - UFC 200 - UFC 205
4 time, 4 time, 4 time, 4 time TUP champion!!!
4 time, 4 time, 4 time, 4 time TUP champion!!!
Ik heb een excelsheet die een berekening maakt, deze berekening wordt vervolgens geplaatst in een bepaalde tabel in een aparte tab.
Met een macro heb ik de gegevens uit de tabel geexporteerd naar een eigen tabblad en de gegevens getransponeerd weergegeven.
Dit deel werkt prima.
Het probleem is nu echter het volgende:
Ik wil de berekening meerdere keren uitvoeren, de nieuwe gegevens moeten dan na exporteren onder de eerder ingevoerde gegevens komen. Zodat iedere regel een nieuwe export is van de tabel. Hoe kan ik dit in de macro realiseren.
Alvast bedankt
Met een macro heb ik de gegevens uit de tabel geexporteerd naar een eigen tabblad en de gegevens getransponeerd weergegeven.
Dit deel werkt prima.
Het probleem is nu echter het volgende:
Ik wil de berekening meerdere keren uitvoeren, de nieuwe gegevens moeten dan na exporteren onder de eerder ingevoerde gegevens komen. Zodat iedere regel een nieuwe export is van de tabel. Hoe kan ik dit in de macro realiseren.
Alvast bedankt
All management is Strategic Management.
Hallo, wederom een macro vraagstuk:
Voor een bepaalde sheet was het makkelijk om rijen automatisch door te laten trekken, hij wist hoever de data doorgetrokken moest worden door aan een andere data kolom te referen.
Nu heb ik precies hetzelfde alleen nu zijn het zoveel rijen, en de data is zoveel dat ik minuten hier op zit te wachten totdat hij klaar is met rekenen.
Omdat ik elke rij weer apart laat doortrekken, dan gaat ie een tussenrekening maken etc etc.
Hoe kan ik al deze rijen P,Q,R etc t/m AA door laten trekken in 1 keer? Want uiteindelijk worden ze toch even lang als rij D, want daar refereert ie aan. Zie regel 1 van mijn code?
Voor een bepaalde sheet was het makkelijk om rijen automatisch door te laten trekken, hij wist hoever de data doorgetrokken moest worden door aan een andere data kolom te referen.
Nu heb ik precies hetzelfde alleen nu zijn het zoveel rijen, en de data is zoveel dat ik minuten hier op zit te wachten totdat hij klaar is met rekenen.
Omdat ik elke rij weer apart laat doortrekken, dan gaat ie een tussenrekening maken etc etc.
Hoe kan ik al deze rijen P,Q,R etc t/m AA door laten trekken in 1 keer? Want uiteindelijk worden ze toch even lang als rij D, want daar refereert ie aan. Zie regel 1 van mijn code?
| 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 | LRD = Range("D" & Rows.Count).End(xlUp).Row LRP = Range("P" & Rows.Count).End(xlUp).Row Range("P" & LRP).AutoFill Destination:=Range("P" & LRP & ":P" & LRD), Type:=xlFillCopy On Error Resume Next LRQ = Range("Q" & Rows.Count).End(xlUp).Row Range("Q" & LRQ).AutoFill Destination:=Range("Q" & LRQ & ":Q" & LRD), Type:=xlFillCopy On Error Resume Next LRR = Range("R" & Rows.Count).End(xlUp).Row Range("R" & LRR).AutoFill Destination:=Range("R" & LRR & ":R" & LRD), Type:=xlFillCopy On Error Resume Next LRS = Range("S" & Rows.Count).End(xlUp).Row Range("S" & LRS).AutoFill Destination:=Range("S" & LRS & ":S" & LRD), Type:=xlFillCopy On Error Resume Next LRT = Range("T" & Rows.Count).End(xlUp).Row Range("T" & LRT).AutoFill Destination:=Range("T" & LRT & ":T" & LRD), Type:=xlFillCopy On Error Resume Next LRU = Range("U" & Rows.Count).End(xlUp).Row Range("U" & LRU).AutoFill Destination:=Range("U" & LRU & ":U" & LRD), Type:=xlFillCopy On Error Resume Next LRV = Range("V" & Rows.Count).End(xlUp).Row Range("V" & LRV).AutoFill Destination:=Range("V" & LRV & ":V" & LRD), Type:=xlFillCopy On Error Resume Next LRW = Range("W" & Rows.Count).End(xlUp).Row Range("W" & LRW).AutoFill Destination:=Range("W" & LRW & ":W" & LRD), Type:=xlFillCopy On Error Resume Next LRX = Range("X" & Rows.Count).End(xlUp).Row Range("X" & LRX).AutoFill Destination:=Range("X" & LRX & ":X" & LRD), Type:=xlFillCopy On Error Resume Next LRY = Range("Y" & Rows.Count).End(xlUp).Row Range("Y" & LRY).AutoFill Destination:=Range("Y" & LRY & ":Y" & LRD), Type:=xlFillCopy On Error Resume Next LRZ = Range("Z" & Rows.Count).End(xlUp).Row Range("Z" & LRZ).AutoFill Destination:=Range("Z" & LRZ & ":Z" & LRD), Type:=xlFillCopy On Error Resume Next LRAA = Range("AA" & Rows.Count).End(xlUp).Row Range("AA" & LRAA).AutoFill Destination:=Range("AA" & LRAA & ":AA" & LRD), Type:=xlFillCopy |
Blues ain't nothing but a good man feeling bad...
Zorgen dat hij de laatste lege regel vindt en daar op gaat staan, zoiets als:quote:
Ik heb een excelsheet die een berekening maakt, deze berekening wordt vervolgens geplaatst in een bepaalde tabel in een aparte tab.
Met een macro heb ik de gegevens uit de tabel geexporteerd naar een eigen tabblad en de gegevens getransponeerd weergegeven.
Dit deel werkt prima.
Het probleem is nu echter het volgende:
Ik wil de berekening meerdere keren uitvoeren, de nieuwe gegevens moeten dan na exporteren onder de eerder ingevoerde gegevens komen. Zodat iedere regel een nieuwe export is van de tabel. Hoe kan ik dit in de macro realiseren.
Alvast bedankt
Range("D1048576").End(xlUp).Offset(1, 0).Select
Blues ain't nothing but a good man feeling bad...
@ goodgawd, moet hij perse die tussenberekening maken, anders zou je wel het tussendoor berekenen in je macro uit kunnen schakelen, dat zou misschien de boel iets sneller kunnen maken.
http://office.webforums.nl/viewtopic.php?p=96805
Hier op mijn werk hebben sommige mensen ook last van trage sheets maar dan ga je eens kijken en blijken er stapels plaatjes op te staan en zoveel verschillende opmaken in te zitten dat dat de reden van traagheid soms ook is.
http://office.webforums.nl/viewtopic.php?p=96805
Hier op mijn werk hebben sommige mensen ook last van trage sheets maar dan ga je eens kijken en blijken er stapels plaatjes op te staan en zoveel verschillende opmaken in te zitten dat dat de reden van traagheid soms ook is.
Ik denk dat MOA en MOU uit de OP je wel verder kunnen helpen.quote:Op dinsdag 9 april 2013 16:39 schreef GoodGawd het volgende:
Hallo, wederom een macro vraagstuk:
Voor een bepaalde sheet was het makkelijk om rijen automatisch door te laten trekken, hij wist hoever de data doorgetrokken moest worden door aan een andere data kolom te referen.
Nu heb ik precies hetzelfde alleen nu zijn het zoveel rijen, en de data is zoveel dat ik minuten hier op zit te wachten totdat hij klaar is met rekenen.
Omdat ik elke rij weer apart laat doortrekken, dan gaat ie een tussenrekening maken etc etc.
Hoe kan ik al deze rijen P,Q,R etc t/m AA door laten trekken in 1 keer? Want uiteindelijk worden ze toch even lang als rij D, want daar refereert ie aan. Zie regel 1 van mijn code?
[ code verwijderd ]
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Ik heb een mooi scatterplot gemaakt. Maar als ik hiervan een lijngrafiek maak, dan telt hij de lege cellen als '0'. Ik wil dat hij de lege cellen negeert, zodat een mooie lijn ontstaat van elke categorie (5, 10, 10EM en 21).
Het is excel mac 2011. Dus, hoe zorg ik dat ie empty cells negeert in de grafiek?
Dit al geprobeerd?quote:
[ afbeelding ]
Ik heb een mooi scatterplot gemaakt. Maar als ik hiervan een lijngrafiek maak, dan telt hij de lege cellen als '0'. Ik wil dat hij de lege cellen negeert, zodat een mooie lijn ontstaat van elke categorie (5, 10, 10EM en 21).
Het is excel mac 2011. Dus, hoe zorg ik dat ie empty cells negeert in de grafiek?
http://www.excelforum.com(...)s-in-chart-data.html
http://office.microsoft.c(...)HA010048555.aspx#BM2
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Jeetje, was dat nu zo moeilijk? Ofwel, ik keek er totaal overheen. Thanks! Werktquote:
[..]
Dit al geprobeerd?
http://www.excelforum.com(...)s-in-chart-data.html
http://office.microsoft.c(...)HA010048555.aspx#BM2
Thanks, ga het straks eens proberen uit te vogelenquote:
[..]
Zorgen dat hij de laatste lege regel vindt en daar op gaat staan, zoiets als:
Range("D1048576").End(xlUp).Offset(1, 0).Select
All management is Strategic Management.
De MOA werkt, ik zie alleen niet of die pseudo code werkt. De macro functioneert prima, maar ik zie geen statusbar?quote:
[..]
Ik denk dat MOA en MOU uit de OP je wel verder kunnen helpen.
Ik heb die pseudecode achter de MOA gezet.
Wat moet er tussen de " " komen in de MOU Application.Statusbar = " " ?
Blues ain't nothing but a good man feeling bad...
| 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 | 'switch of updating to speed your code & stop irritating flickering Application.ScreenUpdating = False 'Use the Status Bar to inform user of the macro's progress 'change the cursor to hourglass Application.Cursor = xlWait ' makes sure that the statusbar is visible Application.DisplayStatusBar = True 'add your message to status bar Application.StatusBar = "Formatting Report..." 'insert your code here 'restore default cursor Application.Cursor = xlDefault ' gives control of the statusbar back to the programme Application.StatusBar = False Application.ScreenUpdating = True End Sub |
Ik heb dit geprobeerd, maar het enige wat ik zie is Formatting Report in de linker onderhoek?
Blues ain't nothing but a good man feeling bad...
bij "Gekozen opties" staat A1, B3, F3. Dit moet zijn: B3, D4, F4
Ik heb een kolom met items (A t/m E) en 5 kolommen met opties (1t/m5).
Als ik een X plaats bij een van de opties komt die automatisch in de kolom "Gekozen opties" te staan adhv de 'coördinaten' van de cellen waarin de X-jes staan.
Nou wil ik de gekozen opties automatisch in een tabel plaatsen zoals te zien vanaf cel A10.
Dus zonder leegruimtes etc.
HOe doe ik dit? T liefst zonder macro's ivm systeembeperkingen op m'n werk.
XL 2010.
Ik snap eerlijkgezegd niets van het rechter-rijtje opties, het lijkt namelijk niet op waar de kruisjes staan.
Verder heb ik wel een idee over hoe je kan doen wat je wil, maar dat wordt niet heel charmant. Maakt de volgorde nog uit?
Verder heb ik wel een idee over hoe je kan doen wat je wil, maar dat wordt niet heel charmant. Maakt de volgorde nog uit?
Opinion is the medium between knowledge and ignorance (Plato)
Er staat een fout in het plaatje. Zie tekst direct onder plaatje.quote:
Ik snap eerlijkgezegd niets van het rechter-rijtje opties, het lijkt namelijk niet op waar de kruisjes staan.
Verder heb ik wel een idee over hoe je kan doen wat je wil, maar dat wordt niet heel charmant. Maakt de volgorde nog uit?
Het liefst in de volgorde van boven naar beneden, zoals aangegeven.
Laat de systeem beperking opheffen. 
En maak je verhaal duidelijk moeten mensen in de tabel iets kiezen, maar onder de tabel komen de verwijzingen naar de cellen te staan, dat is toch niet logisch.
En maak je verhaal duidelijk moeten mensen in de tabel iets kiezen, maar onder de tabel komen de verwijzingen naar de cellen te staan, dat is toch niet logisch.
Dat klopt dan toch ook?quote:
[ code verwijderd ]
Ik heb dit geprobeerd, maar het enige wat ik zie is Formatting Report in de linker onderhoek?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Ik zal de vraag opnieuw stellen.
Mensen kiezen een 'auto' met een aantal opties. Dit wordt in de tabel bovenaan aangegeven door een 'X' te plaatsen bij de gewenste opties voor het gewenste model/item.
Achteraan de tabel staat een kolom waar de opties per model/item worden verzameld. Dit gaat automatisch.
Ik wil elders (waarschijnlijk op blad2) een tabel met daarin de gekozen opties los van elkaar, onder elkaar, zonder lege ruimtes verzamelen. (De tabel onder de rode streep)
Dus in dit voorbeeld, als iemand nog voor een Jetta met Cruisecontrol kiest, komt in de tabel onderaan, tussen D2 en C4, nog C3 te staan.
Mensen kiezen een 'auto' met een aantal opties. Dit wordt in de tabel bovenaan aangegeven door een 'X' te plaatsen bij de gewenste opties voor het gewenste model/item.
Achteraan de tabel staat een kolom waar de opties per model/item worden verzameld. Dit gaat automatisch.
Ik wil elders (waarschijnlijk op blad2) een tabel met daarin de gekozen opties los van elkaar, onder elkaar, zonder lege ruimtes verzamelen. (De tabel onder de rode streep)
Dus in dit voorbeeld, als iemand nog voor een Jetta met Cruisecontrol kiest, komt in de tabel onderaan, tussen D2 en C4, nog C3 te staan.
Oh, ik dacht je krijgt een mooit tijdbalkje? Je ziet letterlijk alleen dat textje.quote:
Blues ain't nothing but a good man feeling bad...
Als je dat wil laten zien dan ben je nog iedere seconde bezig om je scherm te updaten. Je kan wel aan t einde laten zien hoe lang je code gelopen heeft:quote:
[..]
Oh, ik dacht je krijgt een mooit tijdbalkje? Je ziet letterlijk alleen dat textje.
| 1 2 3 4 | Dim t As Date t = Now() 'andere code MsgBox Format(Now() - t, "hh:mm:ss") |
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Is het trouwens mogelijk met VBA macros een bepaalde waarde in een filter drop down menu te selecteren. Ik heb namelijk een filter met allemaal week datums:
01-2013
02-2013
03-2013
04-2013 etc.
Nu wil ik dat de macro elke keer de afgelopen week selecteert. Maar dat kan ik niet zeggen in mijn code want elke week verandert het week nr.
Dus dan moet ik de macro stoppen, zelf de week selecteren.
Nieuwe macro starten.
Is dit probleem te tackelen?
01-2013
02-2013
03-2013
04-2013 etc.
Nu wil ik dat de macro elke keer de afgelopen week selecteert. Maar dat kan ik niet zeggen in mijn code want elke week verandert het week nr.
Dus dan moet ik de macro stoppen, zelf de week selecteren.
Nieuwe macro starten.
Is dit probleem te tackelen?
Blues ain't nothing but a good man feeling bad...
Waar ik trouwens ook nog mee zit, is het selecteren van alleen visible cells. Bijvoorbeeld als je wat gefilterd heb. Ik weet wel hoe ik die visible cells moet selecteren. Voorbeeld:
Maar met dit krijg je alle visible cells, ik wil nu alleen een top 10 van visible cells. Hoe krijg je dat voor elkaar? Werkt dat met Count ofzo?
| 1 2 3 4 5 6 7 8 9 | Range("A1").Select Do ActiveCell.Offset(1, 0).Select Loop While ActiveCell.EntireRow.Hidden = True Dim rng As Range Set rng = Application.Intersect(ActiveSheet.UsedRange, Range("A2:A65536")) rng.SpecialCells(xlCellTypeVisible).Delete |
Maar met dit krijg je alle visible cells, ik wil nu alleen een top 10 van visible cells. Hoe krijg je dat voor elkaar? Werkt dat met Count ofzo?
Blues ain't nothing but a good man feeling bad...
Ik heb een bestand bomvol formules. Enkele van deze formules hebben als resultaat '#DEEL/0'. Nu draai ik een aantal macros over dit bestand en m'n macro loopt op deze waarden vast. Hoe kan ik dit nu het meest efficient verhelpen?
Aldus.
=ALS(ISFOUT(formule);0;formule)quote:Op vrijdag 12 april 2013 15:59 schreef Z het volgende:
Ik heb een bestand bomvol formules. Enkele van deze formules hebben als resultaat '#DEEL/0'. Nu draai ik een aantal macros over dit bestand en m'n macro loopt op deze waarden vast. Hoe kan ik dit nu het meest efficient verhelpen?
Dan maakt ie van errors een 0. Anders vervangen door "" (leeg) als je dat fraaier vindt.
Ik ben vooral opzoek naar een methode dat makkelijk toe te passen op zo'n 2500 formules verspreid over een aantal werbladen.
Aldus.
in vba doe je:
Application.WorksheetFunction.IsError( rngObject )
of iets minder netjes
on error resume next
(dat gaat ie verder met de volgende regel vba bij een fout)
Application.WorksheetFunction.IsError( rngObject )
of iets minder netjes
on error resume next
(dat gaat ie verder met de volgende regel vba bij een fout)
Daar kun je dan de functie =weeknum(now())-1 voor gebruiken toch?quote:
Is het trouwens mogelijk met VBA macros een bepaalde waarde in een filter drop down menu te selecteren. Ik heb namelijk een filter met allemaal week datums:
01-2013
02-2013
03-2013
04-2013 etc.
Nu wil ik dat de macro elke keer de afgelopen week selecteert. Maar dat kan ik niet zeggen in mijn code want elke week verandert het week nr.
Dus dan moet ik de macro stoppen, zelf de week selecteren.
Nieuwe macro starten.
Is dit probleem te tackelen?
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
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
Kan je dat in een VBA code zetten-'?
Hij moet dus filter selecteren van weeknr is now minus 1.
Hij moet dus filter selecteren van weeknr is now minus 1.
Blues ain't nothing but a good man feeling bad...
Is het mogelijk om in Excel tekst ondersteboven in een cel weer te geven?
Opinion is the medium between knowledge and ignorance (Plato)
Een tekstvak invoegen en deze 180 graden draaien, maar of je dat wilt is maar de vraag.quote:
Is het mogelijk om in Excel tekst ondersteboven in een cel weer te geven?
Niet dus, gaat echt om berekende velden in een cel. Was al bang dat het niks zou worden.quote:
[..]
Een tekstvak invoegen en deze 180 graden draaien, maar of je dat wilt is maar de vraag.
Opinion is the medium between knowledge and ignorance (Plato)
er is een ondersteboven lettertype, toch?quote:
[..]
Niet dus, gaat echt om berekende velden in een cel. Was al bang dat het niks zou worden.
Maar als je dan die file dan op een andere pc wilt tonen moet je ook weer dat lettertype op die pc geinstalleerd hebben.quote:
[..]
er is een ondersteboven lettertype, toch?
Dat is in dit geval niet zo'n probleem, genereren en printen op/vanaf eigen laptop is voldoende. Goede tip Holy-goat!quote:
[..]
Maar als je dan die file dan op een andere pc wilt tonen moet je ook weer dat lettertype op die pc geinstalleerd hebben.
Opinion is the medium between knowledge and ignorance (Plato)
Let er wel op dat je dan je getallen zelf even ook van links naar rechts moet omdraaienquote:
[..]
Dat is in dit geval niet zo'n probleem, genereren en printen op/vanaf eigen laptop is voldoende. Goede tip Holy-goat!
Weeknummers is altijd een beetje lastig omdat er verschillende definities zijn voor wanneer week 1 begint. In de VS gebruiken ze de week waar 1 januari in val als week 1 en begeint een week op zondag. IN NL en volgens ISO is de eerste week de week die minimaal 4 dagen van het nieuwe jaar bevat, beginnend op maandag.quote:
Kan je dat in een VBA code zetten-'?
Hij moet dus filter selecteren van weeknr is now minus 1.
Hiervoor kun je gelukkig de functie DatePart voor gebruiken
Onderstaande code levert denk ik wat je zoekt (ww-yyyy).
In vba is de datum van vandaag altijd de variabele Date en de huidige tijd Time
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | Sub Lastweek() Dim Datum As Date Dim wwVorigeWeek As Integer Dim jjVorigeweek As Integer 'Datum = "2/01/2013" 'testdatum Datum = Date 'datum van vandaag wwVorigeWeek = DatePart("ww", Datum - 7, vbMonday, vbFirstFourDays) 'lees de help van de functie DatePart voor de details van de laatste 2 argumenten 'USA: vbSunday, vbFirstJan 'NL en ISO: vbMonday, vbFirstFourDays If Len(wwVorigeWeek) = 1 Then VorigeWeek = "0" & wwVorigeWeek jjVorigeweek = Year(Datum - 7) MsgBox "Vandaag: " & Datum & Chr(13) & Chr(10) & "VorigeWeek = " & wwVorigeWeek & "-" & jjVorigeweek 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
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 | Sub testttt() ' ' testttt Macro ' Dim Datum As Date Dim wwVorigeWeek As Integer Dim jjVorigeweek As Integer Datum = Date ' wwVorigeWeek = DatePart("ww", Datum - 7, vbMonday, vbFirstFourDays) If Len(wwVorigeWeek) = 1 Then VorigeWeek = "0" & wwVorigeWeek jjVorigeweek = Year(Datum - 7) Vanaf daar is het het riedeltje letterlijk van jou. Hier vul ik hem in, het stukje van week. (hem het even omgedraaid): Sheets("Weekly table E190MP").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Year/Week").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Year/Week").CurrentPage = "& jjVorigeweek & " - " & wwVorigeWeek" ' End Sub |
Als ik hem zo doe, dan selecteert hij niet die filter. Zoals deze dat wel zou doen:
| 1 2 3 4 5 | <?php Sheets("Weekly table E190MP").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Year/Week").ClearAllFilters ActiveSheet.PivotTables("PivotTable1").PivotFields("Year/Week").CurrentPage = "2013-15" ?> |
Maar dan moet je dus elke week die code aanpassen. Wat gaat er hier mis?
[ Bericht 3% gewijzigd door GoodGawd op 16-04-2013 13:39:54 ]
Blues ain't nothing but a good man feeling bad...
Je doet " & jjVorigeweek & " - " & wwVorigeWeek" ipv jjVorigeweek & " - " & wwVorigeWeekquote:
[ code verwijderd ]
Als ik hem zo doe, dan selecteert hij niet die filter. Zoals deze dat wel zou doen:
[ code verwijderd ]
Maar dan moet je dus elke week die code aanpassen. Wat gaat er hier mis?
Als ik t goed zie..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
