Regels kopieren en kopieren.

[RichardVer]

Ben opzoek zoek naar een oplossing voor het volgende probleem:

Ik heb +-750 unieke paneel benamingen, om deze panelen te kunnen koppelen dien ik elke unieke naam 24x te kopieren en hier 001 t/m 024 achter te zetten.

Is dit mogelijk om de op een snelle manier te doen?

Zie ook voorbeeld.

 

[snb]

Sub tst()
  sq = Columns(1).SpecialCells(2)
  For j = 1 To UBound(sq)
    c2 = c2 & Replace(String(24, "*"), "*", sq(j, 1) & "|")
  Next
  sq = Split(c2, "|")
  Cells(1, 6).Resize(UBound(sq)) = WorksheetFunction.Transpose(sq)
End Sub

 

[HSV]

Ik zie dat je me al voor bent @snb, maar hierbij mijn versie met een formule.

 

[danny147]

Beste RichardVer

Kan korter met formule.

Groetjes danny. :thumb:

 

[HSV]

Beste RichardVer

Kan korter met formule.

Groetjes danny. :thumb:

Mooi afgeleid Danny :thumb:

Nog ietsie pietsie.
=INDIRECT("A"&AFRONDEN.BOVEN((RIJ()-RIJ($A$1))/24;1)+1)

 

[RichardVer]

Iedereen bedankt voor jullie snelle reactie, het is gelukt:thumb::thumb:

 

[snb]

of

=VERSCHUIVING($A$2;INTEGER((RIJ()-2)/24);0)

of

=INDEX($A$2:$A$20;INTEGER((RIJ()-2)/24)+1)

 

[HSV]

of

=VERSCHUIVING($A$2;INTEGER((RIJ()-2)/24);0)

of

=INDEX($A$2:$A$20;INTEGER((RIJ()-2)/24)+1)

Ik ken jouw eigenlijk alleen van de VBA kant @snb, maar dit is ook natuurlijk ook weer lekker kort.

Die eerste sloeg ook nergens op, iets als:
=ALS GOED IS GOED, DAN GOED, ANDERS GOED.
Als je meestal eerst maar een begin hebt.

 

[snb]

Het is af en toe ook leuk de vraag 'kan dat niet simpeler ?' op werkbladformules toe te passen.Vooral als dat leidt tot wat minder vaak gebruikte funkties.