[EXCEL] Het grote Excel vragen topic, #9

Index

» digital corner

» software

actieve topics nieuwe topics
abonnement Unibet Coolblue Bitvavo
  zondag 28 december 2008 @ 17:29:02 #71
62215 qu63
..de tijd drinkt..
pi_64435446
Ik ben in mijn sheet op zoek naar de eerstvolgende deadline. De deadlines die al geweest zijn worden niet verwijderd en staan er dus ook nog gewoon in (anders was een MIN() de oplossing).

En, indien mogelijk, wil ik meerdere deadlines weer laten geven (sommige deadlines hebben dezelfde datum namelijk..)

Iemand enig idee?
Excel 2007 NL
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  zondag 28 december 2008 @ 17:45:36 #72
62215 qu63
..de tijd drinkt..
pi_64436080
En een toevoeging daarop:
Is het ook mogelijk om alle deadlines automagisch te exporteren naar mijn Outlook Agenda? Heb zelf absoluut geen idee of het überhaupt wel mogelijk is, in tegenstelling tot mijn vorige vraag..

Eigenlijk dus gewoon een lijst met datums (kolom E, plus 2 omschrijvingen (hoofd en subdoelen, beide in Kolom B)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64436104
Ooh mooi probleem
Morgen ff kijken

Ik neem aan dat je gewoon een lijst met data hebt en daarvan eigenlijk de dichtsbijzijndste (eerstvolgende) zoekt?
  zondag 28 december 2008 @ 17:51:53 #74
62215 qu63
..de tijd drinkt..
pi_64436300
quote:
Op zondag 28 december 2008 17:46 schreef DaFan het volgende:
Ooh mooi probleem :P
Morgen ff kijken :)

Ik neem aan dat je gewoon een lijst met data hebt en daarvan eigenlijk de dichtsbijzijndste (eerstvolgende) zoekt?
Nouja.. het is een vrij uitgebreide Gantt-chart aan het worden, dus de datums staan sowieso al niet op volgorde :P

Ik zal ff kort wat copy-pasten:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16		1   Portfolio 3   Map   07-12-08   03-03-09   86   26%   62   22   64   di
1.1   Plannen      07-12-08   11-01-09   36   100%   25   36   0   zo
1.2   Presenteren      07-12-08   16-01-09   41   50%   30   20   21   vr
1.3   Netwerken      07-12-08   15-02-09   71   0%   50   0   71   zo
1.4   Kernkwadranten      07-12-08   25-01-09   50   0%   35   0   50   zo
1.5   Time management      29-12-08   19-01-09   22   0%   16   0   22   ma
1.6   Mentorgesprek      03-03-09   03-03-09   1   50%   1   0   1   di
2   Portfolio 4   Map   15-12-08   26-06-09   193   19%   140   37   156   vr
2.1   Plannen      15-12-08   11-01-09   28   14%   20   4   24   zo
2.2   Big Five                     0   0   
2.3   Mindmap                     0   0   
2.4   SWOT jezelf                     0   0   
2.5   Johari Raam                     0   0   
2.6   E-scan 2                     0   0   
2.7   Verleden-heden-toekomst                     0   0   
2.8   Mentorgesprek      02-06-09   26-06-09   25   25%   19   6   19   vr


In dit geval wil ik dus zien dat de eerstvolgende deadline is:
Portfolio 3 - Plannen - 11-01-09
én
Portfolio 4 - Plannen - 11-01-09
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  zondag 28 december 2008 @ 17:52:21 #75
62215 qu63
..de tijd drinkt..
pi_64436314
ok, dat is best fucked up..

Ik gooi em ff online

-edit-
hier

[ Bericht 19% gewijzigd door qu63 op 28-12-2008 17:59:44 ]
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64436507
The page cannot be found

Ik kan wel een voorbeeldje maken met gewoon data die in kolom A staan (denk dat ik er wel wat van kan bouwen), zou dat werken voor je?
  zondag 28 december 2008 @ 18:00:45 #77
62215 qu63
..de tijd drinkt..
pi_64436568
quote:
Op zondag 28 december 2008 17:58 schreef DaFan het volgende:
The page cannot be found
Nu als het goed is wel

