Pagina 1 van de 2 12 LaatsteLaatste
Resultaten 1 tot 10 van de 20

Onderwerp: kopieren van bereik naar ander werkblad

  1. #1
    sander1 Guest

    Standaard kopieren van bereik naar ander werkblad

    Beste lezer,

    Waarschijnlijk een heel simpele vraag maar ik kom toch niet uit het antwoord. Wellicht dat je een tip kunt geven.

    Met onderstaande code, kopieer ik een bereik van kolom B naar een ander werkblad naar kolom A en dan op de eerst volgende lege cel. Ik gebruik dit werkblad als gegevensblad

    Code:
    Sub lijst_kopieren_naar_gegevens()
    With Sheets("planning")
    .Range("b25:b44").Copy Sheets("gegevens").Range("A" & Rows.Count).End(xlUp).Offset(1)
    End With
    End Sub
    Dit werkt goed.

    Nu wil ik graag achter de net gekopieerde cellen in kolom b de waarde van één cel uit "planning" zetten. Hoe kan ik dit het beste doen? Ik dacht eerst de formule te herhalen maar dan met een ander bereik. Resultaat is dat hij maar 1 cel vult in kolom B en niet alle cellen die net in kolom A gevuld zijn.

    Met vriendelijke groet,
    Sander
    Bijgevoegde Bestanden Bijgevoegde Bestanden
    Laatst gewijzigd door sander1; 06-11-11 om 09:18. Reden: bestand toevoegen

  2. # ADS
     
  3. #2
    Geregistreerd
    Mar 2006
    Locatie
    Voorthuizen
    Berichten
    1.407

    Standaard

    Sander,

    Te kort door de bocht?
    Code:
    Sub lijst_kopieren_naar_gegevens()
    With Sheets("planning")
    .Range("b1:c10").Copy Sheets("gegevens").Range("A" & Rows.Count).End(xlUp).Offset(1)
    End With
    End Sub
    Groet,

    Rob

    PS: Kijk ook eens op mijn site voor natuur- maar ook andere foto's en Excelbestanden

  4. #3
    Geregistreerd
    Dec 2007
    Berichten
    4.467

    Standaard

    Of iets ruimer Rob.

    Met de opmaak.
    Code:
     
    Sub lijst_kopieren_naar_gegevens()
     With Sheets("planning")
      .Range("b1:b10").Copy Sheets("gegevens").Range("A" & Rows.Count).End(xlUp).Offset(1)
      .Range("C1").Copy Sheets("gegevens").Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(10)
     End With
    End Sub
    Of alleen de waarden.

    Code:
    Sub lijst_kopieren_naar_gegevens()
     With Sheets("gegevens").Range("A" & Rows.Count).End(xlUp)
      .Offset(1).Resize(10).Value = Sheets("planning").Range("B1:B10").Value
      .Offset(1, 1).Resize(10) = Sheets("planning").Range("C1")
     End With
    End Sub
    mvg,
    Harry

    Wie met de duivel danst, moet het orkest betalen.

  5. #4
    sander1 Guest

    Standaard

    Hallo Robdgr,

    Die is inderdaad iets te kort door de bocht. Het gaat om cel c1 die moet komen achter hetgeen net naar kolom A is gekopieerd.

    De formule van HSV doet het wel. Alleen hij pakt automatisch 10 cellen terwijl ik ook wel eens een ander aantal cellen kopieer. Is daar nog een oplossing voor te verzinnen?

    Dus als ik een keer 7 cellen kopieer naar kolom A, dan zou er in kolom B ook 7 maal cel c1 kopieerd moeten worden. Nu doet hij het standaard 10 keer.

    Met vriendelijke groet,

    Sander

  6. #5
    sander1 Guest

    Standaard

    Hallo lezers,

    Is het een idee om bijvoorbeeld in de macro een regel op te nemen dat hij in werkblad 2 zoekt naar de combinatie van gevulde cellen in A en lege cellen in kolom B. Het resultaat wordt dan gevuld met cel C1 uit werkblad 1. Klinkt mij werkbaar voor wat ik er mee wil maar nu nog de code om het uit te laten voeren.

    Iemand een tip?

    Met vriendelijke groet,

    Sander

  7. #6
    Geregistreerd
    Dec 2007
    Berichten
    4.467

    Standaard

    Kijken of je het zo bedoeld Sander.
    Code:
     
    Sub lijst_kopieren_naar_gegevens()
     Dim rngplnnng As Range
      With Sheets("gegevens").Range("A" & Rows.Count).End(xlUp)
       Set rngplnnng = Sheets("planning").Range("B1:B" & Sheets("planning").Cells(Rows.Count, 2).End(xlUp).Row)
      .Offset(1).Resize(rngplnnng.Rows.Count).Value = rngplnnng.Value
      .Offset(1, 1).Resize(rngplnnng.Rows.Count) = Sheets("planning").Range("C1")
     End With
    End Sub
    mvg,
    Harry

    Wie met de duivel danst, moet het orkest betalen.

  8. #7
    sander1 Guest

    Standaard

    Hallo HSV,

    Hij doet het! heel fijn. Ik kan alleen de formule niet begrijpen en weet dus niet waar ik een aanpassing moet maken. Jij kunt vast aangeven waar ik dat moet doen. De formule pakt nu namelijk heel kolom B van werkblad "planning" om te kopieren. In het werkelijke bestand wil ik alleen een bepaald bereik in de formule opnemen om te kopieren. bijvoorbeeld "B5:b15".

    Kun je mij daarmee helpen? Mocht je de moeite willen doen, dan zou ik graag de uitleg bij je formule hebben om te begrijpen wat je gedaan hebt. Als dat te veel type werk is of je hebt er geen zin in, uiteraard geen probleem. Ik ben al heel erg blij als je dit laatste stukje voor mij op kan lossen.

    Met vriendelijke groet,
    Sander
    Bijgevoegde Bestanden Bijgevoegde Bestanden
    Laatst gewijzigd door sander1; 07-11-11 om 23:32.

  9. #8
    Geregistreerd
    Dec 2007
    Berichten
    4.467

    Standaard

    Bedoel je het zo?

    Met uitleg (groene tekst als je de code hebt geplakt).
    Code:
     
    Sub lijst_kopieren_naar_gegevens()
     Dim rngplnnng As Range
      With Sheets("gegevens").Range("A" & Rows.Count).End(xlUp) 'telt de laatste cel in kolom A van blad gegevens
       Set rngplnnng = Sheets("planning").Range("B5:B15") 'Sheets("planning").Range("B5:B15")heet vanaf nu rngplnnng
      .Offset(1).Resize(rngplnnng.Rows.Count).Value = rngplnnng.Value 'zet de waarden van "rngplnnng" 1 rij lager van Sheets("gegevens").Range("A" & Rows.Count).End(xlUp)
      .Offset(1, 1).Resize(rngplnnng.Rows.Count) = Sheets("planning").Range("C1") 'zet de waarden van C1 met de lengte van "rngplnnng" 1 rij lager, en één kolom opzij van Sheets("gegevens").Range("A" & Rows.Count).End(xlUp)
     End With
    End Sub
    Laatst gewijzigd door HSV; 07-11-11 om 23:52.
    mvg,
    Harry

    Wie met de duivel danst, moet het orkest betalen.

  10. #9
    sander1 Guest

    Standaard

    Hallo Harry,

    Dank voor je snelle antwoord! het resultaat is nu dat bereik "B1:10" gekopieerd wordt. Het maximaal aantal cellen om te kopieren is in dit voorbeeld 10. Het komt ook voor dat ik maar 7 cellen vul in werkblad "planning". De formule moet er dan dus ook maar 7 kopieren en C1 er 7 keer in kolom B achter zetten.

    In kolom A van werkblad "gegevens" worden bij de huidige opzet 10 velden gekopieerd waarvan bijvoorbeeld 7 velden gevuld en drie leeg. Dat is prima. Alleen hij kopieert dan wel 10 x cel c1 naar kolom B van "gegevens" terwijl dat er maar 7 zouden moeten zijn in dit voorbeeld.

    Dus als kolom A is gevuld, dan moet kolom B gevuld worden met "planning"& ("C1").

    Ik hoop dat mijn uitleg duidelijk genoeg is om de formule helemaal werkend te krijgen.

    Met vriendelijke groet,
    Sander

  11. #10
    Geregistreerd
    Dec 2007
    Berichten
    4.467

    Standaard

    Zeg nou zelf dat dit niet overeenkomt.
    Ik weet niet wat je wil.
    De ene keer B1:B10, dan B5:B15, nu weer als ik maar zeven cellen wil.

    Het laatste wat je wil zou toch de code moeten zijn van 07-11 18:17 uur.

    Citaat Oorspronkelijk geplaatst door sander1 Bekijk Berichten
    Hallo HSV,

    In het werkelijke bestand wil ik alleen een bepaald bereik in de formule opnemen om te kopieren. bijvoorbeeld "B5:b15".
    Met vriendelijke groet,
    Sander
    Citaat Oorspronkelijk geplaatst door sander1 Bekijk Berichten
    Hallo Harry,
    Het komt ook voor dat ik maar 7 cellen vul in werkblad "planning". De formule moet er dan dus ook maar 7 kopieren en C1 er 7 keer in kolom B achter zetten.

    Met vriendelijke groet,
    Sander
    mvg,
    Harry

    Wie met de duivel danst, moet het orkest betalen.

Gelijkwaardige Onderwerpen

  1. Aantal cellen kopieren naar goede plek op ander werkblad
    Door mathijs1986 in forum Afgehandelde vragen
    Reacties: 6
    Laatste Bericht: 15-12-11, 07:46
  2. Bepaalde gegevens werkblad naar ander werkblad
    Door Bergeijk in forum Afgehandelde vragen
    Reacties: 3
    Laatste Bericht: 07-09-11, 10:17
  3. Rijen kopiëren naar ander werkblad (met VBA)
    Door marcellenselink in forum Afgehandelde vragen
    Reacties: 14
    Laatste Bericht: 06-11-10, 16:02
  4. cellen uit een werkblad wegschrijven naar een ander werkblad
    Door Smetjet in forum Afgehandelde vragen
    Reacties: 4
    Laatste Bericht: 26-01-08, 22:13
  5. cell kopieren naar ander werkblad
    Door grothar77 in forum Afgehandelde vragen
    Reacties: 1
    Laatste Bericht: 15-09-07, 14:48

Forum Rechten

  • Je mag geen nieuwe onderwerpen plaatsen
  • Je mag geen reacties plaatsen
  • Je mag geen bijlagen toevoegen
  • Je mag jouw berichten niet wijzigen
  •