One-Liners voor tabel gezocht

[Jack Nouws]

Hallo

Ik heb een 2 tal codes waar ik de opmaak van een tabel maak. Nu vind ik het zelf mooier om van deze 2 codes 2 one-liners te maken. Wie zou dat kunnen voor mij, beter nog, is het toch wel mogelijk ?

Met vr gr
Jack

    With [H14:R34].Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlHairline
        .Color = RGB(149, 179, 215)
     End With
        
      With [H14:R14].Borders(xlEdgeTop)
            .LineStyle = xlDouble
            .Weight = xlThick
            .Color = RGB(149, 179, 215)
     End With

 

[Jack Nouws]

One-liners voor tabel

Ik heb het zo opgelost.
Het werkt en ik ben tevreden
(Zie toegevoegde bestand)
(met 4 regeltjes maak je een mooie tabel)

            [I14:I34,P14:P34,O14:O34,N14:N34,J10:Q12,H15:R15,H17:R17,H19:R19,H21:R21,H23:R23,H25:R25,H27:R27,H29:R29,H31:R31,H33:R33].BorderAround Color:=RGB(149, 179, 215), Weight:=xlHairline

            [H14:R14].BorderAround Color:=RGB(149, 179, 215), LineStyle:=xlDouble

 

[Wigi]

Als alles zo hardgecodeerd is, begrijp ik die code eigenlijk niet.

Waarom zet je die tabel niet ergens in een (verborgen) tabblad en kopieer je hem dan, ipv al die code?