Udfyld kollone indtil 7 række, derefter næste række
HejJeg forsøger at lave et lille VBA-kode, der udfylder indtil den 7 kollone og derefter springer ned til næste række indtil denne 7 række er udfyldt, osv.
Grafisk skal det se sådan ud
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 ...
Her er hvad jeg har indtil videre:
Dim x As Integer
Dim c As Integer
Dim r As Integer
r = 1
c = 1
x = 1
Do Until x >= 26 'er antal gange programmet skal foretage skrive til cellen.
For c = 1 To 7
Sheets("Ark1").Range(Sheets("Ark1").Cells(r, c), Sheets("Ark1").Cells(r, c)) = x
x = x + 1
Next c
Loop
Men jeg kan ikke få skidtet til at virke :-(
