Ja ik weet het. Bij de 2e code moet je de commandbutton op de eerste(!) sheet (bij de gegevens) zetten. Dat was de aanpassing.quote:Op donderdag 26 maart 2009 19:57 schreef RayMania het volgende:
Ik heb het precies gedaan zoals je uitgelegd heb. In A:A (blad1) heb ik de lijst met spelers en in B:B de clubnaam. Op blad2 heb ik in A1 een club ingevoerd en op dezelfde sheet staat de commandbutton naar de code, maar ik krijg resultaat. Het enige wat ik krijg is dat de clubnaam verwijderd wordt?
Edit; nu test ik de eerste code, maar die werkt wel . Maar inderdaad wat DaFan zegt; ik wil 18 bladen maken en dat automatisch alle spelers uit blad1 worden verdeeld over de clubbladen (2 t/m 19, zeg maar).
Geweldig ! Hartstikke bedankt.quote:Op donderdag 26 maart 2009 20:10 schreef Joooo-pi het volgende:
[..]
Ja ik weet het. Bij de 2e code moet je de commandbutton op de eerste(!) sheet (bij de gegevens) zetten. Dat was de aanpassing.
Dan maakt ie wel de lijstjes per sheet.
quote:Op donderdag 26 maart 2009 20:17 schreef RayMania het volgende:
[..]
Geweldig ! Hartstikke bedankt.
Nu je toch zo goed bezig bent voor mij; hoe zou ik eenvoudig een extra kolom kunnen meenemen? Dus stel ik heb meerdere kolommen (A = Speler, B = Club, C = Positie, D = Rugnummer), hoe kopieer ik dan kolom A, C en D naar de desbetreffende bladen? Sorry als hierdoor de code flink anders is, maar kwam er helaas net pas achter.
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 | For Each ws In Worksheets If ws.Name <> Worksheets(1).Name Then 'zo sla je de eerste worksheet over Club = ws.Name Worksheets(Club).Columns("A:C").Clear i = 0 j = 0 Do i = i + 1 If Worksheets(1).Cells(i, 2).Value = Club Then j = j + 1 Worksheets(Club).Cells(j, 1).Value = Worksheets(1).Cells(i, 1).Value Worksheets(Club).Cells(j, 2).Value = Worksheets(1).Cells(i, 3).Value Worksheets(Club).Cells(j, 3).Value = Worksheets(1).Cells(i, 4).Value End If Loop Until Worksheets(1).Cells(i, 1).Value = "" End If Next End Sub |
Top, werkt ook weer .quote:Op donderdag 26 maart 2009 20:21 schreef Joooo-pi het volgende:
[..]
[ code verwijderd ]
Dit lijkt me wat je bedoelt..
quote:En is er een mogelijkheid dat de spelers niet A:A worden gezet, maar bijvoorbeeld in een bepaald gedeelte van de sheet (bijvoorbeeld vanaf B2 t/m B50)?
Heb je mijn edit ook gezien dan? Eerste post was ik vergeten de kolommen leeg te halen.quote:Op donderdag 26 maart 2009 20:25 schreef RayMania het volgende:
[..]
Top, werkt ook weer .
Ik had m'n post nog geëdit, maar je was sneller dan het licht.
[..]
quote:Op donderdag 26 maart 2009 20:25 schreef RayMania het volgende:
[..]
Top, werkt ook weer .
Ik had m'n post nog geëdit, maar je was sneller dan het licht.
[..]
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 | 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 |
Hartstikke bedankt. Ik kan weer even verder. Dit maakt alles veel makkelijker .quote:
Maar als dan in het hoofdblad een jaartal veranderd wordt, dan veranderen de gegevens in de jaarbladen niet mee toch?quote:
Dan ga ik dat zo eens bekijkenquote:Op vrijdag 27 maart 2009 12:00 schreef Deetch het volgende:
In een pivottable kun je alle vervangen onderdelen per jaartal tonen. In de pivottable komt dan een kuezelijst met jaartallen en als je die veranderd veranderd de data in de tabel mee.
Klik met rechts op je grafiek (witte gedeelte) en selecteer "grafiekopties". Vul daar grafiektitel in.quote:Op maandag 30 maart 2009 12:15 schreef Stansfield het volgende:
Hoe zet ik een kop in een grafiek? Ik heb de grafiek al helemaal zoals ik wil. Alleen wil ik erboven, maar wel in de grafiek nog een tekst zetten.
Je was me voor precies zelfde antwoordquote:Op maandag 30 maart 2009 12:27 schreef DaFan het volgende:
Rechtermuisknop -> Grafiekopties -> Titel invullen.
Hendrik:
Volgens mij kan dit niet.
Er is in principe ook maar 1 juist antwoordquote:Op maandag 30 maart 2009 12:28 schreef Joooo-pi het volgende:
[..]
Je was me voor precies zelfde antwoord
Ha, daar kunnen we een heel extra topic wel aan gaan wijden:quote:Op maandag 30 maart 2009 13:20 schreef Stansfield het volgende:
En hoe doe je dat bij de nederlanse versie van de nieuwste excel?
Grafiekopties en grafiektitel... is dat geen Nederlands dan?quote:Op maandag 30 maart 2009 13:20 schreef Stansfield het volgende:
En hoe doe je dat bij de nederlanse versie van de nieuwste excel?
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |