locked
Pagto atrasado move cliente, data, valor e dias em atraso para outra planilha RRS feed

  • Pergunta

  • Olá pessoal

    O cara resolve um problema e já tem outro kkkkk .... alunos "eternos"....rs

    Minha dúvida:

    Plan1: Tenho os registros ( dados )

    Plan2: aqui é a duvida - Como transporto / formo a plan2 com TODOS os registros da plan 1 dos pagamentos nao efetuados?

    Os registros na coluna A em cinza indicam que estes registros nao foram pagos

    Campos: cliente, data vencto e valor ?

           A                      B                    C                                                 D

    Data Vencto Data Serviço Cliente Valor
    13/01/2011 Germer             600,00
    20/02/2010 24/02/2011 Empresa 1          1.000,00
    05/01/2010   Empresa 1          3.100,00
    20/01/2011 27/01/2011 Empresa 2          1.000,00
        Empresa 2          4.200,00
    13/01/2010   Empresa 3          2.100,00
    10/01/2010 17/04/2011 Empresa 3             300,00
      18/05/2011 Metisa          4.100,00

     

     

    Alguma dica ?

    Obrigado

     

    quinta-feira, 17 de fevereiro de 2011 20:09

Todas as Respostas

  • Sub copiarColarCriterio()
    'congela a imagem ( ganha performance)
    Application.ScreenUpdating = False
    Sheets("Plan1").Select
    Dim n As Integer
    Dim k As Integer
    'percorre a sh 1
    'no caso estou jogando para a plan2, crie sua regra.
    For n = 1 To Cells(Rows.Count, 1).End(xlUp).Row
     Sheets("Macro").Select
     If Cells(n, 1) = "" Then
      Rows(n).Select
      Selection.Copy
      Sheets("Plan2").Select
      k = Cells(Rows.Count, 1).End(xlUp).Row + 1
      Rows(k).Select
      ActiveSheet.Paste
     End If
      
    Next
    
    Application.ScreenUpdating = True
    End Sub

    Caio Vitullo
    quinta-feira, 17 de fevereiro de 2011 22:16
  • Olá Caio

    Obrigado, mas acho que seu código nao faz o que preciso... ou será que eu fiz algo errado ?

    Grato

     

     

    quinta-feira, 17 de fevereiro de 2011 23:18
  • Serve sem VBA? Bem mais simples. Me fale. Abs,
    sexta-feira, 18 de fevereiro de 2011 09:38
  • Jona, voce tem que adaptar o codigo a sua realidade.

    colocar o nome da sua planilha e a regra de negocio.

    mas enfim,

    como nosso amigo disse, podemos fazer sem VBA.

     


    Caio Vitullo
    sexta-feira, 18 de fevereiro de 2011 13:01
  • Olá Pessoal

    Novamente obrigado pelo atenção.

    Qdo nao sabemos, temos que tentar de uma forma ou de outra...rs Fiz com filtro avançado, funciona, porem se nao for abuso e o Mandrix quiser me mostrar outra forma sem vba ficarei grato, pois sempre é bom conhecer novas formas

    Fiz assim:

    Sub pagtos_atrasados()

    Sheets("Servicos").Range("A5:I17").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("C2:C3"), CopyToRange:=Range("C5:J28"), Unique:= _ False

    End Sub

    Que bom q o Excel tem o "famoso" gravador de macros, do contrario TODOS teriam que fazer um curso MUITO aprofundados sobre Visual Basic kkk

    Abrcos

    sexta-feira, 18 de fevereiro de 2011 16:58
  • Se vc quiser mover sem precisar de macro, eis aqui uma planilha que demonstra como fazer 

     

    Filtro de banco de dados com dois argumentos

     

    Vc vai ter que ver a técnica e ajustar a sua planilha


    João Eurico Consultor Manguetown - Brazil
    sábado, 19 de fevereiro de 2011 10:52
  •  

    Bom dia João Eurico

    Obrigado pelo link, ótimo exemplo.

    Thanks

    sábado, 19 de fevereiro de 2011 14:05