Ir ao conteúdo
  • Cadastre-se

sandro Guimaraes

Membro Júnior
  • Posts

    2
  • Cadastrado em

  • Última visita

Reputação

0
  1. 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
  2. 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

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...