Ik wil onderstaande code aangepassen.

[gaggie]

Ik heb een stukje code van iemand gekregen, die uit een kolom de namen pakt en deze dan een aantal keren onderelkaar zet en ik kan het aantal lege regels aangeven.
Ik wil dit echter aangepassen zodat de namen van een ander tabblad afkomen, heeft iemand een oplossing.
De macro die in de excel zit heet repeat rows.

Mvg. Gaggie

 

[edmoor]

Wijzig deze regel:

Set rngNumberRepeats = Range(Range("A1"), Range("A1").End(xlDown))

In:

Set rngNumberRepeats = Range(Sheets("Sheet2").Range("A1"), Sheets("Sheet2").Range("A1").End(xlDown))

Dan worden de namen van Sheet2 gehaald.

 

[gaggie]

Wijzig deze regel:

Set rngNumberRepeats = Range(Range("A1"), Range("A1").End(xlDown))

In:

Set rngNumberRepeats = Range(Sheets("Sheet2").Range("A1"), Sheets("Sheet2").Range("A1").End(xlDown))

Dan worden de namen van Sheet2 gehaald.

Dit werkt niet, lijkt een oneindige loop te worden.

Maar ik wil graag dat men kan aangeven van welk tabblad de namen worden gehaald en aangeven naar welk tabblad en plaats deze moeten.

Mvg. guido

 

[edmoor]

Dat werkt prima, maar je moet dan wel ook de namen in Sheet2 plaatsen.

En je stelt nu de extra vraag over naar welk werkblad en kolom het moet gebeuren.
Het is eenvoudiger om je vragen in 1 keer te stellen en het opgeven van het aantal lege regels staat ook in de code zelf.

 

[gaggie]

Dat werkt prima, maar je moet dan wel ook de namen in Sheet2 plaatsen.

En je stelt nu de extra vraag over naar welk werkblad en kolom het moet gebeuren.
Het is eenvoudiger om je vragen in 1 keer te stellen en het opgeven van het aantal lege regels staat ook in de code zelf.

sorry, kom niet zo vaak op een forum.
zal daar de volgende keer aan denken.

Bij voobaat dank

Guido

 

[gaggie]

Heb het gevonden, jouw code werkte inderdaad. Ik voeg de code even toe.

Sub RepeatRows()
Dim li As Long
Dim lRI As Long
Dim rng As Range
Dim rngNumberRepeats As Range

'Clear previous result
On Error Resume Next
Cells(11, 1).CurrentRegion.ClearContents
On Error GoTo 0

'Repeat rows
Set rngNumberRepeats = Range(Sheets("Sheet1").Range("A1"), Sheets("Sheet1").Range("A1").End(xlDown))
With Sheets("Sheet2")
lRI = 10
For Each rng In rngNumberRepeats.Cells
For li = 1 To 4
lRI = lRI + 1
.Cells(lRI, 1).Value = rng.Value
Next li
lRI = lRI + 13
Next rng
End With
End Sub

Mvg Guido

 

[edmoor]

Geeft niks, is een goed bedoeld advies

In bijgevoegd blad staat je knop nog steeds in Sheet1.
Sheet2 bevat de bron gegevens en de uitvoer gaat naar Sheet3.

Bekijk bijlage 312904d1397946040-need-macro-to-repeat-row-specific-number-of-times-repeat_rows-1.xlsm

Zo kun je in Sheet2 dus de namen opgegeven, naar welk blad het moet en het aantal lege regels.

 

[gaggie]

Beste Edmoor,

Hartelijk dank, dit werkt helemaal.

Guido

 

[edmoor]

Graag gedaan

 

[snb]

in deze code:

On Error Resume Next
Cells(11, 1).CurrentRegion.ClearContents
On Error GoTo 0

zijn deze overbodig

On Error Resume Next

On Error GoTo 0

 

[Warme bakkertje]

sorry, kom niet zo vaak op een forum.
zal daar de volgende keer aan denken.

Denk er dan volgende keer ook aan dat crossposting niet gewaardeerd wordt door de helpers. Stel je op een ander forum dezelfde vraag laat het dan even weten zodat er geen dubbel werk gedaan wordt.
Alle helpers zijn vrijwilligers die hun vrije tijd opofferen om anderen te helpen, verspil deze dan ook niet.

http://www.worksheet.nl/forumexcel/showthread.php?t=86439

 

[snb]

Hoezo niet zo vaak ?

Al 50 berichten in 2 fora ?