abonnement bol.com Unibet Coolblue
  donderdag 11 april 2013 @ 13:09:32 #126
62215 qu63
..de tijd drinkt..
pi_125150891
quote:
0s.gif 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?
Dat klopt dan toch ook?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_125150941
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.
  donderdag 11 april 2013 @ 13:17:22 #128
157428 GoodGawd
This is your captain speaking!
pi_125151172
quote:
0s.gif Op donderdag 11 april 2013 13:09 schreef qu63 het volgende:

[..]

Dat klopt dan toch ook?
Oh, ik dacht je krijgt een mooit tijdbalkje? Je ziet letterlijk alleen dat textje.
Blues ain't nothing but a good man feeling bad...
  donderdag 11 april 2013 @ 13:43:47 #129
62215 qu63
..de tijd drinkt..
pi_125152127
quote:
0s.gif 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.
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:
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]
  donderdag 11 april 2013 @ 15:07:42 #130
157428 GoodGawd
This is your captain speaking!
pi_125155593
Alright, thanks
Blues ain't nothing but a good man feeling bad...
  donderdag 11 april 2013 @ 15:35:41 #131
157428 GoodGawd
This is your captain speaking!
pi_125156589
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?
Blues ain't nothing but a good man feeling bad...
  vrijdag 12 april 2013 @ 14:42:25 #132
157428 GoodGawd
This is your captain speaking!
pi_125196601
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:

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...
pi_125199283
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.
pi_125199564
quote:
2s.gif 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?
=ALS(ISFOUT(formule);0;formule)

Dan maakt ie van errors een 0. Anders vervangen door "" (leeg) als je dat fraaier vindt.
pi_125199725
Ik ben vooral opzoek naar een methode dat makkelijk toe te passen op zo'n 2500 formules verspreid over een aantal werbladen.
Aldus.
  vrijdag 12 april 2013 @ 16:16:40 #136
85514 ralfie
!Yvan eht nioj
pi_125199938
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)
pi_125199976
Hmm. Maar dan negeert hij ook andere fouten natuurlijk? Het is wel een optie.
Aldus.
pi_125290618
quote:
0s.gif 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?
Daar kun je dan de functie =weeknum(now())-1 voor gebruiken toch?
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
  zondag 14 april 2013 @ 23:00:36 #139
157428 GoodGawd
This is your captain speaking!
pi_125291792
Kan je dat in een VBA code zetten-'?

Hij moet dus filter selecteren van weeknr is now minus 1.
Blues ain't nothing but a good man feeling bad...
  maandag 15 april 2013 @ 13:01:47 #140
346939 Janneke141
Green, green grass of home
pi_125307189
Is het mogelijk om in Excel tekst ondersteboven in een cel weer te geven?
Opinion is the medium between knowledge and ignorance (Plato)
pi_125307459
quote:
0s.gif 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?
Een tekstvak invoegen en deze 180 graden draaien, maar of je dat wilt is maar de vraag. ;)
  maandag 15 april 2013 @ 13:17:53 #142
346939 Janneke141
Green, green grass of home
pi_125307693
quote:
0s.gif 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. ;)
Niet dus, gaat echt om berekende velden in een cel. Was al bang dat het niks zou worden.
Opinion is the medium between knowledge and ignorance (Plato)
  maandag 15 april 2013 @ 13:20:41 #143
249182 Holy_Goat
mhèèhèhè
pi_125307783
quote:
0s.gif 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.
er is een ondersteboven lettertype, toch?
pi_125307875
quote:
0s.gif Op maandag 15 april 2013 13:20 schreef Holy_Goat het volgende:

[..]

er is een ondersteboven lettertype, toch?
Maar als je dan die file dan op een andere pc wilt tonen moet je ook weer dat lettertype op die pc geinstalleerd hebben.
  maandag 15 april 2013 @ 13:25:45 #145
346939 Janneke141
Green, green grass of home
pi_125307913
quote:
0s.gif 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.
Dat is in dit geval niet zo'n probleem, genereren en printen op/vanaf eigen laptop is voldoende. Goede tip Holy-goat!
Opinion is the medium between knowledge and ignorance (Plato)
  maandag 15 april 2013 @ 14:26:51 #146
249182 Holy_Goat
mhèèhèhè
pi_125310136
quote:
0s.gif 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!
Let er wel op dat je dan je getallen zelf even ook van links naar rechts moet omdraaien :P
pi_125310381
quote:
0s.gif 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.
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.
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
  dinsdag 16 april 2013 @ 13:26:27 #148
157428 GoodGawd
This is your captain speaking!
pi_125350812
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...
  dinsdag 16 april 2013 @ 15:11:12 #149
62215 qu63
..de tijd drinkt..
pi_125354754
quote:
0s.gif 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?
Je doet " & jjVorigeweek & " - " & wwVorigeWeek" ipv jjVorigeweek & " - " & wwVorigeWeek

Als ik t goed zie..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  dinsdag 16 april 2013 @ 15:35:48 #150
157428 GoodGawd
This is your captain speaking!
pi_125355702
nope, werkt nog niet, heb al een aantal variaten geprobbeerd
Blues ain't nothing but a good man feeling bad...
abonnement bol.com Unibet Coolblue
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')