Jan 29 2024 07:31 AM
Excel closing by itself after executing recorded macro. How to fix? (translated via Google Translate, there may be errors)
Macro:
Sub ClassiftLancamentosGerais()
'
' ClassiftLancamentosGerais Macro
'
'
Range("tLancamentosGerais").Select
ActiveWorkbook.Worksheets("Lançamentos Gerais").ListObjects( _
"tLancamentosGerais").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Lançamentos Gerais").ListObjects( _
"tLancamentosGerais").Sort.SortFields.Add2 Key:=Range( _
"tLancamentosGerais[Vencimento]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Lançamentos Gerais").ListObjects( _
"tLancamentosGerais").Sort.SortFields.Add2 Key:=Range( _
"tLancamentosGerais[Item]"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Lançamentos Gerais").ListObjects( _
"tLancamentosGerais").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B16").Select
End Sub