• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Stapsgewijs kaders instellen bij selectie

Status
Niet open voor verdere reacties.
M

mike564

Gebruiker
Lid geworden
11 dec 2015
Berichten
83
Beste Helpers,

Ik heb bijvoorbeeld een selectie van B16 t/m E42 en bij elke 9 rijen in deze selectie, wil ik dat zich een kader vormt.

Ik heb hiervoor wel de onderstaande code gevonden, alleen krijg ik hier het "stapsgewijze" niet in verwerkt.
Code: 
Sub borders()

With Selection.borders
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
End With

Selection.BorderAround LineStyle:=xlDash, ColorIndex:=3, Weight:=xlThick

End Sub

Voor de duidelijkheid een bestandje:
Bekijk bijlage Kadervorming.xlsb

Iemand die mij hier verder kan helpen?

Alvast dank!

Mike
 
Laatst bewerkt:
Kijk zo eens
Code: 
Sub tsh()
    Dim i As Long
    
    For i = 0 To Int(Selection.Rows.Count / 9) - 1
        Selection(1).Resize(9, Selection.Columns.Count).Offset(i * 9).BorderAround LineStyle:=xlContinuous, ColorIndex:=3, Weight:=xlThick
    Next
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan