19 magazijnen toevoegen aan een artikel

[lauwiex]

Goedenavond,

Ik hoop dat een van jullie mij kan helpen met het volgende probleem

Ik moet voor een heel reeks artikelen 19 locaties toewijzen.(1000+) Alleen ik krijg het niet voor elkaar om een formules hiervoor te maken.
elk artikel moet 19 keer onder elkaar worden gezet met volgens een locatie erachter.

in de bijlage zit een excel bestand met 3 tabs 1 artikelen 2 locaties 3 export in tab export heb ik een 3tal artikelen handmatig gedaan. (Geel gemarkeerde is ter verduidelijking van de 19 locaties)

Is dit te doen met een formule?

Ik hoor graag iemand mij kan helpen,


Laurens

 

[SjonR]

probeer deze eens:

Sub sjonR()


SR1 = Sheets("Artikel").Cells(1).CurrentRegion
SR2 = Sheets("Locatie").Cells(1).CurrentRegion
ReDim Arr(UBound(SR1) * UBound(SR2), 2) As String
For i = 2 To UBound(SR1)
    For ii = 2 To UBound(SR2)
        Arr(n, 0) = SR1(i, 1)
        Arr(n, 1) = SR2(ii, 1)
        n = n + 1
    Next ii
Next i

Sheets("Export").Cells(1).Resize(UBound(Arr), 2) = Arr

End Sub

 

[lauwiex]

Je bent geweldig SjonR. Dit is precies wat ik zocht
alleen maar lof!