abonnement bol.com Unibet Coolblue
  woensdag 15 juni 2011 @ 14:07:08 #251
62215 qu63
..de tijd drinkt..
pi_98200567
quote:
7s.gif Op woensdag 15 juni 2011 13:48 schreef DaFan het volgende:

[..]

Is je waarde in cl leeg leeg of is hij leeg door een formule?
Want dan is cl.Formula natuurlijk nooit ""

cl.Value <> "" is dan beter ;)

vb;
Als ik A1:A10 heb staan
[ code verwijderd ]

(doorgetrokken)
Dan geeft cl.Value = 9
cl.Formula = 10

Edit, zo dus:

[ code verwijderd ]

Check! Er staan idd formules in :) ^O^
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_98200773
Snelheid nu?
  woensdag 15 juni 2011 @ 14:35:40 #253
330093 McCandless
I'm supertramp
pi_98201758
Ik werk met Excel 2003 en heb daar een 2 keuzelijsten gemaakt. Alleen wil ik hierbij iets bewerkstelligen waarvan ik me afvraag of dit mogelijk is.

Ik heb dus 2 keuze-lijsten, stel 1 in A1 en 1 in A2.

De keuze's die ik bij A2 wil laten verschijnen moeten echter afhankelijk zijn van wat ik bij A1 gekozen heb. Bijvoorbeeld:

Keuze's A1:

Kosten
Opbrengsten

Keuze's A2:
Directe kosten
Indirecte kosten
Vaste opbrengsten
Losse opbrengsten

Directe kosten en indirecte kosten moeten dan alleen verschijnen als ik in A1 kosten heb gekozen.

Kan dit?
pi_98201845
quote:
5s.gif Op woensdag 15 juni 2011 14:35 schreef McCandless het volgende:
Ik werk met Excel 2003 en heb daar een 2 keuzelijsten gemaakt. Alleen wil ik hierbij iets bewerkstelligen waarvan ik me afvraag of dit mogelijk is.

Ik heb dus 2 keuze-lijsten, stel 1 in A1 en 1 in A2.

De keuze's die ik bij A2 wil laten verschijnen moeten echter afhankelijk zijn van wat ik bij A1 gekozen heb. Bijvoorbeeld:

Keuze's A1:

Kosten
Opbrengsten

Keuze's A2:
Directe kosten
Indirecte kosten
Vaste opbrengsten
Losse opbrengsten

Directe kosten en indirecte kosten moeten dan alleen verschijnen als ik in A1 kosten heb gekozen.

Kan dit?
http://www.contextures.com/xldataval02.html
  woensdag 15 juni 2011 @ 14:38:40 #255
62215 qu63
..de tijd drinkt..
pi_98201893
quote:
7s.gif Op woensdag 15 juni 2011 14:12 schreef DaFan het volgende:
Snelheid nu?
Niet veranderd, maar nu hoef ik niet om lege cellen heen te werken :)
De macro die te lang duurde is sneller geworden door het uitschakelen van het berekenen :)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_98202260
quote:
0s.gif Op woensdag 15 juni 2011 14:38 schreef qu63 het volgende:

[..]

Niet veranderd, maar nu hoef ik niet om lege cellen heen te werken :)
De macro die te lang duurde is sneller geworden door het uitschakelen van het berekenen :)
Mooi! Next ;)
  woensdag 15 juni 2011 @ 14:53:46 #257
330093 McCandless
I'm supertramp
pi_98202477
quote:
Mijn dank is groot!
  woensdag 15 juni 2011 @ 15:06:17 #258
62215 qu63
..de tijd drinkt..
pi_98203045
quote:
7s.gif Op woensdag 15 juni 2011 14:48 schreef DaFan het volgende:

[..]

Mooi! Next ;)
Sorry, ik heb even niets meer ;) M'n sheets zijn nu weer snel en ze doen wat ze moeten doen!
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_98237155
Hi All,

Ik heb een stukje code dat bepaalt of de regels in een bepaalde sectie wel of niet moeten worden laten zien.

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
Sub ShowOrHide(tabloid As String, sColumn As Integer, startRow As Integer, endRow As Integer, Hide, Level)
    
    Dim wsData As Worksheet
    Set wsData = Worksheets(tabloid)
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Call UnProtect_WorkSheets(tabloid)
        
    For i = startRow To endRow

        Select Case Hide

            Case 0:  If Cells(i, sColumn) <= Level Then wsData.Rows(i).Hidden = True               'Hide
            Case 1:
                     If Cells(i, sColumn) <= Level Then                                            'Unhide
                        wsData.Rows(i).Hidden = False
                     Else
                        wsData.Rows(i).Hidden = True
                     End If
            Case 2:                                                                                'Unhide extra Level
                     If Cells(i, sColumn) <= Level + 1 Then
                        wsData.Rows(i).Hidden = False
                     Else
                        wsData.Rows(i).Hidden = True
                     End If

        End Select

    Next i
    
    Call Protect_WorkSheets(tabloid)
    
End Sub

Ik run deze macro op een sectie van zo'n 4000 regels. Onder Excel 2007 duurt dat zo'n 5 seconden. Onder 2010 duurt het echter zo'n 150 seconden. Das dus 30x zo lang :S

Iemand enig idee waar dit verschil in snelheid vandaan komt?
  donderdag 16 juni 2011 @ 08:48:13 #260
38651 yozd
FR1908 Vakkie R
pi_98237535
Ik heb in Excel 2007 wat staafdiagrammen gemaakt. Deze heb ik gekopieerd naar Word, maar ze verschijnen alleen goed in beeld als ik copy/paste doe. Diegene naar wie ik het moet opsturen, wil het echter hebben als copy/paste special --> enhanced metabestand. Probleem is dan echter dat die de layout verpest. Hij laat de x-as en de rechter y-as helemaal niet meer zien!

Weet iemand hoe dat kan?

En dan nog een vreemder iets; als ik gewoon copy/paste in een Word bestand, ziet alles er goed uit, maar als een collega hetzelfde bestand opent, in dezelfde versie van Word, dan ziet hij de x-as en rechter y-as ook niet! Herkent iemand dit?
"On a good day, when I run, the voices in my head get quieter until it’s just me, my breath and my feet on the sand (Dexter, E5x09)."
pi_98238135
quote:
0s.gif Op donderdag 16 juni 2011 08:21 schreef actuarisje het volgende:
Hi All,

Ik heb een stukje code dat bepaalt of de regels in een bepaalde sectie wel of niet moeten worden laten zien.
[ code verwijderd ]

Ik run deze macro op een sectie van zo'n 4000 regels. Onder Excel 2007 duurt dat zo'n 5 seconden. Onder 2010 duurt het echter zo'n 150 seconden. Das dus 30x zo lang :S

Iemand enig idee waar dit verschil in snelheid vandaan komt?
Volgens mij was er bij Excel 2010 in de VBA nogal wat aangepast misschien dat dat de oorzaak is.
Helpt het als je in de macro syntax (eerste regel van Sub ......) de variabelen Hide en Level ook definieert als "as integer"?
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
pi_98238165
quote:
0s.gif Op donderdag 16 juni 2011 08:48 schreef yozd het volgende:
Ik heb in Excel 2007 wat staafdiagrammen gemaakt. Deze heb ik gekopieerd naar Word, maar ze verschijnen alleen goed in beeld als ik copy/paste doe. Diegene naar wie ik het moet opsturen, wil het echter hebben als copy/paste special --> enhanced metabestand. Probleem is dan echter dat die de layout verpest. Hij laat de x-as en de rechter y-as helemaal niet meer zien!

Weet iemand hoe dat kan?

En dan nog een vreemder iets; als ik gewoon copy/paste in een Word bestand, ziet alles er goed uit, maar als een collega hetzelfde bestand opent, in dezelfde versie van Word, dan ziet hij de x-as en rechter y-as ook niet! Herkent iemand dit?
Nee. De workaround die je kunt toepassen:

