Rasterlijnen laten plaatsen

[Jack Nouws]

Hallo

Ik zou graag mijn gekleurde cellen van een kader willen voorzien alleen ik kom er niet uit.
wie kan me hier mee helpen?

Sheets(c.Value).Range("A" & legeregel).Resize(1, 13).Interior.Color = RGB(234, 241, 221)
   Sheets(c.Value).Range("A" & legeregel).Resize(1, 13).??????????  = Hairline

Met vr gr Jack

 

[richard1970]

Beste Jack,

Werk hier mee:

Selection.Borders.Weight = xlHairline

Simpel opgenomen via de macrorecorder

Richard

 

[Hoornvan]

Jack Nouws,

Deze code trekt om de geselecteerde cellen een enkele lijn.

Sub lijnen()
    Selection.Borders.LineStyle = xlContinuous
End Sub

 

[Hoornvan]

Jack Nouws,

Hier staan misschien nog interessante dingen voor je.

Klik op de Hollandse site en je vind diverse uitleg en gratis hulp programmatje's.