automatisch een lijn (border) plaatsen onder bepaalde nummers

[patjel]

beste,
ik probeer al enige tijd om een lijntje te zetten onder bepaalde nr° wie kan mij daar mee helpen
vb: heb een reeks van nr 220 van a1:a9 van a10:a15 nr330 van a16:a23 nr 445 mijn vraag is hoe kan ik dit doen door op een knop te drukken dat deze lijnen (onderstrepen)automatisch gebeurd.
Alvast bedankt

 

[Joske2000]

Hi,

Dit kan met voorwaardelijke opmaak.

Plaats een voorbeeldbestandje, dat werkt makkelijker.

Joske

 

[patjel]

voorbeeld toegevoegd borderlijn plaatsen

hallo Joske
bedankt dat u mij bij deze wil helpen super

grt pat

 

[Joske2000]

Volgende code doet wat je vraagt :

Private Sub CommandButton1_Click()
    Dim i As Integer, intValueToFind As Integer
    Value1 = 220
    Value2 = 330
    Value3 = 445
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        If Cells(i, 1).Value = Value1 Or Cells(i, 1).Value = Value2 Or Cells(i, 1).Value = Value3 Then
        With Cells(i, 1).Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlMedium
    End With
        End If
    Next i

End Sub

Joske

 

[patjel]

border

Dag Joske,

Dit had ik nooit gevonden Super,kan het dat alléén het laatste nr onderstreept wordt dat was eigenlijk de bedoeling
reeks 220
220
220 deze wordt dan onderstreept
reeks 330
330
330
330 deze wordt dan onderstreept

om een beter overzicht te krijgen in mijn nr
alvast bedankt om mij bij deze te helpen ben super content
grt pat