border lijn plaatsen

[patjel]

hallo
heb een vraagje over automatisch een lijn te plaatsen onder vershillende nr
dit lukt mij niet.ik heb deze vraag al gesteld maar denk dat ik deze niet goed had beschreven.
ik had een lijn onder elk nr dat was niet de bedoeling.
zal deze eens proberen anders uit te leggen mischien dat er iemand is die mij kan helpen
voorbeeld:ingevoegd
alvast bedankt voor uw hulp
Grt PatBekijk bijlage test border lijn alle nr.xlsm

 

[edmoor]

Probeer deze maar eens:

Sub OnderRand()
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row + 1
        If Cells(i, 1).Value <> Cells(i - 1, 1).Value And i > 2 Then
            With Cells(i - 1, 1).Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .Weight = xlMedium
            End With
        End If
    Next
End Sub

 

[patjel]

Dag Edmoor

Heb deze geprobeerd en deze werk, bedankt voor uw hulp deze help mij een heel stuk voorruit
Groeten Pat

 

[edmoor]

Veel plezier ermee :thumb:

 

[VenA]

Dit kan toch ook met voorwaardelijke opmaak?