Hej hej

Behöver du av någon anlending kod för detta så går det. Det går dock att lösa med en formel:

Lägg in denna i cell B2 och dra ner till rad 9600. Modifiera därefter formel och lägg den sedan i cell E2 och dra nedåt.
=OM(REST(RAD(A2);12)=0;SUMMA($B$1:B1)+1;"")

Mvh
Christian

Hej hej

Nedan kod behöver du modifiera bladnamnet i, annars ska den fungera rakt av.
/c

Option Explicit

Sub increasenumber()

Dim bArr(1 To 9600, 1 To 1) As Variant
Dim eArr(1 To 9600, 1 To 1) As Variant
Dim i As Long
Dim iCount As Long: iCount = 0

For i = 1 To UBound(bArr)

If i Mod 12 = 0 Then
iCount = iCount + 1
bArr(i, 1) = iCount
iCount = iCount + 1
eArr(i, 1) = iCount
End If
Next i

Dim rngOutB As Range
Set rngOutB = Sheets("blad1").Range("b1:b9600")
Dim rngOutE As Range
Set rngOutE = Sheets("blad1").Range("e1:e9600")

rngOutB = bArr
rngOutE = eArr

End Sub