Kan ik deze lijn doortrekken

[patjel]

ik heb een vraagje heb gisteren deze code gekregen werkt ferfect
Nu had ik graag deze lijn doorgetrokken van A1 tot K1 kan iemand mij bij deze helpen
alvast bedankt
Grt Pat
VB:Bijlage ingevoegd

 

[edmoor]

Maak er eens dit van:

Private Sub CommandButton1_Click()
    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 Range("A" & i - 1).Resize(, 11).Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .Weight = xlMedium
            End With
        End If
    Next
End Sub

 

[VenA]

En waarom staat de vorige vraag nog open? Dan kan je net zo goed de vervolgvraag daar plaatsen!

 

[patjel]

Hey Edmoor,
Nogmaals mijn dank voor de snelle hulp werkt perfect :d
Groetjes Pat

 

[edmoor]

Graag gedaan
Ik heb zojuist de code nog wat netter gemaakt.
En inderdaad, wil je beide posts ook even als opgelost aanmerken?