regels automatisch dupliceren

[jhgooijer]

Hallo,

kan iemand mij helpen?

Ik heb in een regel een aantal cellen gevuld heb met gegevens. Een van de cellen bevat het cijfer 2. Dan wil ik eigenlijk dat excel in een ander werkblad dezelfde regel plaats maar dan 2 maal. Dus dezelfde regel maar dan met het aantal 1.
is dat mogelijk?

Alvast bedankt.

Jan Hendrik

 

[danny147]

Beste jhgooijer

Graag een voorbeeldbestandje met een grondige uitleg erin.

Groetjes Danny. :thumb:

 

[dominiekO]

Als ik je uitleg goed interpreteer, dan zou het zoiets moeten zijn.

Misschien dat de VBA kenners er een gemakkelijkere oplossing voor vinden

 

[jhgooijer]

met voorbeeld betsand

Beste Danny,

ik heb als bijlage een voorbeeld gepost. daarop is aangegeven wat ik graag zou willen.
ik hoop dat je er iets mee kunt.

succes en alvast bedankt,

Jan Hendrik

 

[danage]

Hallo,
Bijgaand mijn oplossing m.b.v. een macro (Visual Basic script) en formulierenknop op Blad1 die de gewenste output op Blad2 zet.

Gerard

p.s. Ik heb nog geen Access 2007, dus deze is opgemaakt in 2003!

 

[danny147]

Beste danage

Het werkt met schudden en beven
VBA kenners zullen dit wel in minder dan 10 regels schrijven, zonder .select.
Probeer dit te vermijden in je code.

Groetjes Danny. :thumb:

 

[jhgooijer]

bedankt voor jullie reacties. het werkt (inderdaad met beven).
asl iemand nog een oplossing heeft die "beter" werkt hoor ik het graag.
Nadeel is wel dat bij bijvoorbeeld "5" ook vijf blijft staan en niet bijvoorbeeld 5 regels met 1 of "1 van 5" "2 van 5" enz.

Jan Hendrik

 

[danage]

m.b.t. aantal: is in VB script eenvoudig aan te passen.
Zie bijlage.

Helaas heb ik mijn kennis proefondervindelijk tot me genomen. Als iemand het kan vereenvoudigen: ik ben zeer leergierig.

Gerard

 

[Thoralf]

Hallo Jan Hendrik,

Hierbij de versie zonder schudden en beven.

 

[danage]

Thoralf,
In ieder geval mijndank

Gerard

 

[Warme bakkertje]

Sub tst()
    For Each c In Range("A2:A" & Rows.Count - 1)
        For i = 1 To c.Offset(, 4).Value
            c.Resize(1, 11).Copy [Blad2!A65536].End(xlUp).Offset(1)
            [Blad2!E65536].End(xlUp).Value = i & " van " & c.Offset(, 4).Value
        Next i
    Next c
End Sub

 

[jhgooijer]

Bedankt

Beste Allemaal,

super bedankt voor jullie hulp. ik ben er helemaal uit.

Jan Hendrik:thumb: