Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Anders (software)

nog een excel vraagje

Anoniem
None
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

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