Este fórum está sendo desativado

[Diego100ges]

Bom dia pessoal;
Estou utilizando uma macro para atualizar a planilha caso eu altere determinada célula, porém agora fiz umas modificações na planilha e a célula que desencadeava a macro agora é uma função e não é mais alterada manualmente, desta forma a macro parou de funcionar, alguém pode me ajudar a corrigir o código?

Atualmente ele ira desencadear a macro quando altardo N35, mas preciso trocar essa referencia para I45 ou F45.

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
    Application.EnableEvents = True
    If Not Intersect(Target, Range("N35")) Is Nothing Then
    Call Atualiza
    End If
Application.ScreenUpdating = True
End Sub

Muito obrigado!

[osvaldomp]

Experimente:

Código: Selecionar todos

If Not Intersect(Target, Range("F45,I45")) Is Nothing Then

[kiko]

Diego100ges bom dia, penso eu que é só alterar:
If Not Intersect(Target, Range("N35")) Is Nothing Then

Para a célula que você deseja por exemplo:
If Not Intersect(Target, Range("F45")) Is Nothing Then

Espero ter ajudado de alguma forma.

[Diego100ges]

Pessoal, desta forma funciona quando essas 2 células são atualizadas, até ai ok, resolve o problema para atualizar caso uma das duas sejam alteradas, porém, a Sub só está entendendo caso eu altere manualmente essas duas células, caso elas sejam funções a Sub não roda, nada acontece.

Muito obrigado!

[osvaldomp]

... caso elas sejam funções ...

Isso você não informou antes.

Me parece que o evento indicado é o Calculate no lugar do Change.

Mas você precisa avaliar se a macro Atualiza deverá rodar sempre que a planilha for recalculada ou só deverá rodar sob condições, por exemplo para determinados conteúdos em N35 e ou F45 e ou I45.