In kolom F en I staan er gegevens. Kolom F is varïerend en kan 1 of meerdere (unieke) gegevens bevatten. Kolom I is statisch en heeft 24 gegevens.
In kolom A komt dus F2 * 24 en dan F3 * 24 en dan F4 * 24 enz... en in Kolom B komt [I2:I25] en dit herhaalt zich zoveel keer er users in kolom A zijn.
Snappen jullie het een beetje?
![Smile :)](./images/smilies/icon_smile.gif)
Dus de gegevens worden ingevoerd in kolom F die dynamisch is, Kolom I is statisch en de output komt in kolom a en b.
Wie kan hiervoor een macro of dergelijke maken dat ik kan kopieren in Excel? (liefst zoals in het voorbeeld met een KNOP (en niets aantrekken van NL en FR).
Je kan misschien al verder bouwen op onderstaand voorbeeld, maar daar zit een fout in en ik vind ze niet:
Sub CreateAccountUGroup(UsersCol As Integer, GroupsCol As Integer, ResultsCol As Integer)
'
ResultsCol1 = ResultsCol
ResultsCol2 = ResultsCol1 + 1
NumUsers = 29 + 4
NumGroups = 24
For i = 1 To NumUsers
For j = 1 To NumGroups
clipboard = Cells(2 + Int(i * NumGroups / NumUsers), UsersCol).Value
Cells(((i - 1) * NumGroups + j) + 1, ResultsCol1).Value = Trim(clipboard)
clipboard = Cells(j + 1, GroupsCol).Value
Cells(((i - 1) * NumGroups + j) + 1, ResultsCol2).Value = Trim(clipboard)
Next j
Next i
End Sub
'Range(UsersCol & Trim(Str(2 + Int(i * NumGroups / NumUsers)))).Select
'Selection.Copy
'Range(ResultsCol1 & (i * NumGroups + j) - 1).Select
'ActiveSheet.Paste
'Range(GroupsCol & j + 1).Select
'Selection.Copy
'Range(ResultsCol2 & (i * NumGroups + j) - 1).Select
'ActiveSheet.Paste