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.
Als ik je goed begrijp wil je de BHV'ers tussen het overige personeel zetten?quote:Op dinsdag 24 maart 2009 14:44 schreef roelmaster18 het volgende:
Ik heb een vraag .
Ik heb 2 Exel documenten
1 met namen en personeelsnummers van alle medewerker zon 2500
1 met namen van alle BHV-ers (ook hier staan de personeelnummers bij.
Nu wil ik graag dat de lijst met BHV-ers geimporteerd worden in de totaallijst, dus iets met find and replace, maar wil geen 700 namen in voeren....Iemand een idee met welk programma en hoe ik dat kan doen.
Niet moeilijk denken:
Selecteer de 2 kolommen met BHV en pers.nummer in doc. 2
Dan kopieren
Ga naar doc. 1 en plak ze onder de andere 2500
Nu de truc: selecteer de hele kolom (2500 + 700 ?) en klik op SORTEREN!
Dan heb je ze ertussen en op volgorde
Maar het was misschien niet wat je bedoelde?
heitieh
ff een vraagje,
ik heb een pivot, en daarin zeg ik dat velden met de waarde -1 een kleur moeten krijgen, en dat deze kleur toegepast moet worden op .zowel de tekst als de achtergrond. Op het scherm wordt het als een grijs blok weergegeven, dus dan is de -1 waarde dezelfde kleur als de achtergrond. Nu is het echter zo dat als ik ga printen, de tekst zwart kleurt en de achtergrond wel de juiste kleur krijgt, maar ze moeten dus allebei dezelfde kleur hebben, zodat de getallen niet zichtbaar zijn.
Is dit op te lossen, en zo ja hoe??
groet
ik heb een pivot, en daarin zeg ik dat velden met de waarde -1 een kleur moeten krijgen, en dat deze kleur toegepast moet worden op .zowel de tekst als de achtergrond. Op het scherm wordt het als een grijs blok weergegeven, dus dan is de -1 waarde dezelfde kleur als de achtergrond. Nu is het echter zo dat als ik ga printen, de tekst zwart kleurt en de achtergrond wel de juiste kleur krijgt, maar ze moeten dus allebei dezelfde kleur hebben, zodat de getallen niet zichtbaar zijn.
Is dit op te lossen, en zo ja hoe??
groet
Het uiten van je menig is het allerhoogste goed, dat is juist iets wat haat ontlaad en niet wat woede voedt.... (maassen 2004™)
dubbelpost
[ Bericht 96% gewijzigd door PsychoBoB op 25-03-2009 11:12:01 ]
[ Bericht 96% gewijzigd door PsychoBoB op 25-03-2009 11:12:01 ]
Het uiten van je menig is het allerhoogste goed, dat is juist iets wat haat ontlaad en niet wat woede voedt.... (maassen 2004™)
Het gaat fout vanaf deze code:quote:Op donderdag 19 maart 2009 14:01 schreef DaFan het volgende:
Jaheur als je nou ff een nep variable aanmaakt, zeg i = 1 en deze plaatst aan het begin van je macro. Ga dan in de Editor en doe rechtermuisknop -> Add watch (Controle toevoegen) -> Break when value changes (Onderbreken indien waarde is gewijzigd).
Dan ga je de code ín en kan je met F8 naar de volgende stap. Je kan dan zien waar het evt fout gaat. Ik kan zo niks vinden.
| 1 2 3 4 | "Bevindingen!R1K1:R111K16", Version:=xlPivotTableVersion10).CreatePivotTable _ TableDestination:="Data!R16K13", TableName:="Draaitabel1", DefaultVersion _ :=xlPivotTableVersion10 |
Ik heb het ook ff "opgenomen" en bij mij zag het maken van een pivot er anders uit. Hieronder staat het, met jouw ranges erin.quote:Op woensdag 25 maart 2009 11:21 schreef Jaheur het volgende:
[..]
Het gaat fout vanaf deze code:
[ code verwijderd ]
Misschien dat dat wel werkt?
| 1 2 3 | "Bevindingen!R1K1:R111K16").CreatePivotTable TableDestination:="Data!R16K13", TableName:= _ "Draaitabel1", DefaultVersion:=xlPivotTableVersion10 |
ps/ TableDestination stond bij mij op "". Mocht het bovenstaande nog fout gaan verander dat dan eerst ff in ""
Die van jou werkt, maar niet op mijn manier. Het moet in een bestaande werkblad en niet in een nieuwe en als ik de code ActiveWorkbook.PivotCaches.Add aanpas naar ActiveWorkbook.PivotCaches.Create werkt het weer niet :/quote:Op woensdag 25 maart 2009 12:39 schreef Metal_Jag het volgende:
[..]
Ik heb het ook ff "opgenomen" en bij mij zag het maken van een pivot er anders uit. Hieronder staat het, met jouw ranges erin.
Misschien dat dat wel werkt?
[ code verwijderd ]
ps/ TableDestination stond bij mij op "". Mocht het bovenstaande nog fout gaan verander dat dan eerst ff in ""
Maar in TableDestination kun je toch aangeven waar je de draaittabel wilt hebben? Als je daar je bestaande werkblad met celverwijzing neerzet, ben je toch klaar? (Precies die code uit mijn vorige post, dus met de TableDestination = "JOUWRANGE")quote:Op woensdag 25 maart 2009 13:06 schreef Jaheur het volgende:
[..]
Die van jou werkt, maar niet op mijn manier. Het moet in een bestaande werkblad en niet in een nieuwe en als ik de code ActiveWorkbook.PivotCaches.Add aanpas naar ActiveWorkbook.PivotCaches.Create werkt het weer niet :/
Wederom een vraagje, zal het zo goed mogelijk proberen uit te leggen.
Ik heb sheet1 en in de cellen A1 t/m A10 staat de naam van een voetbalspeler. In de cellen B1 t/m B10 staat de club waar die voetbalspeler op dit moment speelt. In kolom B kunnen dus verschillende clubs staan.
Nu heb ik bijvoorbeeld sheet2 en ik wil daar een overzicht maken van alle spelers van één bepaalde club (zeg Ajax). De informatie moet gehaald worden uit sheet1. Ik wil dus dat sheet1 gecontroleerd wordt op een bepaalde club en als er een speler van bijvoorbeeld Ajax tussen staat, moet dat getransfert worden naar sheet2 (waar alle Ajacieden komen te staan). Hoe doe ik dat?
Ik heb sheet1 en in de cellen A1 t/m A10 staat de naam van een voetbalspeler. In de cellen B1 t/m B10 staat de club waar die voetbalspeler op dit moment speelt. In kolom B kunnen dus verschillende clubs staan.
Nu heb ik bijvoorbeeld sheet2 en ik wil daar een overzicht maken van alle spelers van één bepaalde club (zeg Ajax). De informatie moet gehaald worden uit sheet1. Ik wil dus dat sheet1 gecontroleerd wordt op een bepaalde club en als er een speler van bijvoorbeeld Ajax tussen staat, moet dat getransfert worden naar sheet2 (waar alle Ajacieden komen te staan). Hoe doe ik dat?
Achter-elkaar-bezochte-Ajax-thuiswedstrijden-meter: [b]29[/b].
[b]Laatste wedstrijd:[/b] FC Timişoara. [b]Volgende:[/b] ADO Den Haag.
Ray's Statshoekje - 2009/2010.
[b]Laatste wedstrijd:[/b] FC Timişoara. [b]Volgende:[/b] ADO Den Haag.
Ray's Statshoekje - 2009/2010.
Ik hou wel van simpele macro'tjes:quote:Op woensdag 25 maart 2009 19:43 schreef RayMania het volgende:
Wederom een vraagje, zal het zo goed mogelijk proberen uit te leggen.
Ik heb sheet1 en in de cellen A1 t/m A10 staat de naam van een voetbalspeler. In de cellen B1 t/m B10 staat de club waar die voetbalspeler op dit moment speelt. In kolom B kunnen dus verschillende clubs staan.
Nu heb ik bijvoorbeeld sheet2 en ik wil daar een overzicht maken van alle spelers van één bepaalde club (zeg Ajax). De informatie moet gehaald worden uit sheet1. Ik wil dus dat sheet1 gecontroleerd wordt op een bepaalde club en als er een speler van bijvoorbeeld Ajax tussen staat, moet dat getransfert worden naar sheet2 (waar alle Ajacieden komen te staan). Hoe doe ik dat?
Op blad2 heb ik een knop (CommandButton1) geplaatst en in A1 typ je de club. Zet achter de knop de volgende code:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | Columns("B:B").Clear Club = Range("A1").Value i = 0 j = 0 Do i = i + 1 If Worksheets("Blad1").Cells(i, 2).Value = Club Then j = j + 1 Worksheets("Blad2").Cells(j, 2).Value = Worksheets("Blad1").Cells(i, 1).Value End If Loop Until Worksheets("Blad1").Cells(i, 1).Value = "" End Sub |
heitieh
Jopi kan je er niet nog zoiets om heen bouwen, dan hoeft RM alleen nog maar 18 Worksheets aan te maken met de naam van de clubs (neem aan Eredivisie :P )
Hoef je ten eerste A1 niet te 'vervuilen' met de clubnaam, ten tweede hoef je geen 18 buttons te maken en de macro aan te passen qua worksheetnaam (Blad2 in jouw voorbeeld).
| 1 2 3 4 5 6 7 8 9 | For each ws in Worksheets Club = ws.Name <jouw code> Next |
Hoef je ten eerste A1 niet te 'vervuilen' met de clubnaam, ten tweede hoef je geen 18 buttons te maken en de macro aan te passen qua worksheetnaam (Blad2 in jouw voorbeeld).
Dan krijg ik de melding ongeldige procedure aanroep of ongeldig argumentquote:Op woensdag 25 maart 2009 18:43 schreef Metal_Jag het volgende:
[..]
Maar in TableDestination kun je toch aangeven waar je de draaittabel wilt hebben? Als je daar je bestaande werkblad met celverwijzing neerzet, ben je toch klaar? (Precies die code uit mijn vorige post, dus met de TableDestination = "JOUWRANGE")
Heb je dan misschien geen passende range? Wat als je het bij 1 cell houdt?quote:Op donderdag 26 maart 2009 10:13 schreef Jaheur het volgende:
[..]
Dan krijg ik de melding ongeldige procedure aanroep of ongeldig argument
Ik heb het nl. geprobeerd en het werkte bij mij wel...
Ik benader de sheet en range op een andere manier en dan werkt het wel:quote:Op donderdag 26 maart 2009 12:35 schreef Metal_Jag het volgende:
[..]
Heb je dan misschien geen passende range? Wat als je het bij 1 cell houdt?
Ik heb het nl. geprobeerd en het werkte bij mij wel...
TableDestination:=Sheets("DATA").Range("A1")
Ha, je hebt gelijk. Ik had blijkbaar de post niet helemaal goed gelezen, want ik dacht dat hij het zo wou hebben. Maar ik heb je voorstel er even in verwerkt. Nu met 1 knop op de eerste sheet om de gegevens te verwerken. Dit zou nog in een EventChange kunnen, maar goed.quote:Op woensdag 25 maart 2009 22:22 schreef DaFan het volgende:
Jopi kan je er niet nog zoiets om heen bouwen, dan hoeft RM alleen nog maar 18 Worksheets aan te maken met de naam van de clubs (neem aan Eredivisie)
[ code verwijderd ]
Hoef je ten eerste A1 niet te 'vervuilen' met de clubnaam, ten tweede hoef je geen 18 buttons te maken en de macro aan te passen qua worksheetnaam (Blad2 in jouw voorbeeld).
| 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 | 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:A").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 End If Loop Until Worksheets(1).Cells(i, 1).Value = "" End If Next End Sub |
[ Bericht 3% gewijzigd door Joooo-pi op 26-03-2009 20:23:16 ]
heitieh
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).
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).
Achter-elkaar-bezochte-Ajax-thuiswedstrijden-meter: [b]29[/b].
[b]Laatste wedstrijd:[/b] FC Timişoara. [b]Volgende:[/b] ADO Den Haag.
Ray's Statshoekje - 2009/2010.
[b]Laatste wedstrijd:[/b] FC Timişoara. [b]Volgende:[/b] ADO Den Haag.
Ray's Statshoekje - 2009/2010.
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
Dan maakt ie wel de lijstjes per sheet.
heitieh
Geweldigquote: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.
! 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.
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)?
Achter-elkaar-bezochte-Ajax-thuiswedstrijden-meter: [b]29[/b].
[b]Laatste wedstrijd:[/b] FC Timişoara. [b]Volgende:[/b] ADO Den Haag.
Ray's Statshoekje - 2009/2010.
[b]Laatste wedstrijd:[/b] FC Timişoara. [b]Volgende:[/b] ADO Den Haag.
Ray's Statshoekje - 2009/2010.
quote:Op donderdag 26 maart 2009 20:17 schreef RayMania het volgende:
[..]
Geweldig
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 |
Dit lijkt me wat je bedoelt..
[ Bericht 2% gewijzigd door Joooo-pi op 26-03-2009 20:25:42 (KOLOMMEN LEGEN VERGETEN (2)) ]
heitieh
Top, werkt ook weerquote:Op donderdag 26 maart 2009 20:21 schreef Joooo-pi het volgende:
[..]
[ code verwijderd ]
Dit lijkt me wat je bedoelt..
. Ik had m'n post nog geëdit, maar je was sneller dan het licht.
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)?
Achter-elkaar-bezochte-Ajax-thuiswedstrijden-meter: [b]29[/b].
[b]Laatste wedstrijd:[/b] FC Timişoara. [b]Volgende:[/b] ADO Den Haag.
Ray's Statshoekje - 2009/2010.
[b]Laatste wedstrijd:[/b] FC Timişoara. [b]Volgende:[/b] ADO Den Haag.
Ray's Statshoekje - 2009/2010.
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.
[..]
Ik ga nog ff kijken naar je laatste vraag dan.
heitieh
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 |
[ Bericht 2% gewijzigd door Joooo-pi op 26-03-2009 20:29:12 (shit weer het legen vergeten :P) ]
heitieh
Ja, daar was ik weer
Ik heb een lijst met onderdelen, waarbij in kolom L een jaartal van vervanging staat. Nu is de bedoeling dat er per jaar een werkblad komt met daarin alle onderdelen die dat jaar vervangen moeten worden.
Dat is natuurlijk makkelijk door een filter te gebruiken en de gegevens te kopieren, maar het mooiste zou zijn als de gegevens in de aparte werkbladen meeveranderen door wijzigingen in het hoofdblad (dus ook de jaartallen kunnen veranderen)
Is dit te doen (in Excel 2000
! ), of is met filter toch de enige mogelijkheid?
Ik heb een lijst met onderdelen, waarbij in kolom L een jaartal van vervanging staat. Nu is de bedoeling dat er per jaar een werkblad komt met daarin alle onderdelen die dat jaar vervangen moeten worden.
Dat is natuurlijk makkelijk door een filter te gebruiken en de gegevens te kopieren, maar het mooiste zou zijn als de gegevens in de aparte werkbladen meeveranderen door wijzigingen in het hoofdblad (dus ook de jaartallen kunnen veranderen)
Is dit te doen (in Excel 2000
! ), of is met filter toch de enige mogelijkheid?
waarom geen pivot table?
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Hartstikke bedankt. Ik kan weer even verder. Dit maakt alles veel makkelijkerquote:
.
Achter-elkaar-bezochte-Ajax-thuiswedstrijden-meter: [b]29[/b].
[b]Laatste wedstrijd:[/b] FC Timişoara. [b]Volgende:[/b] ADO Den Haag.
Ray's Statshoekje - 2009/2010.
[b]Laatste wedstrijd:[/b] FC Timişoara. [b]Volgende:[/b] ADO Den Haag.
Ray's Statshoekje - 2009/2010.
Maar als dan in het hoofdblad een jaartal veranderd wordt, dan veranderen de gegevens in de jaarbladen niet mee toch?quote:
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.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
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.
