none
Erro Macro RRS feed

  • Pergunta

  • Olá,

    Já uso uma macro há algum tempo e nos últimos tempos ele começou a retornar o erro:

    "Erro em tempo de execução 1004: Para você fazer isto, todas as células mescladas precisam ser do mesmo tamanho".

    A macro serve para ordenar por ordem de data uma lista de despesas com descrições em várias colunas. 3 destas colunas estão mescladas, em todo a área escolhida, e isto está gerando o erro já que se eu tiro a mesclagem, o erro some, porém, desconfigura totalmente minha planilha.

    Por ter surgido somente agora no Office 2016, existe alguma nova configuração ou correção na macro para ele aceitar que contenha células mescladas na seleção? Segue macro abaixo:

    Sub Classificar_Colunas()

    '

    ' Classificar_Colunas Macro

    '


    '

        ActiveWindow.SmallScroll Down:=6

        Range("C12:K49").Select

        ActiveWorkbook.Worksheets("Relatório").Sort.SortFields.Clear

        ActiveWorkbook.Worksheets("Relatório").Sort.SortFields.Add Key:=Range( _

            "C13:C49"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

            xlSortNormal

        With ActiveWorkbook.Worksheets("Relatório").Sort

            .SetRange Range("C12:K49")

            .Header = xlYes

            .MatchCase = False

            .Orientation = xlTopToBottom

            .SortMethod = xlPinYin

            .Apply

        End With

    End Sub

    terça-feira, 4 de agosto de 2020 20:35