Mas essa fonte Cambria fica muito feia ! Rs
Se quero pegar da B6 até L 29 fica como ?
A fonte se altera assim ?
If Cells(L, C).Value = 0 Then Cells(L, C).Font.Name = "Cambria"
If Cells(L, C).Value <> 0 Then Cells(L, C).Font.Name = "Calibri"
á que não pode alterar, pq possue essa opção então ?
Postado : 01/09/2017 6:07 pm