Bom dia a todos,
gostaria de uma ajuda de vcs.
Tenho uma planilha financeira e criei uma macro para lançar as contas "pagas" e "a pagar" no entanto, ela está travando a planilha quando executo.
Alguém poderia me ajudar?
Obrigado.
Sub SAIDA_LANC_1()
'
' SAIDA_LANC_1 Macro
Application.ScreenUpdating = False
If FilterMode = True Then
ActiveSheet.ShowAllData
End If
If Range("c102") = "PAGO" Then
Application.Goto Reference:="SAIDA_LANC"
Selection.Copy
Sheets("BD PAGO").Select
With ActiveSheet
.AutoFilterMode = False
End With
Range("A4").Select
Selection.Insert Shift:=xlDown
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.Goto Reference:="BDPAGO_VALOR"
Selection.Replace What:="0", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.SpecialCells(xlCellTypeBlanks).Select
Application.CutCopyMode = False
Selection.EntireRow.Delete
Range("A3").Select
Selection.AutoFilter
Range("A1").Select
Sheets("LANCAMENTO").Select
Range("c102,e102,g102,i102,K102,M102,O102,Q102,S102,U102").Select
Selection.ClearContents
Range("C102").Select
End If
'MARCO A PAGAR
If Range("c102") = "A PAGAR" Then
Application.Goto Reference:="SAIDA_LANC_APAGAR"
Selection.Copy
Sheets("BD A PAGAR").Select
With ActiveSheet
.AutoFilterMode = False
End With
Range("A4").Select
Selection.Insert Shift:=xlDown
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.Goto Reference:="BDAPAGAR_VALOR"
Selection.Replace What:="0", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.SpecialCells(xlCellTypeBlanks).Select
Application.CutCopyMode = False
Selection.EntireRow.Delete
Range("A1:J1").Select
Selection.AutoFilter
Range("A1").Select
Sheets("LANCAMENTO").Select
Range("C102,E102,G102,I102,K102,M102,O102,Q102,S102,U102").Select
Selection.ClearContents
Range("C102").Select
End If
End Sub