[EXCEL] Het grote Excel vragen topic, #9

zondag 28 december 2008 @ 17:58:39 #76

DaFan

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

qu63

..de tijd drinkt..

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

qu63

..de tijd drinkt..

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]

zondag 28 december 2008 @ 22:03:10 #79

Wouser

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

qu63

..de tijd drinkt..

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]

maandag 29 december 2008 @ 17:09:53 #81

DaFan

Ik ga er vandaag niet uitkomen en ben morgen weg voor 3 dagen, sorry.

maandag 29 december 2008 @ 17:19:04 #82

qu63

..de tijd drinkt..

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]

maandag 29 december 2008 @ 19:54:51 #83

Wouser

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

qu63

..de tijd drinkt..

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]

zaterdag 3 januari 2009 @ 14:20:32 #85

notepad

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.

zaterdag 3 januari 2009 @ 16:57:28 #86

DaFan

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,".",""))))

zondag 4 januari 2009 @ 20:15:33 #87

Jiveje

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

qu63

..de tijd drinkt..

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]

zondag 4 januari 2009 @ 20:30:20 #89

DaFan

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

zondag 4 januari 2009 @ 20:34:28 #90

Jiveje

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

qu63

..de tijd drinkt..

=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

qu63

..de tijd drinkt..

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]

zondag 4 januari 2009 @ 20:42:11 #93

DaFan

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

zondag 4 januari 2009 @ 20:43:16 #94

DaFan

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

qu63

..de tijd drinkt..

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]

zondag 4 januari 2009 @ 21:12:06 #96

DaFan

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

qu63

..de tijd drinkt..

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]

zondag 4 januari 2009 @ 21:33:44 #98

DaFan

Dat staat toch in Blad3?

zondag 4 januari 2009 @ 21:38:17 #99

qu63

..de tijd drinkt..

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]

zondag 4 januari 2009 @ 21:40:32 #100

DaFan

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?

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

» digital corner

» software

» digital corner

» software