Mn webhost kan niet met xlsx bestanden omgaan denk ik
quote:
Ik kan wel een voorbeeldje maken met gewoon data die in kolom A staan (denk dat ik er wel wat van kan bouwen), zou dat werken voor je?
Ik denk het wel, en zo niet dan meld ik het hier wel weer

[ Bericht 26% gewijzigd door qu63 op 28-12-2008 18:49:00 ]
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  zondag 28 december 2008 @ 19:08:27 #78
62215 qu63
..de tijd drinkt..
pi_64438622
En als het kan iedere deadline op een aparte regel (met een maximum van 5 regels) met een link naar de desbetreffende regel (in mijn vorige voorbeeld dus naar B2 en B9)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64445073
quote:
Op zondag 28 december 2008 17:29 schreef qu63 het volgende:
Ik ben in mijn sheet op zoek naar de eerstvolgende deadline. De deadlines die al geweest zijn worden niet verwijderd en staan er dus ook nog gewoon in (anders was een MIN() de oplossing).

En, indien mogelijk, wil ik meerdere deadlines weer laten geven (sommige deadlines hebben dezelfde datum namelijk..)

Iemand enig idee?
Excel 2007 NL
Is het niet gewoon mogelijk m.b.v. een paar commando's dat je zeg maar het volgende dan doet...
- vergelijk alle kolommen met de huidige datum. Wanneer groter dan huidige datum dan sla op in een array. En die vervolgesn MIN() toepassen...
  zondag 28 december 2008 @ 22:05:30 #80
62215 qu63
..de tijd drinkt..
pi_64445196
quote:
Op zondag 28 december 2008 22:03 schreef Wouser het volgende:

[..]

Is het niet gewoon mogelijk m.b.v. een paar commando's dat je zeg maar het volgende dan doet...
- vergelijk alle kolommen met de huidige datum. Wanneer groter dan huidige datum dan sla op in een array. En die vervolgesn MIN() toepassen...
Dat zal vast mogelijk zijn, maar ik kan het niet
Ik snap niks van VB, commando's of macro's
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64469640
Ik ga er vandaag niet uitkomen en ben morgen weg voor 3 dagen, sorry.
  maandag 29 december 2008 @ 17:19:04 #82
62215 qu63
..de tijd drinkt..
pi_64469929
quote:
Op maandag 29 december 2008 17:09 schreef DaFan het volgende:
Ik ga er vandaag niet uitkomen en ben morgen weg voor 3 dagen, sorry.


IIg bedankt voor de poging
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64475038
zal morgen even kijken of het mogelijk is om de deadlines te laten exporteren. Vervolgens zou je gewoon in outlook kunnen kijken wat de eerste deadline is? Of moet dit ook in excel dat je bv... ctrl+p drukt en dat je dan automatisch naar de rij gaat waarin de eerste deadline staat?
  maandag 29 december 2008 @ 20:01:09 #84
62215 qu63
..de tijd drinkt..
pi_64475265
quote:
Op maandag 29 december 2008 19:54 schreef Wouser het volgende:
zal morgen even kijken of het mogelijk is om de deadlines te laten exporteren. Vervolgens zou je gewoon in outlook kunnen kijken wat de eerste deadline is? Of moet dit ook in excel dat je bv... ctrl+p drukt en dat je dan automatisch naar de rij gaat waarin de eerste deadline staat?
Ik wil ze in outlook krijgen, of dat agendapunten worden of taken maakt me op zich niet echt uit

En in excel wil ik alleen de eerste 5 deadlines bovenaan mijn sheet hebben (zodat het opvalt), meer hoeft niet
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64612463
hoe kan je van rechts naar links zoeken ipv van links naar rechts (zoals vind.spec doet). Ik ben op zoek naar de laatste "." in een kolom cellen.
pi_64617074
Wel in het Engels, vertalen kan je doen door de links in de OP te checken (weet niet welke versie je hebt).
Deze formule vindt de positie van de laatste "." in A1:
1=FIND(CHAR(1),SUBSTITUTE(A1,".",CHAR(1),LEN(A1)-LEN(SUBSTITUTE(A1,".",""))))
pi_64660344
Heb een aantal kolommen, heb er 2 nodig. In 1 staan gewoon namen, in de andere staat GOED of FOUT. Ik wil in een cel het aantal krijgen dat een naam gecombineerd is met GOED. Stel het ziet er nu zo uit:

Piet GOED
Karel GOED
Piet FOUT
Piet Goed
Kees Fout
Piet Goed

Dan wil ik in een cel eigenlijk aantal.als dat hij voldoet aan die 2 criteria, ik weet alleen niet hoe ik meerdere criteria kan opgeven. Aantal.als dat Piet het GOED had moet dus 2 worden.

Weet iemand hoe je dit doet?
  zondag 4 januari 2009 @ 20:30:17 #88
62215 qu63
..de tijd drinkt..
pi_64661207
een 3e kolom maken en daarin zetten =ALS(EN(A1="Piet";B1="Goed");"ok";"niet ok") en daarna alle ok's optellen met aantal.als?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64661208
Welke versie? Met 2007 kan je COUNTIFS gebruiken (je hebt Nederlands maar zie de links in de OP):

Aantal opties zijn hier:
=COUNTIFS(A1:A6,"Piet",B1:B6,"GOED")
=SUMPRODUCT((A1:A6="Piet")*(B1:B6="Goed"))

Tweede is de mooiste imo.

Btw: Antwoord is 3, geen 2
pi_64661434
quote:
Op zondag 4 januari 2009 20:30 schreef DaFan het volgende:
Welke versie? Met 2007 kan je COUNTIFS gebruiken (je hebt Nederlands maar zie de links in de OP):

Aantal opties zijn hier:
=COUNTIFS(A1:A6,"Piet",B1:B6,"GOED")
=SUMPRODUCT((A1:A6="Piet")*(B1:B6="Goed"))

Tweede is de mooiste imo.

Btw: Antwoord is 3, geen 2
Jaa, erg bedankt, die laatste zocht ik.

EDIT: Maar nu ga ik pas echt vervelend worden. Dit werkt nu prima, alleen wil ik nu dat hij -1 doet zodra hij Piet + FOUT vindt. Dus bij het voorbeeld hierboven, iedere keer dat er Piet en FOUT staat moet hij weer 1 van die '3' afhalen. Kan dat ook?
  zondag 4 januari 2009 @ 20:39:36 #91
62215 qu63
..de tijd drinkt..
pi_64661710
=SUMPRODUCT((A1:A6="Piet")*(B1:B6="Goed"))-SUMPRODUCT((A1:A6="Piet")*(B1:B6="Fout"))

lijkt me?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  zondag 4 januari 2009 @ 20:40:01 #92
62215 qu63
..de tijd drinkt..
pi_64661725
En heb je ook nog een oplossing voor mij DaFan?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64661824
quote:
Op zondag 4 januari 2009 20:39 schreef qu63 het volgende:
=SUMPRODUCT((A1:A6="Piet")*(B1:B6="Goed"))-SUMPRODUCT((A1:A6="Piet")*(B1:B6="Fout"))

lijkt me?
Nee, probeer hem maar eens te ontleden.

Je krijgt hier de volgende matrices (voorbeeld overgenomen) met mijn formule:

{1,0,1,1,0,1}
en
{1,1,0,1,0,1}

Deze vermenigvuldig je met elkaar en worden bij elkaar opgeteld (boven naar beneden, dan links naar rechts optellen)
(1*1)
(0*1)
(1*0)
(1*1)
(0*0)
(1*1)
=
1+0+0+1+0+1
=
3
pi_64661874
quote:
Op zondag 4 januari 2009 20:40 schreef qu63 het volgende:
En heb je ook nog een oplossing voor mij DaFan?
Ik zal nog s kijken naar het bestand wat ik toen kreeg.
  zondag 4 januari 2009 @ 20:49:23 #95
62215 qu63
..de tijd drinkt..
pi_64662231
quote:
Op zondag 4 januari 2009 20:43 schreef DaFan het volgende:

[..]

Ik zal nog s kijken naar het bestand wat ik toen kreeg.
Thanks
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64663631
Ok klaar.
Ik heb hem in het Workbook_open event gezet (Alt-F11, dubbelklik links op ThisWorkbook, plak rechts) zodat ie hem uitvoert en de deadlines in Blad3 komen te staan.
Ik gebruik Blad2 als hulpblad maar je bent natuurljik vrij om die cellen te verplaatsen of w/e. Let er dan wel op dat je de With Worksheets("Blad2") moet aanpassen!!

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		Private Sub Workbook_Open()

