Dat klopt dan toch ook?quote:Op woensdag 10 april 2013 16:16 schreef GoodGawd het volgende:
[ code verwijderd ]
Ik heb dit geprobeerd, maar het enige wat ik zie is Formatting Report in de linker onderhoek?
Oh, ik dacht je krijgt een mooit tijdbalkje? Je ziet letterlijk alleen dat textje.quote:
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:Op donderdag 11 april 2013 13:17 schreef GoodGawd het volgende:
[..]
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") |
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 |
=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?
Daar kun je dan de functie =weeknum(now())-1 voor gebruiken toch?quote:Op donderdag 11 april 2013 15:35 schreef GoodGawd het volgende:
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?
Een tekstvak invoegen en deze 180 graden draaien, maar of je dat wilt is maar de vraag.quote:Op maandag 15 april 2013 13:01 schreef Janneke141 het volgende:
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:Op maandag 15 april 2013 13:10 schreef Basp1 het volgende:
[..]
Een tekstvak invoegen en deze 180 graden draaien, maar of je dat wilt is maar de vraag.
er is een ondersteboven lettertype, toch?quote:Op maandag 15 april 2013 13:17 schreef Janneke141 het volgende:
[..]
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:Op maandag 15 april 2013 13:20 schreef Holy_Goat het volgende:
[..]
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:Op maandag 15 april 2013 13:24 schreef Basp1 het volgende:
[..]
Maar als je dan die file dan op een andere pc wilt tonen moet je ook weer dat lettertype op die pc geinstalleerd hebben.
Let er wel op dat je dan je getallen zelf even ook van links naar rechts moet omdraaienquote:Op maandag 15 april 2013 13:25 schreef Janneke141 het volgende:
[..]
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:Op zondag 14 april 2013 23:00 schreef GoodGawd het volgende:
Kan je dat in een VBA code zetten-'?
Hij moet dus filter selecteren van weeknr is now minus 1.
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 |
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 |
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" ?> |
Je doet " & jjVorigeweek & " - " & wwVorigeWeek" ipv jjVorigeweek & " - " & wwVorigeWeekquote:Op dinsdag 16 april 2013 13:26 schreef GoodGawd het volgende:
[ 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?
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |