Ir ao conteúdo
  • Cadastre-se
sandro Guimaraes

Excel Macro Excel está Travando

Recommended Posts

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
 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro 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 publicações 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

×