Een groot aantal projecten en categorieën efficiënt combineren (macro vraag)

[MichielC]

In Excel kom ik ergens niet goed uit hoe iets efficiënt te combineren
Ik moet 191 keer (in bijlage document rij "A") per project een zevental categorieën aanhangen (in bijlage document rij "B").

Nu heb ik dit geprobeerd met een macro, om alles onder elkaar te krijgen zoals in mijn voorbeeld in kolom I+J, maar lukt het niet erg goed.

Kan iemand mij helpen/uitleggen hoe ik efficiënt en snel 191 projecten x 7 categorieën onder elkaar krijg?
Zie voorbeeld in kolom I+J hoe het moet worden voor alle projecten.

Ik hoop dat iemand mij kan helpen, zonder dat ik straks een halve dag aan het kopiëren en plakken bent.

Gr Michiel

 

[SjonR]

zo?

Sub SjonR()
X = 2
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
    For j = 2 To 8
        Cells(X, 9).Value = Cells(i, 1).Value
        Cells(X, 10).Value = Cells(j, 3).Value
        X = X + 1
    Next
Next
End Sub

 

[MichielC]

Je bent geweldig!

Ik ga van de week de formule eens verder uitpluizen om er van te leren! Dank je wel!

 

[SjonR]

Mooi! Veel leerplezier

 

[Enigmasmurf]

Zomaar voor de lol, én omdat je zelf over 'formules' spreekt, maar nog méér omdat je graag bijleert, hierbij een oplossing zonder macro.
Minpuntje ('k zeg het - anticiperend - liever zelf): je moet zelf de formules ver genoeg doortrekken.
By the way: geen kwaad woord over de macro-oplossing dus, integendeel!

 

[JEC.]

Hier nog een macro waarbij er maar 1x interactie is met het werkblad.
Ook de rijen in kolom C worden dynamisch benaderd.

Sub jec()
 Dim ar, ar2, sq, i As Long, x As Long
 ar = Cells(1).CurrentRegion
 ar2 = Cells(1, 3).CurrentRegion
 
 ReDim sq((UBound(ar) - 1) * (UBound(ar2) - 1), 1)
 For i = 2 To UBound(sq) + 1
    sq(x, 0) = ar((i - 2) \ (UBound(ar2) - 1) + 2, 1)
    sq(x, 1) = ar2((i - 2) Mod (UBound(ar2) - 1) + 2, 1)
    x = x + 1
 Next
      
 Range("I2").Resize(x, 2) = sq
End Sub