Executa Macro Automaticamente

[BMOTA]

Estou tentando execultar a seguinte macro automaticamente mais não estou conseguindo.

macro

 

Private Sub Worksheet_Change(ByVal Target As Range)

        Application.EnableEvents = True

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

                Call CLASSIFICAÇÃOCALCULORS

        End If

        Application.EnableEvents = False

   

End Sub

 

Sub CLASSIFICAÇÃOCALCULORS()

 Range("B2:F55").Select

    ActiveWorkbook.Worksheets("CALCULO RS").Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("CALCULO RS").Sort.SortFields.Add Key:=Range( _

        "E2:E55"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _

        xlSortNormal

    ActiveWorkbook.Worksheets("CALCULO RS").Sort.SortFields.Add Key:=Range( _

        "F2:F55"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _

        xlSortNormal

    With ActiveWorkbook.Worksheets("CALCULO RS").Sort

        .SetRange Range("B2:F55")

        .Header = xlGuess

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

    ActiveWindow.SmallScroll Down:=-15

End Sub

Eu criei uma macro gravada que foi essa CLASSIFICAÇÃOCALCULORS e coloquei o codigo para que ele fosse execultada assim que as celulas h3 ou h2 fosse alteradas, por formulas.

 

Editado Outubro 17, 2016 por BMOTA

[Basole]

Para que o evento seja acionado por alterações de valores com formulas, use o evento calculate.

Veja o exemplo:

Em um modulo padrão, declare as variaveis:

Public iniVal1 As Variant
Public iniVal2 As Variant

Em qualquer celula coloque uma formula, por exemplo: em B1: =A1+1
 

Private Sub Worksheet_Calculate()
	       If Range("H2").Value <> iniVal1 Or _
       Range("H3").Value <> iniVal2 Then
   
        Application.EnableEvents = True
	         Call CLASSIFICAÇÃOCALCULORS
         
        iniVal1 = Range("H2").Value
        iniVal2 = Range("H3").Value
        
        Application.EnableEvents = False
        
         End If
        
End Sub
	

Editado Outubro 17, 2016 por Basole
*

[BMOTA]

  Em 17/10/2016 em 13:11, Basole disse:

Para que o evento seja acionado por alterações de valores com formulas, use o evento calculate.

Veja o exemplo:

Em um modulo padrão, declare as variaveis:

Public iniVal1 As Variant
Public iniVal2 As Variant

Em qualquer celula coloque uma formula, por exemplo: em B1: =A1+1
 

Private Sub Worksheet_Calculate()
	       If Range("H2").Value <> iniVal1 Or _
       Range("H3").Value <> iniVal2 Then
   
        Application.EnableEvents = True
	         Call CLASSIFICAÇÃOCALCULORS
         
        iniVal1 = Range("H2").Value
        iniVal2 = Range("H3").Value
        
        Application.EnableEvents = False
        
         End If
        
End Sub
	

Expand  

Bom dia, obrigado por responder

Porém não deu certo.