DIG Digital Corner
Alles wat je altijd al over computers, hardware, software, internet en elektronische gadgets had willen weten, maar niet op Tweakers.net durft te vragen.
=SUMPRODUCT((A1:A6="Piet")*(B1:B6="Goed"))-SUMPRODUCT((A1:A6="Piet")*(B1:B6="Fout"))
lijkt me?
lijkt me?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
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]
[i]What would life be like without rhethorical questions?[/i]
Nee, probeer hem maar eens te ontleden.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?
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
Ik zal nog s kijken naar het bestand wat ik toen kreeg.quote:Op zondag 4 januari 2009 20:40 schreef qu63 het volgende:
En heb je ook nog een oplossing voor mij DaFan?
Thanksquote:Op zondag 4 januari 2009 20:43 schreef DaFan het volgende:
[..]
Ik zal nog s kijken naar het bestand wat ik toen kreeg.
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
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!!
Succes.
PS: Ik wil m ook wel mailen (je originele bestand) dan moet je ff je mailadres pmen of hier posten.
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 | 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.
Op zich werkt je code wel (ik moet er alleen een xlsm bestand van maken ivm de macro), alleen krijg ik dit op Blad2:
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?
| 1 2 3 4 | 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]
[i]What would life be like without rhethorical questions?[/i]
Nope, Blad3 is helemaal leegquote:
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
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?
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?
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
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]
[i]What would life be like without rhethorical questions?[/i]
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 houdenquote: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.
-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]
[i]What would life be like without rhethorical questions?[/i]
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
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
Weet je hoe het wel moet? Ik gebruik nu die van hem en die werkt wel redelijk, alleen dat geeft al een enorme laadtijd.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
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.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.
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 helaasquote:
[..]
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.
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]
[i]What would life be like without rhethorical questions?[/i]
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?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.
Die geeft een fout bij: A6,"Piet",B1quote: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")
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)
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.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 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.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.
=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]
[i]What would life be like without rhethorical questions?[/i]
U heeft voor deze functie te veel argumenten ingevoerd.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?