Dim c As Range
Dim Lastrow, j As Integer

With Worksheets("Blad2")
    Lastrow = Range("E65536").End(xlUp).Row
    .Range("A1").Value = Lastrow
    .Range("A2").Value = Date
    .Range("A4").Value = 5000
    j = 2
    
    For i = 2 To Lastrow
        If Range("E" & i).Value <> "" Then
        
        Datum = Range("E" & i).Value
        .Range("A3").Value = Datum
        If Datum > Date Then
            If (Datum - Date) < .Range("A4").Value Then
                .Range("A4").Value = Datum - Date
            End If
        End If
        
        End If
    Next i

    For i = 2 To Lastrow
        If Range("E" & i).Value <> "" Then
            If Range("E" & i).Value - Date = .Range("A4").Value Then
                Worksheets("Blad3").Range("A" & j).Value = Range("E" & i).Value
                Worksheets("Blad3").Range("B" & j).Value = Range("B" & i).Value
                j = j + 1
              End If
        End If
    Next i
    
End With

End Sub


Succes.

PS: Ik wil m ook wel mailen (je originele bestand) dan moet je ff je mailadres pmen of hier posten.
  zondag 4 januari 2009 @ 21:28:35 #97
62215 qu63
..de tijd drinkt..
pi_64664567
Op zich werkt je code wel (ik moet er alleen een xlsm bestand van maken ivm de macro), alleen krijg ik dit op Blad2:
1
2
3
4		1
4-1-2009

5000

Dat is inderdaad wel de eerste deadline, maar welke daarna komt weet ik nog niet. En ook niet welke opdracht er bij die deadline hoort. Is dat ook te doen?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64664860
Dat staat toch in Blad3?
  zondag 4 januari 2009 @ 21:38:17 #99
62215 qu63
..de tijd drinkt..
pi_64665142
quote:
Op zondag 4 januari 2009 21:33 schreef DaFan het volgende:
Dat staat toch in Blad3?
Nope, Blad3 is helemaal leeg
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64665257
Hm als er 5000 staat lijkt hij niet verder te komen in de IFs. Bij mij werkt hij prima.

Kan je eens proberen om op Blad2 cellen A2 en A3 hetzelfde op te maken (qua datumnotatie) als in Blad1 en in Blad3 de hele kolom A?
  zondag 4 januari 2009 @ 22:00:55 #101
62215 qu63
..de tijd drinkt..
pi_64666361
Ik krijg nu ineens dit:
Fout 13 tijdens uitvoering:

Typen komen niet met elkaar overeen.

Dan ga ik naar foutopsporing en is dit gehighlight:
If (Datum - Date) < .Range("A4").Value Then

It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64666633
Ja dat heeft met de opmaak te maken. Je moet ff kijken welke opmaak Range("A2") heeft (dat is Date) en de anderen daarop afstemmen. Anders gaat ie 2 verschillende dingen van elkaar proberen af te trekken en dat werkt niet.
  zondag 4 januari 2009 @ 22:10:49 #103
62215 qu63
..de tijd drinkt..
pi_64666850
quote:
Op zondag 4 januari 2009 22:06 schreef DaFan het volgende:
Ja dat heeft met de opmaak te maken. Je moet ff kijken welke opmaak Range("A2") heeft (dat is Date) en de anderen daarop afstemmen. Anders gaat ie 2 verschillende dingen van elkaar proberen af te trekken en dat werkt niet.
Ik heb ze beide dezelfde opmaak gegeven (plakken speciaal -> opmaak), maar blijf hetzelfde houden

-edit-

Foutmelding is er nu wel uit, maar ik zie niks verschijnen op Blad3
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64667779
Meh irritant. Blijft A4 op 5000 staan?
Probeer eens een watch toe te voegen aan LastRow (rechtermuisknop, Add watch, break when value changes).
Run je macro dan nog eens en loop via F8 stapje voor stapje door. Je kan dan zien waar hij een If-loop skipt ipv erin te gaan.

Je moet het nu ff zelf proberen want ik moet morgen om 6 uur op en ben dan iig 2 dagen de deur uit dus succes.

Sorry
pi_64690893
quote:
Op zondag 4 januari 2009 20:42 schreef DaFan het volgende:

