Renildo

Oi Osvaldo. Bom dia.

Primeiramente desculpa a demora pra dar o retorno. O código funcionou sim! Muito obrigado!

A única coisa que precisei alterar foi inserir duas linhas para proteger e desproteger a planilha na execução dele, pois eu pretendo utilizar uma planilha bloqueada.

Estou elaborando uma planilha para a próxima temporada da NFL!

Valeu pela tua ajuda e um abraço!

Oi, Osvaldo! Muito obrigado! Funcionou, mas eu queria que funcionasse de outro jeito: ao invés de digitar o valor na célula AR144, esse valor aparecesse como vínculo de uma caixa de combinação.

Com o código eu consigo as células formatadas apenas quando digito o valor 1 ou 2, quando o resultado vem automaticamente a formatação simplesmente não acontece.

Valeu pela atenção.

Oi Osvaldo! Valeu pelo retorno.

Deixa eu ver se consigo ser mais claro:

Todas células de D9 a D65 tem a fonte tamanho 8, porém, se na célula AR144 o valor for 1, apenas as células D9 e D29 devem ter o tamanho da fonte aumentado para 14 e quando eu mudar o valor da célula AR144 para 2, apenas as células D9, D17, D25, D33, D41, D49, D57 e D65, devem ter a fonte aumentada para o tamanho 14.

A célula AR144 é "a outra", e varia apenas entre esses dois valores.

Quando apliquei o código, funcionou apenas para a primeira condição, quando AR144=1. Quando mudei pra dois não aconteceu nada.

Obrigado.

Boa tarde!

Estou precisando formatar o tamanho da fonte de determinadas células, de acordo com os dados inseridos em outra célula, e não tenho a opção de formatação condicional para o tamanho.

Consegui criar este código, porém não funciona. Alguém pode me ajudar?

Segue o código:

Sub FormataFonte()

If Range("AR144").Value = 1 Then
Range("D9,D29").Font.Size = 14
Range("D17,D25,D33,D41,D49,D57,D65").Font.Size = 8

Else: Range("AR144").Value = 2
Range("D29").Font.Size = 8
Range("D9,D17,D25,D33,D41,D49,D57,D65").Font.Size = 14
End If

End Sub