Application.Intersect dentro do evento calculate

2024 - VBA & Macros

Post Recente por Reinaldo 6 anos atrás

2 Posts

2 Usuários

0 Reactions

1,205 Visualizações

RSS

vonzuben

(@vonzuben)

Posts: 549

Honorable Member

Topic starter

Como colocar esse código dentro do evento calculate ?

Pelo fato da target não funcionar dentro desse evento

Private Sub Worksheet_Calculate()

Application.EnableEvents = False

Dim KeyCells As Range

Set KeyCells = Range("A1:J1000000")
    
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
        Is Nothing Then

----

End if

Application.EnableEvents = True
   
End Sub

Postado : 02/10/2019 11:10 am

Reinaldo

(@rlm)

Posts: 246

Estimable Member

Que eu saiba o evento em questão não aceita/trabalha/utilza target.
O calculo e efetuado em toda a planilha

Reinaldo

Postado : 02/10/2019 12:13 pm