Heb je al gewerkt met de autofilter-functie ? Dan krijg je alle verkopen van een klant bij elkaar.quote:Op vrijdag 17 april 2009 23:28 schreef hoek21 het volgende:
Het is nog wat complexer........wil ook het product weten want klant koopt meer dan een product,
Ik krijg het naast elkaar via pivor table maar dan kan ik het bronbestand niet bewerken.
2006 klant x product a 500
2006 klant x product b 1000
2006 klant x product c 1300
2006 klant y product a
2006 klant y product b
2006 klant y product c
2006 klant z product a
2006 klant z product b
2006 klant z product c
2007klant x product a
2007klant x product b
2007 klant x product c
2007 klant y product a
2007 klant y product a
2007 klant y product a
2007 klant z product a
2007klant z product a
2007klant z product a
etc
Dank voor de hulp
gr
De spelers op Blad1 worden hierbij dus automatisch gesorteerd op club over de 18 'clubbladen' en deze data komt op B2:D50 te staan. Alleen dit werkt helaas alleen maar als de ongesorteerde data uit Blad1 staat op cel A1 tot bijvoorbeeld C100. Ik heb Blad1 aangepast en nu staat de data niet meer op A1:C100, maar nu begint de data in C6 (dus de oude A1) en eindigt het bijvoorbeeld in E105 (de oude C100).quote:Private Sub CommandButton1_Click()
For Each ws In Worksheets
If ws.Name <> Worksheets(1).Name Then 'zo sla je de eerste worksheet over
Club = ws.Name
Worksheets(Club).Range("B2:D50").Clear
i = 0
j = 1
Do
i = i + 1
If Worksheets(1).Cells(i, 2).Value = Club Then
j = j + 1
Worksheets(Club).Cells(j, 2).Value = Worksheets(1).Cells(i, 1).Value
Worksheets(Club).Cells(j, 3).Value = Worksheets(1).Cells(i, 3).Value
Worksheets(Club).Cells(j, 4).Value = Worksheets(1).Cells(i, 4).Value
End If
Loop Until Worksheets(1).Cells(i, 1).Value = ""
End If
Next
End Sub
quote:Op zaterdag 18 april 2009 11:29 schreef RayMania het volgende:
Had dit al enkele weken gevraagd, maar het is nog niet naar mijn zin.
Dit is het geval; ik heb een sheet met 19 bladen. Blad1 geeft een overzicht weer van de naam van een voetballer (kolom A) met daarbij hun club (kolom B) en hun positie (kolom C). Op deze sheet staat deze macro:
[..]
De spelers op Blad1 worden hierbij dus automatisch gesorteerd op club over de 18 'clubbladen' en deze data komt op B2:D50 te staan. Alleen dit werkt helaas alleen maar als de ongesorteerde data uit Blad1 staat op cel A1 tot bijvoorbeeld C100. Ik heb Blad1 aangepast en nu staat de data niet meer op A1:C100, maar nu begint de data in C6 (dus de oude A1) en eindigt het bijvoorbeeld in E105 (de oude C100).
Hoe zorg ik ervoor dat de data uit Blad1 alsnog wordt 'herkent' en wel wordt gesorteerd over de clubbladen?
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 | Private Sub CommandButton1_Click() Keen = 3 'Dit staat voor kolom C Ktwee =4 'Dit staat voor kolom D Kdrie = 5 'kolom E For Each ws In Worksheets If ws.Name <> Worksheets(1).Name Then 'zo sla je de eerste worksheet over Club = ws.Name Worksheets(Club).Range("B2:D50").Clear i = 5 'dit is de startwaarde (-1) voor de teller voor de rijen op blad 1 j = 1 'startwaarde voor teller per clubblad Do i = i + 1 If Worksheets(1).Cells(i, Ktwee).Value = Club Then j = j + 1 Worksheets(Club).Cells(j, 2).Value = Worksheets(1).Cells(i, Keen).Value Worksheets(Club).Cells(j, 3).Value = Worksheets(1).Cells(i, Ktwee).Value Worksheets(Club).Cells(j, 4).Value = Worksheets(1).Cells(i, Kdrie).Value End If Loop Until Worksheets(1).Cells(i, Keen).Value = "" End If Next End Sub |
quote:Op vrijdag 17 april 2009 01:05 schreef The_vice het volgende:
[..]
=DATEVALUE(A1)+TIMEVALUE(A1) converteert bij mij 2007-02-21 06:15:58 nr het getal 39134,26109
. In time format geeft dan weer de correcte datum.
voor van elkaar aftrekken van twee tijden:
=(DATEVALUE(A2)+TIMEVALUE(A2)) - (DATEVALUE(A1)+TIMEVALUE(A1))
Zie net dat =Value(A1) het ook doet in één keer. =Waarde(A1) in nederlandse versie. Deze functie maakt van tekst opgeslagen getal weer een "echt" getal waar excel wee mee kan rekenen.
Beide bedankt voor de antwoorden.quote:Op vrijdag 17 april 2009 08:21 schreef DaFan het volgende:
=INT(D1) &" Days " & INT(MOD(D1,INT(D1))*24) & " Hours and " & MINUTE(D1) & " Minutes and " & SECOND(D1) & " seconds"
Het is iig wel mogelijk om via "invoegen" --> "afbeelding" ---> "uit bestand" een url in te geven. Dat figuur kun je dan opmaken...quote:Op maandag 20 april 2009 22:35 schreef Bill_E het volgende:
Weet er iemand hoe ik een foto die op een website staat ( www.foto.nl/foto.jpg) met een simpele muisklik in excel in een cel kan zetten ( de foto dus niet de link) ? En eventueel ook nog een juiste vooraf ingestelde afmeting kan geven? Ik dacht dit ooit online gezien te hebben in een leuke tips en truck website maar krijg het niet meer gevonden
Met een macro opnemen lijkt me niet te lukken. Ik zal er 1 moeten schrijven. Ik heb er wel 1 maar die opent een foto vanaf je harddisk. Maar ik krijg het niet voor elkaar om niet voor elkaar om naar een webadres te linken.quote:Op dinsdag 21 april 2009 13:10 schreef DaFan het volgende:
Macrootje opnemen dus en kijken of je dat soort dingen via macro uberhaupt kan doen.
Heb je de actie in mijn post "opgenomen" ?quote:Op dinsdag 21 april 2009 18:26 schreef Bill_E het volgende:
[..]
Met een macro opnemen lijkt me niet te lukken. Ik zal er 1 moeten schrijven. Ik heb er wel 1 maar die opent een foto vanaf je harddisk. Maar ik krijg het niet voor elkaar om niet voor elkaar om naar een webadres te linken.
Helemaal overheengelezen ! zo eens proberen. ff van pc wisselenquote:Op dinsdag 21 april 2009 18:44 schreef Joooo-pi het volgende:
[..]
Heb je de actie in mijn post "opgenomen" ?
ik krijg dit:quote:Op dinsdag 21 april 2009 19:22 schreef Bill_E het volgende:
[..]
Helemaal overheengelezen ! zo eens proberen. ff van pc wisselen
1 2 3 4 5 6 7 8 9 10 11 | ' ' Macro1 Macro ' De macro is opgenomen op 21-4-2009 door Joooo-pi. ' ' ActiveSheet.Pictures.Insert("http://www.google.nl/intl/nl_nl/images/logo.gif"). Select Selection.ShapeRange.ScaleWidth 1.6, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 1.6, msoFalse, msoScaleFromTopLeft End Sub |
Hulde! Dank u wel. Dit wekt perfect.quote:
Hij bedoelt dat hij overgaat met 2 onvoldoendes. Zodra er 3 zijn moeten de alarmbellen gaan rinkelen.quote:Op woensdag 22 april 2009 07:33 schreef DaFan het volgende:
"als er 3 of meer onvoldoendes staan als eindcijfer, dus dat het lager is dan 6"
Wat?
Hij moet pas een gemiddelde berekenen als er meer dan 3 onvoldoendes staan, of..?
Kan je 2 voorbeelden geven:
- Je hebt 5 cijfers waarvan er maar 1 een onvoldoende is, wat is dan de uitkomst?
- Je hebt 5 cijfers waarvan er 3 een onvoldoende zijn, wat is dan de uitkomst?
En welke versie van Excel heb je?
1 2 3 4 5 6 7 8 9 10 11 12 | A 0 1 B 1 0 C 1 0 A 0 1 A 1 0 B 1 1 Resultaat: A 1 2 B 2 1 C 1 0 |
1 2 | A =1 =1 |
Welke versie, welke cellen/kolommen enzo?quote:Op woensdag 22 april 2009 09:17 schreef addie het volgende:
Wellicht dat jullie me kunnen helpen:
Ik heb in Excel een dump geplaatst uit het financieel programma. Deze rekent automatisch een KPI uit en die wil ik dan weer in een aparte lijst laten plaatsen. Hiertoe zet ik het weeknummer erachter, wat via een IF-functie dan doorwerkt naar een cel in die aparte lijst.
Tot zover gaat het goed. Maar nu wil ik graag deze uitkomst vastzetten (zonder paste special, automatisch dus), aangezien de gegevens bewaard moeten blijven en de volgende week de rij eronder gevuld moet worden.
Iemand een idee? Volgens mij kan het met macro's, maar daarin kom ik echt net kijken..
even een reminder van hoeveel onvoldoendes je hebt zeg maar. Met 2 zou je je zorgen kunnen gaan maken.quote:Op woensdag 22 april 2009 09:46 schreef DaFan het volgende:
Deetch waarom zo lastig:
=IF(COUNTIF(B1:B10,"<6")>=3,"Niet over",AVERAGE(B1:B10))
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |