Vraag & Antwoord

Anders (software)

nog een excel vraagje

10 antwoorden
  • Nu heb ik een klein vraagje over excel ik zou graag willen dat de cijfers die ik invoer in het ene blad gekopieerd worden naar het andere blad. nou is dat niet zo moeilijk maar ook zo dat de gegevens waar ik ze ook weg zo netjes in het andere blad onder ander elkaar komen te staan. ik zal het even duidelijker maken met plaatjes: allereerst heb ik deze gegevens over de roosters [img:decc9f68dc]http://home.wanadoo.nl/bvbroekhoven/excel/plaatje1.jpg[/img:decc9f68dc] deze gegevens over de roosters wil ik dan in het andere blad netjes onder elkaar komen te staan zoals in het volgende plaatje [img:decc9f68dc]http://home.wanadoo.nl/bvbroekhoven/excel/plaatje2.jpg[/img:decc9f68dc] nu weet ik dat kan met kopieren ook maar ik wil dat het ook zo netjes onder elkaar komen te staan als de er op andere plaatsen gegevens staan zoals in dit voorbeeld: [img:decc9f68dc]http://home.wanadoo.nl/bvbroekhoven/excel/plaatje3.jpg[/img:decc9f68dc] als iemand een antwoord heeft dan hoor ik het graag
  • Deze makro zou het kunnen doen. Eventueel de getallen aanpassen. [code:1:bf30132f6d]Sub lijst() Dim regel As Integer, x As Integer regel = 1 For x = 3 To 100 ' maximaal 100 regels If Sheets("Blad1").Cells(x, 2) <> "" Then 'kolom 2 moet een teken bevatten Sheets("Blad2").Cells(regel, 3) = Sheets("Blad1").Cells(x, 2) 'Bladnamen eventueel aanpassen Sheets("Blad2").Cells(regel, 4) = Sheets("Blad1").Cells(x, 3) 'Bladnamen eventueel aanpassen Sheets("Blad2").Cells(regel, 5) = Sheets("Blad1").Cells(x, 4) 'Bladnamen eventueel aanpassen regel = regel + 1 End If Next x End Sub [/code:1:bf30132f6d] Wim
  • hmm zal het meteen eens proberen
  • nu ben ik het een beetje aan het uitproberen geweest maar ik kom er niet echt aan uit. kan je een kleine beschrijving geven avn wat er precies staat
  • laat maar trouwens. dat heb ik al gevonden. nu is mijn vraag. elke regel dat die omlaag schuift hoe kan je er dan voor zorgen dat er dan automatisch ook lijntjes omheen komen te staan om de gegevens?
  • Hierbij de aangepaste code. Ook hier de bladnamen ed aanpassen [code:1:e5a0ebcc69]Sub lijst() Dim regel As Integer, x As Integer regel = 1 For x = 3 To 100 ' maximaal 100 regels If Sheets("Blad1").Cells(x, 2) <> "" Then 'kolom 2 moet een teken bevatten Sheets("Blad2").Cells(regel, 3) = Sheets("Blad1").Cells(x, 2) 'Bladnamen eventueel aanpassen Sheets("Blad2").Cells(regel, 4) = Sheets("Blad1").Cells(x, 3) 'Bladnamen eventueel aanpassen Sheets("Blad2").Cells(regel, 5) = Sheets("Blad1").Cells(x, 4) 'Bladnamen eventueel aanpassen Sheets("Blad2").Activate 'activeer blad2 With Sheets("Blad2").Range(Cells(regel, 3), Cells(regel, 5)) .Borders(xlDiagonalDown).LineStyle = xlNone .Borders(xlDiagonalUp).LineStyle = xlNone .Borders(xlEdgeLeft).LineStyle = xlContinuous .Borders(xlEdgeLeft).Weight = xlThin .Borders(xlEdgeLeft).ColorIndex = xlAutomatic .Borders(xlEdgeTop).LineStyle = xlContinuous .Borders(xlEdgeBottom).LineStyle = xlContinuous .Borders(xlEdgeRight).LineStyle = xlContinuous .Borders(xlInsideVertical).LineStyle = xlContinuous End With regel = regel + 1 End If Next x End Sub [/code:1:e5a0ebcc69] Groeten, Wim
  • oh geweldig hartstikke bedankt!!!
  • draaitabellen, is makkelijker dan macro's en snel probeer dat eens
  • en dat wertkt als volgt
  • klik in de gegevens, kies DATA en draaitabel, ( de reeks moet net als bij een tabel aaneengesloten zijn en alle kolommen moeten een kop hebben) De reesks wordt automatisch geselecteerd door de wizard, kies VOLGENDE, dan komt de mogelijkheid om INDELING te kiezen, slee de gewenste waarde in de kolom met RIJ in jouw geval aantal roosters en soort roosters (dubbelklik op deze knoppen en kies geen subtotalen, sleep vervolgens de maat naarhet gegevensveld en kies voltooien, er wordt een nieuw tabblad geopend met de betreffende gegevens Als je op een regel in de tabel dubbelklikt komt er een nieuw tabblad met de detailgegevens van de regeld succes

Beantwoord deze vraag

Weet jij het antwoord op deze vraag? Registreer of meld je aan met je account

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.