Deu erro nesta linha: Range("A1:A1810" & Cells(Rows.Count, 1).End(3).Row).Interior.ColorIndex = 4 ... com e sem o 1810 !!!

A resposta no tópico não lhe atendeu?

Uma possibilidade: Indireto erange nomeada

. Osvaldomp, este ajuste ficou ótimo!! . Só tem um probleminha nesta parte do código ... pois, tá pintando a coluna A até o final da plan, e a linha t...

Mauro, este é o problema, eu gostaria que ao clicar em qualquer célula realçasse também as datas e os horários ... mas já vi que não tem jeito, pois, ...

Copa, a rotina que o Osvaldo indicou, apliquei em seu modelo, e a formatação da cor não ocorre na Linha 1 e nem nas Colunas A e B, e tambem nas linhas...

. Sei ... já tinha apagado!!

. Osvaldomp, este melhorou bastante!! . O ideal mesmo seria estas linhas assim ... (range("A" ... Cells(1 ... mas ao mudar de célula as core...

Se seu modelo não tiver nenhum Módulo, Insira um e cole a linha abaixo nele : Public sTarget As String Depois na rotina do formulário altere a linha:...

. Mauro, valeu ... mas não mudou nada, ou melhor, agora passou a fixar a cor amarela também nas colunas A e B!! ; O desejo é que o código SOMENTE real...

Se entendi altere na rotina do osvaldo as linhas : Esta : If Target.Column = 1 Or Target.Column > 29 Then Exit Sub Por esta : If Target.Column = 1...

. Veja o print ... até consigo formatar manualmente a linha 1, mas ao mudar de célula o código já fixa o amarelo dele lá!! ... As colunas A e B, após ...

. Osvaldomp, o código continua fazendo mais coisa que o desejado (SOMENTE colorir a linha e a coluna da célula ativa, até o limite desta)!! ... Eu for...

O que gostaria é que o código somente colorisse a linha e a coluna da célula ativa, até o limite desta!! ... Mais nada (ele tá tirando bordas, colorin...

. Osvaldomp, (ops, não posso mais excluir a mensagem acima) !!! ... Não é isto não!! ... As linhas coloridas da célula selecionada devem sim ir até a ...