none
Qual a melhor lógica que posso utilizar? RRS feed

  • Pergunta

  • Eu tenho esse codigo (mostrando apenas uma parte embaixo, pq e repetitivo)

                        

    Sheets("Cálculo").Select

        While Len(Range("A" & CStr(r)).Value) > 0
        Sheets("Cálculo").Select

        If Range("L" & CStr(r)).Value = "Cobrança" Then

        Range("A" & CStr(r) & ":" & "K" & CStr(r)).Copy

        Sheets("Relatorios").Select
        Range("A" & CStr(novalinha)).Select
        Selection.PasteSpecial Paste:=xlPasteValues

        novalinha = novalinha + 1

    Copio para outra planilha os clientes que tem o critério desejado, nesse caso, "Cobrança" na coluna L. mas eu tenho alguns clientes que tem mais de um registro, eu gostaria que o código checasse se o cliente já foi copiado, e se ele já estiver na lista, apenas some o valor atual com o valor antigo. Não sei como fazer isso sem um código burro muito grande.

    terça-feira, 29 de setembro de 2020 19:24

Todas as Respostas