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