[..]

Nee, probeer hem maar eens te ontleden.

Je krijgt hier de volgende matrices (voorbeeld overgenomen) met mijn formule:

{1,0,1,1,0,1}
en
{1,1,0,1,0,1}

Deze vermenigvuldig je met elkaar en worden bij elkaar opgeteld (boven naar beneden, dan links naar rechts optellen)
(1*1)
(0*1)
(1*0)
(1*1)
(0*0)
(1*1)
=
1+0+0+1+0+1
=
3
Weet je hoe het wel moet? Ik gebruik nu die van hem en die werkt wel redelijk, alleen dat geeft al een enorme laadtijd.
pi_64725543
quote:
Op maandag 5 januari 2009 16:26 schreef Jiveje het volgende:

[..]

Weet je hoe het wel moet? Ik gebruik nu die van hem en die werkt wel redelijk, alleen dat geeft al een enorme laadtijd.
Nee, de oplossing van qu63 is de beste (als je 2007 gebruikt kan je 2x COUNTIFS gebruiken). SUMPRODUCT is een redelijk zware formule als je bereiken groter worden.

Ik zal zo nog ff kijken voor een betere oplossing, nu eerst ff ontbijten

qu63: Was je er al uit, ik zou niet weten waarom het fout gaat namelijk als hij bij mij wel gewoon werkt.
  dinsdag 6 januari 2009 @ 13:10:11 #107
62215 qu63
..de tijd drinkt..
pi_64725667
quote:
Op dinsdag 6 januari 2009 13:06 schreef DaFan het volgende:

[..]

Nee, de oplossing van qu63 is de beste (als je 2007 gebruikt kan je 2x COUNTIFS gebruiken). SUMPRODUCT is een redelijk zware formule als je bereiken groter worden.

Ik zal zo nog ff kijken voor een betere oplossing, nu eerst ff ontbijten

qu63: Was je er al uit, ik zou niet weten waarom het fout gaat namelijk als hij bij mij wel gewoon werkt.
Ben dr nog niet uit helaas

Maar ik laat het ook maar zo zitten. Bedankt voor de moeite in ieder geval!
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64729438
quote:
Op dinsdag 6 januari 2009 13:06 schreef DaFan het volgende:

[..]

Nee, de oplossing van qu63 is de beste (als je 2007 gebruikt kan je 2x COUNTIFS gebruiken). SUMPRODUCT is een redelijk zware formule als je bereiken groter worden.

Ik zal zo nog ff kijken voor een betere oplossing, nu eerst ff ontbijten

qu63: Was je er al uit, ik zou niet weten waarom het fout gaat namelijk als hij bij mij wel gewoon werkt.
Bedankt voor de moeite in ieder geval, die somproduct is inderdaad een veel te zware formule. Ik gebruik 2007 dus kan COUNTIFS gebruiken, hoe zou het dan worden?
pi_64730176
=COUNTIFS(A1:A6,"Piet",B1:B6,"GOED") - COUNTIFS(A1:A6,"Piet",B1:B6,"FOUT")
pi_64730346
quote:
Op dinsdag 6 januari 2009 15:10 schreef DaFan het volgende:
=COUNTIFS(A1:A6,"Piet",B1:B6,"GOED") - COUNTIFS(A1:A6,"Piet",B1:B6,"FOUT")
Die geeft een fout bij: A6,"Piet",B1
pi_64730609
Welke taal heb je?
pi_64730815
quote:
Op dinsdag 6 januari 2009 15:22 schreef DaFan het volgende:
Welke taal heb je?
Nederlands
pi_64731206
FF komma's vervangen door puntkomma's.
En ik weet niet zeker of het wel COUNTIFS heet dan? Dan zou je even onder de Formule -verkenner moeten zoeken onder de tel-functies (op dat Sigma tegen, die grote 'E' links van je formulebalk, klikken)
pi_64731731
quote:
Op dinsdag 6 januari 2009 15:36 schreef DaFan het volgende:
FF komma's vervangen door puntkomma's.
En ik weet niet zeker of het wel COUNTIFS heet dan? Dan zou je even onder de Formule -verkenner moeten zoeken onder de tel-functies (op dat Sigma tegen, die grote 'E' links van je formulebalk, klikken)
Countif heet het volgens mij iig niet, want die kent ie niet. Kan alleen niet vinden welke het dan wel moet zijn.
pi_64732465
COUNTIF is iig AANTAL.ALS misschien kan je daar wat mee vinden in de Help oid of gewoon intypen en dan kijken wat de opties zijn die beginnen met AANTAL.
pi_64733026
quote:
Op dinsdag 6 januari 2009 16:03 schreef DaFan het volgende:
COUNTIF is iig AANTAL.ALS misschien kan je daar wat mee vinden in de Help oid of gewoon intypen en dan kijken wat de opties zijn die beginnen met AANTAL.
Bleh, nou ik kan het niet vinden.
pi_64733273
Iemand met een Nederlandse Excel die ff een handje kan helpen?
  dinsdag 6 januari 2009 @ 17:15:59 #118
