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