Boa noite, Pessoal.
Utilizo o gravador de macros para gravar algumas partes das minhas macros.
Recentemente troquei minha máquina e o gravador simplesmente não funciona.
Gravei um rotina para classificar meus dados e olha o código que foi gerado. (O código já foi gerado com todas as linhas dando erro). Já solicitei para TI desinstalar e instalar novamente, já formatei a máquina, Já verifiquei as referências, Já fiz de tudo...
Macro gerada no computador que está dando erro. (não faz sentido nenhum os códigos gerados)
Sub Macro1()
Columns("A:L").Select
name.DisplayRightToLeft("Planilha1")...DupeUnique
name.DisplayRightToLeft("Planilha1")...Activesheet :=Range("A1:A20"),type _
:=xlSortOnsValues, SortOn := xlAscending, := xlSortNormal
name.DisplayRightToLeft("Planilha1")...Activesheet :=Range("B1:B20"),type _
:=xlSortOnsValues, SortOn := xlAscending, := xlSortNormal
With Name.DisplayRightToLeft("Planilha1").
.Range ("A1:L20")
.=xlGuess
. = FALSE
.=xlTopToBottom
.=xlPinyin
.
End With
End Sub
Macro gerada no computador (Aqui os códigos foram criados corretamente)
Sub Macro1()
Columns("A:M").Select
ActiveWorkbook.Worksheets("Planilha1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Planilha1").Sort.SortFields.Add Key:=Range( _
"A1:A20"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Planilha1").Sort.SortFields.Add Key:=Range( _
"B1:B20"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Planilha1").Sort
.SetRange Range("A1:M20")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Postado : 20/10/2021 8:33 pm