VBA Excel - insere formatação em células com Zero - Ex: ( 0 ) - ( 0,00 )

Option Explicit
‘Excel VBA - insere formatação na célula onde há zero,
‘por exemplo: celula B5 = 0, acionar a macro: B5 = 0,00
‘primeiramente cor azul, posteriormente cor amarela.

Sub Insere_formatacao_no_zero()
Dim Cel As Range, texto As Variant
For Each Cel In Selection
If Left(Cel.NumberFormat, 2) <> “;;” Then
Cel.NumberFormat = “;;” & “”"” & Cel & “”"”
Cel.Value = 0
‘Indica “Especial” celulas com determinado formato
Cel.Interior.ColorIndex = 34
Else
texto = Split(Cel.NumberFormat, “;”)
Cel.NumberFormat = “#,##0.00″
Cel.Value = Mid(texto(2), 2, Len(texto(2)) - 2)
‘muda a cor da formatação
Cel.Interior.ColorIndex = 6
End If Next
End Sub
'.....................'
Site das macros http://www.saberexcel.com Coleção de 15.000 macros, funções e fórmulas