Macro - onderstrepen elke 12e cel

[lekkerbek312]

Hi,

Ik hoop dat jullie mij kunnen helpen met een macro formule? Ik heb het volgende gedaan:
- macro recorder gestart
- cel geselecteerd en de bovenkant een streep gezet
- 12 regels lager
- bovenkant van die cel een streep gezet.

Hoe maak ik zo'n formule dat hij start bij cel L13, vervolgens L25, L37, etc tot en met cel L5679?

Alvast bedankt voor het meedenken. De recorder geeft dit nu als code:

Sub Onderstrepen()
'
' Onderstrepen Macro
'

'
    Range("L13").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("L25").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub

 

[edmoor]

Zoiets:

Sub Onderstrepen()
    Application.ScreenUpdating = False
    For i = 13 To 5679 Step 12
        With Range("L" & i).Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
            .Weight = xlThin
        End With
    Next i
    Application.ScreenUpdating = True
End Sub

 

[Mde]

het zou zo kunnen

Sub Mde()
For i = 13 To 5679 Step 12
    Cells(i, 12).Borders(xlEdgeTop).LineStyle = xlContinuous
    Next
End Sub

 

[edmoor]

Twee zielen, één gedachte

 

[lekkerbek312]

Works like a charm. Hartelijk dank!