alleen regels met data vullen met border/onderstrepen

[vrouw]

Hallo,

Is er een macro om bijv alleen op de regels waar tekst/getallen staan een border/onderstrepen te maken in een document.
Ik heb n.l. een document met veel lege regels en toch ook wel veel tekst. Om een beetje overzicht te houden en niet allemaal strepen te krijgen op lege regels.

Alle regels waar tekst in staat zou ik dus graag zien dat die onderstreept/border worden.

 

[Niels28]

Resize moet je nog aanpassen aan het aantal kolommen dat je wilt onderstrepen
macro werkt bij vaste waardes niet bij formules, anders specialcell(-4123) toevoegen

Sub onderstreep()

For Each cl In Columns(1).SpecialCells(2)
 With cl.Resize(1, 10).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
Next

End Sub

Niels

 

[vrouw]

Thanks, maar ik krijg een foutmelding op regel:
.TintAndShade = 0

Run-time error 438

 

[Niels28]

Haal die regel maar weg, doet ie het dan?
Waarschijnlijk werk je met excel 2003.

Niels

 

[vrouw]

Yep:thumb:

Thanks.

 

[vrouw]

MAAR.... ik zie nu dat hij dat alleen doet als er iets in kolom A staat?
Als A nu leeg is en er staat wel wat in kolom B?is dat ook op te lossen?

 

[Niels28]

Bereik zelf aanpassen

Sub onderstreep()

For Each cl In Columns("A:J").SpecialCells(2)
 With cl.Offset(0, 1 - cl.Column).Resize(1, 10).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .Weight = xlThin
    End With
Next

End Sub

Niels