Sub programa () Range ("Al").Value = "Brasil" If Range("Al").Value = "Brasil" Then Range ("22") .Borders.Weight = 5 Range ("A2").Font.Bold = True ...
Sub programa () Range ("Al").Value = "Brasil" If Range("Al").Value = "Brasil" Then Range ("22") .Borders.Weight = 5 Range ("A2").Font.Bold = True Range ("A2") .Value = "Brasil" Range ("A2").Font.Type="Arial” Else Range ("A2") .Borders.Weight = 5 Range ("A2").Font.Bold = True Range ("A2").Value = "País não é o Brasil" Range ("A2").Font.Type="Arial" End If End Sub
Desculpe, mas sua pergunta está incompleta. Não há uma pergunta clara ou solicitação de informação. Por favor, forneça mais informações ou faça uma nova pergunta.
0
0
Faça como milhares de estudantes: teste grátis o Passei Direto
Compartilhar