62215 qu63
..de tijd drinkt..
pi_64735693
=AANTAL.ALS(A1:A6;"Piet";B1:B6;"GOED")-AANTAL.ALS(A1:A6;"Piet";B1:B6;"GOED") zou moeten werken lijkt me?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64735825
quote:
Op dinsdag 6 januari 2009 17:15 schreef qu63 het volgende:
=AANTAL.ALS(A1:A6;"Piet";B1:B6;"GOED")-AANTAL.ALS(A1:A6;"Piet";B1:B6;"GOED") zou moeten werken lijkt me?
U heeft voor deze functie te veel argumenten ingevoerd.
pi_64738281
Ik heb m al:
=AANTALLEN.ALS(A1:A6;"Piet";B1:B6;"GOED")-AANTALLEN.ALS(A1:A6;"Piet";B1:B6;"FOUT")

Mn huisgenoot heeft een Nederlandse versie dus ik heb ff voor je gekeken.
pi_64750217
quote:
Op dinsdag 6 januari 2009 18:24 schreef DaFan het volgende:
Ik heb m al:
=AANTALLEN.ALS(A1:A6;"Piet";B1:B6;"GOED")-AANTALLEN.ALS(A1:A6;"Piet";B1:B6;"FOUT")

Mn huisgenoot heeft een Nederlandse versie dus ik heb ff voor je gekeken.
Geweldig, werkt prima, dankjewel.
pi_64766281
quote:
Op dinsdag 6 januari 2009 22:45 schreef Jiveje het volgende:

[..]

Geweldig, werkt prima, dankjewel.
Het heeft ff geduurd maar a la

Next!
pi_64774681
Zag net nog een @todo in mijn VB code bij excel heb net weer zitten te pruttelen maar krijg het nog steeds niet werkend...

1
2
3
4
5
6
7
8
9
10
11
12		    ' @todo: find out why I can't pass a worksheet object to a function...
    ' The problem is as followed...
    '
    ' Sub x()
    '   Dim oSheet As WorkSheet
    '   Set oSheet = Excel.Worksheets("FRK")
    '   y(oSheet) <-- Call sub y with param oSheet occures ERROR but why?
    ' End Sub
    '
    ' Sub y(ByVal oSheet As Worksheet)
    '   ...
    ' End Sub


Als iemand een ideetje heeft roept u maar

ps. Sub y(ByVal oSheet As Worksheet)
veranderen in:
Sub y(ByVal oSheet As Object)

werkt ook niet

voor de geintresseerde los ik dit nu op door gewoon de naam van de sheet door te geven aan de functie. Is ook mogelijk alleen scheelt de code boven (als hij zou werken) me weer een paar regels code
pi_64775134
1
2
3		Function y(oSheet As Worksheet)

End Function 

?
pi_64791512
Ik heb excel 2007 in het Engels. Mijn vraagje gaat over een excel bestand met data over mijn aandelen.

