Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

VBA Excel Tips - Coloque bordas em todas as células com contéudo - Put borders around all used cells on a sheet

Inline image 1

Ok, talvez agora, neste momento, você sequer imagine porque desejaria ter uma função co a funcionalidade do título.

Mas acredite, um dia precisará de uma função assim. Ahhh... e quando isso acontecer aqui estará a funcionalidade pronta para que use-a. 

E não se esqueça, divirta-se!

Sub PutBorders() 

   With Cells.SpecialCells (xlCellTypeConstants, 23) 

       .BorderAround xlContinuous, xlThin, xlColorIndexAutomatic 

        On Error Resume Next 'used in case there are no inside borders 

        With .Borders(xlInsideHorizontal) 
            Let .LineStyle = xlContinuous 
            Let .Weight = xlThin 
            Let .ColorIndex = xlAutomatic 
        End With 

        With .Borders(xlInsideVertical) 
            Let .LineStyle = xlContinuous 
            Let .Weight = xlThin 
            Let .ColorIndex = xlAutomatic 
        End With 

    End With 
End Sub


brazilsalesforceeffectiveness@gmail.com

✔ Brazil SFE®Author´s Profile  Google+   Author´s Professional Profile   Pinterest   Author´s Tweets

Related Posts Plugin for WordPress, Blogger...

Vitrine

diHITT - Notícias