abonnement Unibet Coolblue Bitvavo
  maandag 3 december 2012 @ 19:24:28 #241
85514 ralfie
!Yvan eht nioj
pi_119890812
quote:
0s.gif Op maandag 3 december 2012 18:56 schreef qu63 het volgende:

[..]

Die staat in ThisWorkbook, niet onder modules.

Verder geen verwijzing naar die sub, dacht dat ie op dezelde manier zou werken als Workbook_BeforeSafe()
Nee, je moet in je beforesafe zoiets doen

1
2
3
4
5
6
sub Workbook_BeforeSafe( blah blah)
     application.enableevents = false
    cancel=true
    workbook.saveas naamvanjewerkboek.xls
   application.enableevents = true
end sub
pi_119890817
quote:
0s.gif Op maandag 3 december 2012 18:56 schreef qu63 het volgende:

[..]

Die staat in ThisWorkbook, niet onder modules.

Verder geen verwijzing naar die sub, dacht dat ie op dezelde manier zou werken als Workbook_BeforeSafe()
Nee natuurlijk niet, het is nu gewoon een macro. Die moet je wel aanroepen.
  maandag 3 december 2012 @ 19:45:08 #243
62215 qu63
..de tijd drinkt..
pi_119891714
quote:
0s.gif Op maandag 3 december 2012 19:24 schreef ralfie het volgende:

[..]

Nee, je moet in je beforesafe zoiets doen
[ code verwijderd ]

Top, die werkt :)

Nu alleen er nog voor zorgen dat ie Planning Afstuderen.xlsm én Planning Afstuderen - DATUM - TIJD.xlsm opslaat.. Die laatste dus in een ander mapje..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  maandag 3 december 2012 @ 19:47:42 #244
62215 qu63
..de tijd drinkt..
pi_119891828
quote:
7s.gif Op maandag 3 december 2012 19:24 schreef DaFan het volgende:

[..]

Nee natuurlijk niet, het is nu gewoon een macro. Die moet je wel aanroepen.
Waarom werkte Private Sub Workbook_BeforeSave() dan wel :? Deze werd nergens aanders aangeroepen..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  maandag 3 december 2012 @ 19:51:54 #245
85514 ralfie
!Yvan eht nioj
pi_119892009
quote:
0s.gif Op maandag 3 december 2012 19:47 schreef qu63 het volgende:

[..]

Waarom werkte Private Sub Workbook_BeforeSave() dan wel :? Deze werd nergens aanders aangeroepen..
bepaalde events in vba worden automatisch aangeroepen. Workbook_open wordt aangeroepen wanneer het object Workbook het 'open' event triggered. Je kunt niet zomaar subs toevoegen en verwachten dat excel/vba zomaar weet wanneer die het moet runnen.
  maandag 3 december 2012 @ 19:58:41 #246
62215 qu63
..de tijd drinkt..
pi_119892338
quote:
0s.gif Op maandag 3 december 2012 19:51 schreef ralfie het volgende:

[..]

bepaalde events in vba worden automatisch aangeroepen. Workbook_open wordt aangeroepen wanneer het object Workbook het 'open' event triggered. Je kunt niet zomaar subs toevoegen en verwachten dat excel/vba zomaar weet wanneer die het moet runnen.
Ik vond die safe_file() code ergens en ging er van uit dat die op dezelfde manier werkte als Workbook_BeforeSafe() :)

My bad :)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  maandag 3 december 2012 @ 20:00:50 #247
85514 ralfie
!Yvan eht nioj
pi_119892440
quote:
0s.gif Op maandag 3 december 2012 19:58 schreef qu63 het volgende:

[..]

Ik vond die safe_file() code ergens en ging er van uit dat die op dezelfde manier werkte als Workbook_BeforeSafe() :)

My bad :)
bovenaan de code editor staan van die leuke dropdown menuutjes die je altijd per ongeluk indrukt, maar die eigenlijk WEL handig zijn als je een event nodig hebt.
pi_119893420
quote:
0s.gif Op maandag 3 december 2012 19:58 schreef qu63 het volgende:

[..]

Ik vond die safe_file() code ergens en ging er van uit dat die op dezelfde manier werkte als Workbook_BeforeSafe() :)

My bad :)
Sven toch :N
  maandag 3 december 2012 @ 20:20:30 #249
62215 qu63
..de tijd drinkt..
pi_119893501
quote:
7s.gif Op maandag 3 december 2012 20:18 schreef DaFan het volgende:

[..]

Sven toch :N
Sorry... Lui he ;)

Heb er nu onderstaande code van gemaakt:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Function FileFolderExists(strFullPath As String) As Boolean
    On Error GoTo EarlyExit
    If Not Dir(strFullPath, vbDirectory) = vbNullString Then FileFolderExists = True
    
EarlyExit:
    On Error GoTo 0
End Function

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("IN1") = Range("IN1") + 0.1
Application.EnableEvents = False
Cancel = True
If FileFolderExists("C:\Users\Sven\School\Hoofdfase\Afstuderen") Then
        ActiveWorkbook.SaveAs "C:\Users\Sven\School\Hoofdfase\Afstuderen\Planning\Planning Afstuderen - " & Format(Date, "dd-mm-yyyy") & " - " & Format(TimeSerial(Hour(Now()), Minute(Now()), Second(Now())), "hh-mm-ss") & ".xlsm"
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs "C:\Users\Sven\School\Hoofdfase\Afstuderen\Planning Afstuderen.xlsm"
        Application.DisplayAlerts = True
        Application.EnableEvents = True
    Else
        Application.Dialogs(xlDialogSaveAs).Show
        Application.EnableEvents = True
    End If
End Sub
Niet fool-proof, maar doet wel wat ie moet doen :)

Gewoon jat/knip/plakwerk, maar ik snap de code wel :)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_119955883
Ik wil de functie =lengte() gebruiken in een =als(). Dit lukt niet omdat excel dat blijkbaar niet kan. Weet iemand waarom dit is? Is dit een bekend probleem?
stupidity has become as common as common sense was before
pi_119956176
quote:
0s.gif Op woensdag 5 december 2012 14:22 schreef marcb1974 het volgende:
Ik wil de functie =lengte() gebruiken in een =als(). Dit lukt niet omdat excel dat blijkbaar niet kan. Weet iemand waarom dit is? Is dit een bekend probleem?


1=ALS(LENGTE(A1)>4;"meer dan vier tekens";"vier tekens of minder")
Eis is dat de waarde in A1 een tekst is en niet een getal.
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_119956446
Dat gaat dus mis. Met =lengte(cel) krijg ik keurig het aantal tekens in de cel. Zodra ik jouw formule gebruik is het antwoord altijd meer dan vier tekens, ongeacht het aantal tekens in in de cel.


Lama, mijn haakje stond verkeerd :')
stupidity has become as common as common sense was before
pi_119988442
ik heb de volgende gegevens:
1: 2:
5¤ 7¤
10¤ 0¤
8¤ 3¤

Nu wil ik indien in 2 een getal voorkomt (dus niet 0) 1 meenemen en in totaal optellen. Ik heb het al geprobeerd via sommen.als( maar dit is nog niet gelukt.

Iemand?
Een hoertje dat aan de belastingadviseur vraagt of ze nog wat kan aftrekken, is nooit grappig...
  donderdag 6 december 2012 @ 11:19:36 #254
62215 qu63
..de tijd drinkt..
pi_119989373
quote:
0s.gif Op donderdag 6 december 2012 10:49 schreef draadstalig het volgende:
ik heb de volgende gegevens:
1: 2:
5¤ 7¤
10¤ 0¤
8¤ 3¤

Nu wil ik indien in 2 een getal voorkomt (dus niet 0) 1 meenemen en in totaal optellen. Ik heb het al geprobeerd via sommen.als( maar dit is nog niet gelukt.

Iemand?
In C1 de volgende formule: =ALS(B1<>0;1;"") en dan doortrekken naar beneden.
Op deze manier komt er een '1' te staan in kolom C als kolom B geen 0 is.
Onderaan kan je dan kolom C optellen met som() of kolom B optellen met sommen.als()
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_119998391
quote:
0s.gif Op donderdag 6 december 2012 10:49 schreef draadstalig het volgende:
ik heb de volgende gegevens:
1: 2:
5¤ 7¤
10¤ 0¤
8¤ 3¤

Nu wil ik indien in 2 een getal voorkomt (dus niet 0) 1 meenemen en in totaal optellen. Ik heb het al geprobeerd via sommen.als( maar dit is nog niet gelukt.

Iemand?
1 = A1:A20
2 = B1:B20

=SOMPRODUCT(--(B1:B20<>0);A1:A20)

De functie kijkt of de waarde in B1 tm B20 niet 0 is en maakt er dan een 1 van als die voorwaarde klopt en een 0 als de voorwaarde niet klopt (lege cel of waarde = 0). Deze enen en nullen worden vermenigvuildigd met hert bijbehorende getal in kolom A en dan opgeteld.
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_120004554
W
quote:
3s.gif Op donderdag 6 december 2012 15:52 schreef Deetch het volgende:

[..]

1 = A1:A20
2 = B1:B20

=SOMPRODUCT(--(B1:B20<>0);A1:A20)

De functie kijkt of de waarde in B1 tm B20 niet 0 is en maakt er dan een 1 van als die voorwaarde klopt en een 0 als de voorwaarde niet klopt (lege cel of waarde = 0). Deze enen en nullen worden vermenigvuildigd met hert bijbehorende getal in kolom A en dan opgeteld.
Werkt! Thnx
Een hoertje dat aan de belastingadviseur vraagt of ze nog wat kan aftrekken, is nooit grappig...
pi_120004708
En weer een nieuwe!!

Cel 1 (huidig):
35¤

Cel 2 (nieuw):
47¤

Cel 3(alternatief):


Nu wil ik indien cel 1 en 2 voorkomen de laagste hebben ten opzichte van de 3 cellen (1 komt altijd voor). Maar als cel 3 bv (zoals hierboven) een 0 bevat pakt hij de deze als laagste, terwijl hij dan eigenlijk naar 1 moet schieten. Hoe regel ik deze?

ik zat al met =als en min formule erin, maar deze pakt hij toch weer op 0.

Cel 2 en 3 bevatten dus gegevens. Indien één van deze lager is dan 1 moet hij die cel geven (2 of 3) geven. Als ze hoger zijn moet hij cel 1 geven en als er een 0 in voorkomt moet hij die overslaan.?

laat de grijze massa maar kraken :)
Een hoertje dat aan de belastingadviseur vraagt of ze nog wat kan aftrekken, is nooit grappig...
  donderdag 6 december 2012 @ 18:43:29 #258
85514 ralfie
!Yvan eht nioj
pi_120005407
als A1:C1 je cellen zijn
1=MIN(ALS(A1:C1>0;A1:C1))
enteren met ctr+shift+enter
pi_120007106
quote:
0s.gif Op donderdag 6 december 2012 18:43 schreef ralfie het volgende:
als A1:C1 je cellen zijn
[ code verwijderd ]

enteren met ctr+shift+enter
Nee dat is niet juist. Hij moet dus 2 en 3 vergelijken met 1 en indien één van deze lager is kwa aantal (in euro's) dan moet hij deze pakken. Echter rekent hij ook de 0 als getal en eigenlijk moet hij 0 dus overslaan. Ik had hem zo:
=ALS(I4+S4=0;F4;MIN(I4;S4))
I4 = 2
S4 = 3
F4 = 1

Dus 2+3 = 0 geef me dan 1 (huidig), zo niet geef me dan minimale van 2 of 3
Bij die laatste moet hij 0 dus overslaan.
Een hoertje dat aan de belastingadviseur vraagt of ze nog wat kan aftrekken, is nooit grappig...
pi_120007283
quote:
0s.gif Op donderdag 6 december 2012 19:16 schreef draadstalig het volgende:

[..]

Nee dat is niet juist. Hij moet dus 2 en 3 vergelijken met 1 en indien één van deze lager is kwa aantal (in euro's) dan moet hij deze pakken. Echter rekent hij ook de 0 als getal en eigenlijk moet hij 0 dus overslaan. Ik had hem zo:
=ALS(I4+S4=0;F4;MIN(I4;S4))
I4 = 2
S4 = 3
F4 = 1

Dus 2+3 = 0 geef me dan 1 (huidig), zo niet geef me dan minimale van 2 of 3
Bij die laatste moet hij 0 dus overslaan.
Nvm.
Wat moet je output zijn dan in je eerste voorbeeld want je praat wel een beetje vaag.
Ralfie zijn oplossing had ik ook gezegd.
pi_120008486
Excuus
quote:
7s.gif Op donderdag 6 december 2012 19:21 schreef DaFan het volgende:

[..]

Nvm.
Wat moet je output zijn dan in je eerste voorbeeld want je praat wel een beetje vaag.
Ralfie zijn oplossing had ik ook gezegd.
Sorry ik lees het net terug en ben het veels te moeilijk aan het maken.

Ik heb 3 cellen die ik met elkaar wil vergelijken en daarbij de laagste pak dus bv
cel1: 4
cel2: 0
cel3: 5

Uitkomstis 4 (cel1). probleem is alleen dat alle sommen niet naast elkaar staan (zoals hierboven) en dus het stukje a1:c1 lukt niet.

Excuus voor de verwarrende taal
Een hoertje dat aan de belastingadviseur vraagt of ze nog wat kan aftrekken, is nooit grappig...
pi_120009082
De formule van Ralfie klopt dan wel gewoon hoor, denk eraan dat je bevestigt met Ctrl-Shift-Enter.
pi_120020575
Ik heb nu nog steeds problemen met het volgende

<25 17 7%
25-30 45 17%
30-35 49 19%
35-40 34 13%
40-45 35 14%
45-50 30 12%
>50 48 19%

Ik wil dat de gegevens in een staafgrafiek worden weergegeven startend bij de -25-jarigen.
Dat lukt me dus niet!

Ik moet de taak maandag indienen.
Cindy De Vuyst
  vrijdag 7 december 2012 @ 00:13:22 #264
62215 qu63
..de tijd drinkt..
pi_120021963
quote:
0s.gif Op donderdag 6 december 2012 23:34 schreef einzeinz het volgende:
Ik heb nu nog steeds problemen met het volgende

<25 17 7%
25-30 45 17%
30-35 49 19%
35-40 34 13%
40-45 35 14%
45-50 30 12%
>50 48 19%

Ik wil dat de gegevens in een staafgrafiek worden weergegeven startend bij de -25-jarigen.
Dat lukt me dus niet!

Ik moet de taak maandag indienen.
Kolom 1 is leeftijden (horizontale as), de andere 2 zijn absolute en relatieve aantallen?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_120022246
quote:
0s.gif Op vrijdag 7 december 2012 00:13 schreef qu63 het volgende:

[..]

Kolom 1 is leeftijden (horizontale as), de andere 2 zijn absolute en relatieve aantallen?
Kolom 1 zijn inderdaad leeftijden, kolom 2 zijn het aantal deelnemers en kolom 3 is het percentage.
Nu wil ik uiteraard ook de gegevens logisch ordenen en daar loopt het mis.
Cindy De Vuyst
  vrijdag 7 december 2012 @ 00:48:56 #266
62215 qu63
..de tijd drinkt..
pi_120022873
quote:
0s.gif Op vrijdag 7 december 2012 00:24 schreef einzeinz het volgende:

[..]

Kolom 1 zijn inderdaad leeftijden, kolom 2 zijn het aantal deelnemers en kolom 3 is het percentage.
Nu wil ik uiteraard ook de gegevens logisch ordenen en daar loopt het mis.
Even snel in elkaar gezet: klik
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_120022976
Ik zat persoonlijk meer te denken aan zoiets.



In een staafdiagram dus
Cindy De Vuyst
  vrijdag 7 december 2012 @ 01:09:42 #268
62215 qu63
..de tijd drinkt..
pi_120023222
quote:
0s.gif Op vrijdag 7 december 2012 00:55 schreef einzeinz het volgende:
Ik zat persoonlijk meer te denken aan zoiets.

[ afbeelding ]

In een staafdiagram dus
Je wil de kleur van de staafdiagram af laten hangen van het percentage?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_120023349
Nee, ik wil gewoon rangschikken per leeftijd zoals in het voorbeeld.
Eigenlijk gewoon hetzelfde resultaat bekomen als het voorbeeld, maar bij mij verspringt het telkens.
Cindy De Vuyst
pi_120025937
Bij mij gaat het gewoon goed. Gewoon een bar-chart maken zodat je liggende balken krijgt.
Vervolgens de Y-as opmaken in omgekeerde volgorde (reverse order)
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
abonnement Unibet Coolblue Bitvavo
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')