Ik heb een excel bestand met daarin per dag staan wat mijn rendement in euro, rendement in %, totale waarde in euro, fondsen die ik heb en procentuele verandering van de AEX is. Van deze gegevens laat ik dan enkele grafieken plotten zodat ik een mooi overzicht krijg zoals je hieronder kan zien.
Dag Rendement (euro) Rendement (%) Totale waarde Fondsen AEX 1-jan ¤ 0,00 0,00% ¤ 2.756,86 AE, AM, TNT, lux 0,00% 2-jan ¤ 76,39 2,77% ¤ 2.833,25 AE, AM, TNT, lux 5,00% 5-jan ¤ 101,48 3,58% ¤ 2.934,73 AE, AM, TNT, lux 1,37% 6-jan ¤ 162,77 5,55% ¤ 3.097,50 AE, AM, TNT, lux 2,86%
Nu heb ik dus iedere dag weer een nieuw rendement, nieuwe totale waarde en nieuwe verandering van de AEX. Het zou mooi zijn als er dan elke dag een regel bij kwam met de nieuwe waarden. Nu zou ik de formule er aan het begin van de dag in moeten zetten en dan zie ik aan het eind van de handelsdag de nieuwe getallen. Dan moet ik daarna de formule eruit halen, want anders gaat hij de volgende dag de oude waarden van bijvoorbeeld 6 januari veranderen naar de koersontwikkelingen van 7 januari. Het zou dus mooi zijn als hij iedere dag bijvoorbeeld om 18 uur de waarde zou laten staan die er is gekomen en naar de volgende regel zou overgaan. Ik denk dat ik het op kan lossen via macro's of iets dergelijks.

Weet iemand misschien hoe je makkelijk iets kan maken dat hij elke dag naar de volgende kolom gaat en daar weer de waardes in gaat vullen?
  donderdag 8 januari 2009 @ 16:13:54 #126
15080 static
03.09.2006 - 11:35
pi_64815157
Zal wel een simpele oplossing voor een simpel probleem zijn, maar ik heb een range van data (dus data als in 1 jan, 2 jan, etc.) waar voor een aantal data geen waarde is (dus bijvoorbeeld 1 jan., 2 jan., 5 jan., 7 jan.) prima allemaal, maar als ik een grafiekje maak komen de ontbrekende data dus wel in de grafiek (met geen waarde). Hoe voorkom ik dat?

Edit: Excel 2003 Engels overigens.
Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
pi_64847709
quote:
Op donderdag 8 januari 2009 16:13 schreef static het volgende:
Zal wel een simpele oplossing voor een simpel probleem zijn, maar ik heb een range van data (dus data als in 1 jan, 2 jan, etc.) waar voor een aantal data geen waarde is (dus bijvoorbeeld 1 jan., 2 jan., 5 jan., 7 jan.) prima allemaal, maar als ik een grafiekje maak komen de ontbrekende data dus wel in de grafiek (met geen waarde). Hoe voorkom ik dat?

Edit: Excel 2003 Engels overigens.
Ontbrekende data kan je uit je grafiek houden door #N/A als waarde te maken.
  vrijdag 9 januari 2009 @ 12:58:04 #128
15080 static
03.09.2006 - 11:35
pi_64847947
Dus ik MOET extra data toevoegen om ze UIT de grafiek te houden?
Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
  vrijdag 9 januari 2009 @ 13:05:51 #129
234506 Metal_Jag
MMM van metal
pi_64848208
quote:
Op woensdag 7 januari 2009 22:38 schreef ruben3123 het volgende:
Ik heb excel 2007 in het Engels. Mijn vraagje gaat over een excel bestand met data over mijn aandelen.

.... (btw heb je alleen positieve rendementen?? )...

Weet iemand misschien hoe je makkelijk iets kan maken dat hij elke dag naar de volgende kolom gaat en daar weer de waardes in gaat vullen?
Je vraag is mij niet duidelijk, maar het klinkt alsof je iets zoek met "regel invoegen", waardoor alles naar onderen schuift.
in een macro krijg je dan zoiets:

Sub Macro1()
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Range("B1").value = "%jouwformule op basis van cijfers in rij 2%"
Range("C1").value = "%jouwformule op basis van cijfers in rij 2%"
End Sub

Helpt je dit ?
pi_64850598
had niet goed gekeken en al een nieuw topic aangemaakt, toen zag ik dit topic pas.. mijn vraag:

Ik heb een berekening gemaakt waar onderaan een totaalprijs komt te staan. Omdat de berekening nogal uitgebreid is wordt het in 3 of meer pagina's geprint.

Graag zou ik op elke pagina onderaan ergens de totaal prijs willen printen.
Is er een mogelijkheid in excel om op elke pagina een formule onderaan te laten printen?
&lt;hr&gt;
  vrijdag 9 januari 2009 @ 14:22:35 #131