Screendump maken (CTRL+printScreen)
Plakken in paint of ander tekenprogramma
Selectie hieruit kopieren
Plakken speciaal als metabestand
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
  donderdag 16 juni 2011 @ 11:05:40 #263
62215 qu63
..de tijd drinkt..
pi_98241062
Benne we weer :s)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub trimit()
startTime = Time
Application.ScreenUpdating = False
Application.Calculation = xlManual
Dim h As Long

For h = 1 To Sheets("Data HO Sven").Range("A65536").End(xlUp).Row
   Range("A" & h).Value = trim(Range("A" & h).Value)
Next
Dim v As Long

For v = 1 To Sheets("Data VP").Range("A65536").End(xlUp).Row
   Range("A" & v).Value = trim(Range("A" & v).Value)
Next
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
stopTime = Time
    elapsedTime = (stopTime - startTime) * 24 * 60 * 60
    duur = Application.WorksheetFunction.Round(elapsedTime, 2)
    MsgBox "Klaar! Het trimmen duurde " & duur & " seconden." & Chr(13)
End Sub
Geeft een foutmelding op regel 8 "typen komen niet met elkaar overeen" (en ook op regel 13 als ik het eerste blok weg laat)

Nu dacht ik dat het gisteren nog wel werkte.. Wie weet wat er fout is?

-edit-
WTF? Na het toevoegen van een errorhandler (omdat m'n sheet maar op handmatig bijwerken bleef staan) werkt het wel..
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub trimit()
startTime = Time
Application.ScreenUpdating = False
Application.Calculation = xlManual

On Error GoTo errhandler
Dim h As Long

For h = 1 To Sheets("Data HO Sven").Range("A65536").End(xlUp).Row
   Range("A" & h).Value = trim(Range("A" & h).Value)
Next
Dim v As Long

For v = 1 To Sheets("Data VP").Range("A65536").End(xlUp).Row
   Range("A" & v).Value = trim(Range("A" & v).Value)
Next
errhandler:
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
stopTime = Time
    elapsedTime = (stopTime - startTime) * 24 * 60 * 60
    duur = Application.WorksheetFunction.Round(elapsedTime, 2)
    MsgBox "Klaar! Het trimmen duurde " & duur & " seconden." & Chr(13)
End Sub


[ Bericht 3% gewijzigd door qu63 op 16-06-2011 11:14:22 ]
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  donderdag 16 juni 2011 @ 11:14:45 #264
38651 yozd
FR1908 Vakkie R
pi_98241367
quote:
3s.gif Op donderdag 16 juni 2011 09:24 schreef Deetch het volgende:

[..]

Nee. De workaround die je kunt toepassen:

Screendump maken (CTRL+printScreen)
Plakken in paint of ander tekenprogramma
Selectie hieruit kopieren
Plakken speciaal als metabestand
Dan ga ik het maar op deze manier doen denk ik. Bedankt!
"On a good day, when I run, the voices in my head get quieter until it’s just me, my breath and my feet on the sand (Dexter, E5x09)."
pi_98241398
Regel 8 = regel 9 in code tag toch?
Waarom maak je h een Long?
Waarom zet je niet neer "Next h" ipv "Next", volgens mij is dit geen correcte syntax
pi_98241409
quote:
0s.gif Op donderdag 16 juni 2011 11:14 schreef yozd het volgende:

[..]

Dan ga ik het maar op deze manier doen denk ik. Bedankt!
Office 2010 gebruiken :P Daar zit een screenshot functie in!
  donderdag 16 juni 2011 @ 12:26:26 #267
112251 314
gimme pie!
pi_98244026
ik wil graag in een percentage uitdrukken hoe ver iets af is, dit wordt berekend door het aantal minuten dat bepaalde stappen duren te delen door het totaal, en dat weer te geven als %

even simpel gezegd, 4 stappen van 15 minuten zijn dus een uur:
1
2
3
4
5
A    B    C
15
15
15
15   60  100%
de 100% in C4 komt automatisch uit iets dergelijks als =SUM(A1:A4)/B4 --> resultaat is 1 --> 100%
maar nu wil ik dat een bepaalde stap alleen meegerekend wordt op basis van 'done' ja/nee

1
2
3
4
15 Done
15 Done
15
15          60  50%

hoe doe ik dat :?
pi_98244359
=SUMIF(B1:B4;"=Done";A1:A4)/C4

(Neem aan dat '60' in C4 staat, niet in B4).
  donderdag 16 juni 2011 @ 13:02:35 #269
62215 qu63
..de tijd drinkt..
pi_98245240
quote:
7s.gif Op donderdag 16 juni 2011 11:15 schreef DaFan het volgende:
Regel 8 = regel 9 in code tag toch?
Nope, echt regel 8
quote:
Waarom maak je h een Long?
copy-paste :P
quote:
Waarom zet je niet neer "Next h" ipv "Next", volgens mij is dit geen correcte syntax
idem..

Vond de code ergens en heb em aangepast naar mijn wens.
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  donderdag 16 juni 2011 @ 13:44:27 #270
112251 314
gimme pie!
pi_98246775
quote:
7s.gif Op donderdag 16 juni 2011 12:35 schreef DaFan het volgende:
=SUMIF(B1:B4;"=Done";A1:A4)/C4

(Neem aan dat '60' in C4 staat, niet in B4).
^O^ alleen wel komma gebruiken ipv ;
pi_98246886
quote:
0s.gif Op donderdag 16 juni 2011 13:44 schreef 314 het volgende:

[..]

^O^ alleen wel komma gebruiken ipv ;
Moet je je taal er maar bij zetten zoals in de OP staat :6
  donderdag 16 juni 2011 @ 14:06:43 #272
112251 314
gimme pie!
pi_98247636
quote:
12s.gif Op donderdag 16 juni 2011 13:46 schreef DaFan het volgende:

[..]

Moet je je taal er maar bij zetten zoals in de OP staat :6
had al SUM gebruikt in plaats van SOM ;)
  donderdag 16 juni 2011 @ 16:06:10 #273
