Por Bordas em células povoadas

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Por Bordas em células povoadas

Mensagem por alexandrevba em 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
avatar
alexandrevba
Intermediário
Intermediário

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

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum