none
macro para classificar tabela RRS feed

  • Pergunta

  • 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?

    quarta-feira, 28 de dezembro de 2016 17:43

Todas as Respostas

  • 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

    quarta-feira, 28 de dezembro de 2016 22:28
    Moderador