112251 314
gimme pie!
pi_98252772
quote:
7s.gif Op donderdag 16 juni 2011 12:35 schreef DaFan het volgende:
=SUMIF(B1:B4;"=Done";A1:A4)/C4
ik bedenk me net dat als je iets overslaat, dat het dan ook op zich 'gedaan' is.. kun je een OR als criterium van de SUMIF geven? dan kan ik gewoon find&replace gebruiken namelijk

ik wil dus =SUMIF(B1:B4;"=Done" of "=Skip";A1:A4)/C4 maar hoe ik het ook draai, wend, keer, probeer tussen haakjes erin te krijgen, Excel pikt het niet
pi_98253650
quote:
0s.gif Op donderdag 16 juni 2011 16:06 schreef 314 het volgende:

[..]

ik bedenk me net dat als je iets overslaat, dat het dan ook op zich 'gedaan' is.. kun je een OR als criterium van de SUMIF geven? dan kan ik gewoon find&replace gebruiken namelijk

ik wil dus =SUMIF(B1:B4;"=Done" of "=Skip";A1:A4)/C4 maar hoe ik het ook draai, wend, keer, probeer tussen haakjes erin te krijgen, Excel pikt het niet
Niet te moeilijk doen imo;
=(SUMIF(B1:B4;"=Done";A1:A4)+SUMIF(B1:B4;"=Skip";A1:A4))/C4
  donderdag 16 juni 2011 @ 16:30:02 #275
112251 314
gimme pie!
pi_98253950
als je dat doet dan telt ie A1:A4 dubbel, deelt ie door C4 en krijg je 2x zo hoge waarden. daarbij zou ik alle SUMIF aan moeten gaan passen en dat zijn er een stuk of 50.. een find&replace zou zoveel makkelijker zijn
abonnement bol.com Unibet Coolblue
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')