macro para classificar tabela

Question

Olá a todos, em uma planilha tenho a seguinte macro que funcionana muito bem no evento change da planilha, ocorre que ao altgerar para o evento calculate a macro retorna um erro: abaixo o código VBA da macro que uso

Dim celulas As Range
Set celulas = Range("PRODUTOS[QUANTIDADE EM ESTOQUE]")

'ActiveWorkbook.Worksheets("ESTOQUE").ListObjects("PRODUTOS").Active

If Not Application.Intersect(celulas, Range(Target.Address)) Is Nothing Then

    ActiveWorkbook.Worksheets("ESTOQUE").ListObjects("PRODUTOS").Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("ESTOQUE").ListObjects("PRODUTOS").Sort.SortFields.Add _
        (Range("PRODUTOS[[#All],[STATUS]]"), xlSortOnCellColor, xlAscending, , _
        xlSortNormal).SortOnValue.Color = RGB(255, 124, 128)
    With ActiveWorkbook.Worksheets("ESTOQUE").ListObjects("PRODUTOS").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End If

alguma luz?

Answer 1

Não recomendo atribuir uma rotina tão pesada como essa no evento Calculate. Sua pasta de trabalho poderá ter problemas de lentidão.

Sbore sua dúvida, em qual linha exatamente você obtém erro de execução?

---

http://www.ambienteoffice.com.br || Grupo de WhatsApp: https://chat.whatsapp.com/K1uey5Q4yJdKnsgWkVQAZG