Lostruler,

Isira este código no seu projeto dentro da planilha correspondente à formatação que deseja.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 6 Then
        If Target.HasFormula = True Then
            Range(Target.Address).Font.Bold = True
        Else
            Range(Target.Address).Font.Bold = False
        End If
    End If
End Sub

Sds,

Henrique Ronconi

Putz... não funcionou

pq será? Vc já testou a rotina acima?

Poste sua planilha em formato compactado que eu ajusto a fórmula para você.

segue:

Obgd desde já.

Segue anexo.

Sds,

Henrique Ronconi

Henrique,

Obgd pela ajuda. Funcionou certinho.

Ainda tenho algumas dúvidas. Veja se pode ajudar:

---1--- A função desfazer (CTRL+Z) se perde quando utilizo esse recurso. Há alguma maneira de habilitar essa função?

---2--- Se eu quiser mudar o intervalo de atuação da macro para as colunas (6;12;18;24....600),como poderia ser feito sem a necessidade de repetir a rotina acima 100 vezes?

Mais uma vez, muito obrigado.

Só para acrescentar.

Ao invés de fazermos dessa maneira, não seria possível criar uma nova função para o excel que verificasse se tem ou não uma fórmula dentro de uma célula?

Por exemplo: =FUNÇÃO(A1)

se tiver fórmula na célula A1, a função retorna 1; ao contrário retorna 0.

Com isso eu consigo trabalhar com a formatação condicional.

É possível fazer isso?

Henrique,

Obgd pela ajuda. Funcionou certinho.

Ainda tenho algumas dúvidas. Veja se pode ajudar:

---1--- A função desfazer (CTRL+Z) se perde quando utilizo esse recurso. Há alguma maneira de habilitar essa função?

---2--- Se eu quiser mudar o intervalo de atuação da macro para as colunas (6;12;18;24....600),como poderia ser feito sem a necessidade de repetir a rotina acima 100 vezes?

Mais uma vez, muito obrigado.

llostruler, quanto aquestão 1, de uma olhada :
Poder usar o Ctrl+Z depois de executar a macro
http://planilhando.com.br/forum/viewtop ... f=10&t=179

Quanto a questão 2, poderiamos utilizar um Case associada a instrução "Target.Column", na pesquisado forum encontrara algumas dicas :

Formatação Condicional [Resolvido]
viewtopic.php?f=24&t=4349&hilit=target&start=10

Preenchendo célula com VBA
viewtopic.php?f=10&t=5600&p=29162&hilit=target#p29162

Macro apresenta erro qd limpa as células
viewtopic.php?f=10&t=4556&p=23326&hilit=target#p23326

Ajuda para criar macro VBA
viewtopic.php?f=16&t=2952&p=13437#p13437

[]s

Mauro,

Obgd pelas dicas.

Ainda aguardo ajuda para criar uma nova função do excel que verifique a existência ou não de fórmula.

Lostruler,

Crie um módulo e introduza o seguinte código:

Option Explicit
Function TemFormula(r As Range) As Boolean
 
    If r.HasFormula Then TemFormula = True
 
End Function

Sds,

Henrique Ronconi