Rij invoegen

[Ron Veenstra]

Goedemiddag,

Om bestanden overzichtelijk te houden wil ik dmv een macro tussen de verschillende klanten een lege rij invullen in de kleur lichtgrijs. Vervolgens wil ik graag alle cellen die betrekking hebben op een klant omkaderd hebben met een zwarte lijn.
In kolom A staan de klanten gesorteerd en de kolommen daarna (tm S) zijn soms gevuld met andere gegevens over de klant. Het verschilt per klant sterk hoe vaak ze in kolom A voorkomen.
Wie oh wie kan me hiermee verder helpen.


mvg,
Ron

 

[shidan]

hallo,

hiermee kun je alvast een kader trekken en opvullen met lichtgrijs
je hoeft enkel nog de range (in het rood) aan te passen

Sub omkaderen_en_vullen()

    Range("[COLOR="Red"]A4:E4[/COLOR]").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    With Selection.Interior
        .ColorIndex = 15
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
End Sub

 

[snb]

Vermijd select en activate in VBA-code

Sub koter()
  With Range("A4:E4").Borders
    .LineStyle = xlContinuous
    .Weight = xlThin
     .ColorIndex = xlAutomatic
  End With
End Sub

 

[Ron Veenstra]

bedankt

Bedankt voor de reacties. Met behulp van de tips is er uiteindelijk een goed werkende macro gekomen.