Instrução IF aninhada funcionando somente quando fora de mudanças IF

Question

Estou tentando minha mão no VBA.

Eu tenho uma declaração que diz:

Sub PM()

Set rn = ActiveWindow.VisibleRange.Cells(1, 1)
Application.ScreenUpdating = False
'If Not Intersect(Target, Range("C27")) Is Nothing Then
If Range("C27") = 3 Then
ActiveSheet.Shapes("Option Button 28").Select
Selection.Enabled = False
If Range("J57") < 455 Then
Range("J56") = False
Else
Range("J56") = True
End If
Else
ActiveSheet.Shapes("Option Button 28").Select
Selection.Enabled = True
End If
rn.Activate
Application.ScreenUpdating = True

End Sub

Quando eu mudo a célula C27, o valor passado para a célula J56 funciona perfeitamente. Mas uma vez que o valor em C27 é escolhido, e então eu mudo a célula J57, o J56 não muda como deveria. Eu tenho que alterar o valor C27 novamente para acionar o J56 para refletir o valor correto.

Alguém pode apontar o que estou fazendo errado?

    

Answer 1

Eu estou supondo loucamente aqui, mas espero que você esteja chamando este código de um evento disparado apenas no c27, então se você editar o j57, a função / sub não será chamada.