Ir ao conteúdo
  • Cadastre-se

Excel Macro Excel está Travando


Posts recomendados

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
 

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...