lijn bij filteren

[patjel]

Hallo,
Wie kan mij bij deze helpen, bestaat er een mogelijkheid vb:als ik filter op bestellingklant of andere
om dan een lijn onder elke laaste nr te zetten heb een voorbeeld ingevoegd
dank bij voorbaat
Grt Pat

 

[Niels28]

Private Sub CommandButton2_Click() 'hier wordt de lijn doorgetrokken

For Each cl In Range("A1:A500").SpecialCells(12, 2)
    If x <> cl.Value Then
        x = cl.Value
        With cl.Resize(1, 20).Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .Weight = xlMedium
        End With
    End If
Next

End Sub

Niels

 

[patjel]

Dag Niels,
Bedankt om mij bij deze te helpen fantastisch werkt perfect:d
groeten Pat