Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Por Bordas em células povoadas

Ir para baixo

Por Bordas em células povoadas Empty Por Bordas em células povoadas

Mensagem por alexandrevba Qui Mar 06, 2014 1:40 pm

Boa tarde!!
Por Bordas em células povoadas
Código:
Sub BordasCelulaPovoada()
With Cells.Borders
    .LineStyle = xlNone
End With
On Error Resume Next
With Cells.SpecialCells(xlCellTypeFormulas).Borders
    .LineStyle = xlContinuous
End With
With Cells.SpecialCells(xlCellTypeConstants).Borders
    .LineStyle = xlContinuous
End With
On Error GoTo 0
End Sub

Att
alexandrevba
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos