1 t/m 72

[don42]

beste allemaal
ik wil graag een kolom met vanaf cel B3 tot B74 - 72 getallen (in vba)
als ik in cel B3 - de waarde 20 tik
dan moeten de cellen daaronder 1 optellen tot 72 en dan weer met 1 beginnen

heb nu

ActiveCell.FormulaR1C1 = "=IF(R[-1]C=72,1,R[-1]C+1)"

maar dat krijg ik niet omgezet in vba wie kan mij daar mee helpen

in gewoon excel lukt het me wel met

=ALS(B4=72;1;B4+1)

en deze naar beneden gesleept.
maar omdat de formule telkens (door derde) per abuis word gewist had ik het graag in vba
bij het activeren van het tabblad

bvd voor jullie hulp
Don

 

[snb]

Sub M_snb()
   [B3:B74]=[row(1:72)]
end sub

 

[SjonR]

zo?

Private Sub Worksheet_Change(ByVal Target As Range)

If Target = Cells(3, 2) Then
    For i = 4 To 74
        If Cells(i - 1, 2).Value = 72 Then
            Cells(i, 2) = 1
        Else
            Cells(i, 2) = Cells(i - 1, 2) + 1
        End If
    Next
End If

End Sub

 

[JanBG]

Zo?

Sub Macro1()
Range("C5").Select
ActiveCell.FormulaR1C1 = "=IF(R[-1]C=72,1,R[-1]C+1)"
ActiveCell.Copy
Sheets("Blad1").Range("C6:C500").PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
End Sub

 

[Timshel]

Variant

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$3" Then
        [B4:B74] = [index(mod(row(1:71)+B3-1,72),0)+1]
    End If
End Sub

 

[don42]

Dank jullie voor de hulp ik ben er uit
heb uiteindelijk de oplossing van #3 gekozen