Pergunte aqui

Histórico de revisões [voltar]

@mrkalvin, @Conrado cheguei em uma solução alternativa...

usei formatação condicional:

A formula é: OU(A1="";A1<>""), colocar SemFundo (Fundo transparente), em conjunto com a macro:

Sub cellaattiva(Target) 
Target.CellBackColor = RGB(194,224,174)
OldCell = Target
End Sub

A célula fica colorida qdo inicia a digitação, ao dar Enter volta a ser transparente.

Coloquei a Condicional, em A1 para copiar onde necessária, pois existem células coloridas por outro motivo, se fosse a Condicional para a planilha toda não teria como colorir qualquer célula.

Arquivo teste2...

Não é o ideal, mas ficou mais próximo, continuo aceitando sugestão.