62215 qu63
..de tijd drinkt..
pi_64851085
Misschien met een voetnoot?

Of in de afdrukweergave kijken waar een pagina eindigt en in die rij de totaalprijs toevoegen?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_64851373
Mag het niet bovenaan de pagina want in een kop en voet tekst kan je volgens mij geen verrwijzing/formule kwijt.

Indien het bovenaan mag, wacht dacht je dan van de functie titels afdrukken? Kan je bij pagina instelling vinden
  vrijdag 9 januari 2009 @ 14:31:57 #133
234506 Metal_Jag
MMM van metal
pi_64851456
Gebruik deze macro en vul de juiste celverwijzing in.

Sub Macro1()

With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = Range("A1").Value
.CenterFooter = ""
.RightFooter = ""
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
pi_64851710
Zo kan het dus wel ook weer wat geleerd.

Let wel even op, het drukt gelijk af naar je default printer met het uitvoeren van deze macro.
  vrijdag 9 januari 2009 @ 14:41:00 #135
234506 Metal_Jag
MMM van metal
pi_64851824
quote:
Op vrijdag 9 januari 2009 14:38 schreef Jaheur het volgende:
Zo kan het dus wel ook weer wat geleerd.
Me too. Gewoon macro opnemen en voetnoot aanpassen. Vervolgens zelf de Range verwijzing erin gezet en getest of het werkte.

Ja dus.

De aanpak is misschien ook handig voor jou een volgende keer.
pi_64851894
quote:
Op vrijdag 9 januari 2009 14:41 schreef Metal_Jag het volgende:

[..]

Me too. Gewoon macro opnemen en voetnoot aanpassen. Vervolgens zelf de Range verwijzing erin gezet en getest of het werkte.

Ja dus.

De aanpak is misschien ook handig voor jou een volgende keer.
Nee, want de belangrijke info die ik op elke pagina wil hebben zet ik altijd boven in
  vrijdag 9 januari 2009 @ 14:42:43 #137
234506 Metal_Jag
MMM van metal
pi_64851901
quote:
Op vrijdag 9 januari 2009 14:38 schreef Jaheur het volgende:
Zo kan het dus wel ook weer wat geleerd.

Let wel even op, het drukt gelijk af naar je default printer met het uitvoeren van deze macro.
Ja dat moet wel. Anders verandert de voetnoot alleen als je de macro uitvoert. Je moet dus printen via deze macro, zodat altijd voor de print de voetnoot aangepast wordt !!
pi_64851962
quote:
Op vrijdag 9 januari 2009 14:42 schreef Metal_Jag het volgende:

[..]

Ja dat moet wel. Anders verandert de voetnoot alleen als je de macro uitvoert. Je moet dus printen via deze macro, zodat altijd voor de print de voetnoot aangepast wordt !!
Ik zag het later pas aan de macro. Kan je niet beter de macro verwijzen naar "Voorbeeld pagina"? Zodat je daarna kan afdrukken ;-)
  vrijdag 9 januari 2009 @ 14:45:00 #139
234506 Metal_Jag
MMM van metal
pi_64852006
quote:
Op vrijdag 9 januari 2009 14:42 schreef Jaheur het volgende:

[..]

Nee, want de belangrijke info die ik op elke pagina wil hebben zet ik altijd boven in
Bovenin kan ook zie vetgedrukte:
Sub Macro1()

With ActiveSheet.PageSetup

.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""

.LeftFooter = Range("A1").Value
.CenterFooter = ""
.RightFooter = ""
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
  vrijdag 9 januari 2009 @ 14:46:24 #140
234506 Metal_Jag
MMM van metal
pi_64852062
quote:
Op vrijdag 9 januari 2009 14:43 schreef Jaheur het volgende:

[..]

Ik zag het later pas aan de macro. Kan je niet beter de macro verwijzen naar "Voorbeeld pagina"? Zodat je daarna kan afdrukken ;-)
Vervang de laatste regel door:
ActiveWindow.SelectedSheets.PrintPreview
actieve topics nieuwe topics
abonnement Unibet Coolblue Bitvavo
[EXCEL] Het grote Excel vragen topic, #9
Index

» digital corner

» software

Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')