Comparar DUAS LISTAS no Excel Automaticamente com Macro VBA

Поделиться
HTML-код
  • Опубликовано: 15 дек 2020
  • Passo a passo para fazer macro vba Excel de comparação entre duas listas no Excel, verificando quais itens de uma lista constam na outra automaticamente. Ao clicar em botão de comando na planilha Excel, automaticamente a macro vba passa a comparar cada item de uma lista com a outra. Informando na coluna definida na planilha se o item existe ou não na lista comparativa no Excel. Muito simples fazer comparação entre listas na planilha utilizando os códigos vba desta macro Excel para comparar colunas.
    ✅Site SGP: Venda de Coleção de Planilhas Excel VBA Prontas:
    www.planilhascanalsgp.com.br/
    ================================
  • НаукаНаука

Комментарии • 58

  • @gelsoncosta2208
    @gelsoncosta2208 3 года назад +1

    Bem didático! Gostei!
    Já salvei na minha lista de favoritos!

    • @CanalSGP
      @CanalSGP  3 года назад

      Bom dia, obrigado.

  • @marciasegatto2014
    @marciasegatto2014 2 года назад +1

    Muito bom Prof. adorei, funcionou direitinho. Obrigada

  • @RealizandoSonhos.
    @RealizandoSonhos. 3 года назад +1

    Muito útil obrigado

  • @ProfGilRodrigues
    @ProfGilRodrigues 2 года назад +1

    Show! Vai ser muito útil para mim. Obrigado!

    • @CanalSGP
      @CanalSGP  2 года назад

      Que bom, sucesso em seus estudos.

  • @divinorodriguesdasilva5048
    @divinorodriguesdasilva5048 2 года назад

    Muito bom... Eu consegui adaptar um codigo para Analise Horizontal de Balanço utilizando Indice e Corresp no Vba. O conceito certamente poderá ajudar outros usuários.

    • @CanalSGP
      @CanalSGP  2 года назад

      Boa tarde, que bom.

    • @divinorodriguesdasilva5048
      @divinorodriguesdasilva5048 2 года назад

      Sub IndiceCorresp()
      Dim last As Long
      Dim Rng As Range
      Dim C As Range
      last = Plan2.Cells(Rows.Count, "A").End(xlUp).Row
      Set Rng = Plan2.Range("A1:A" & last)
      For Each C In Rng
      If C.Value "" Then
      C.Offset(0, 13) = Application.WorksheetFunction.Index(Plan1.Range("C1:C3"), Application.Match(C.Value, Plan1.Range("A1:A3"), 0))
      End If
      Next C
      End Sub

    • @divinorodriguesdasilva5048
      @divinorodriguesdasilva5048 2 года назад

      drive.google.com/file/d/1qwa7vkRn8zlZJsVr-lSnHNwyjPzSMwlu/view?usp=sharing

  • @Samueltrindadedelima
    @Samueltrindadedelima 3 года назад +1

    Gostei muito do video. Preciso fazer uma planilha para comparar vários dados. tipo: 10 colunas. Tem como fazer?

    • @CanalSGP
      @CanalSGP  3 года назад

      Boa tarde, obrigado, bem complexo, não testei nada assim ainda.

    • @divinorodriguesdasilva5048
      @divinorodriguesdasilva5048 2 года назад

      ruclips.net/video/Iqf3vP5kJkc/видео.html

  • @celiodemendonca2137
    @celiodemendonca2137 2 года назад

    Mestre, preciso de um codigo vba onde , eu tenho um valor a Credito e varios Debitos, baseado em uma condição de uma outra coluna precios preciso encontrar a soma dos debitos que corresponda ao Credito que tenho, baseado nessa outra condição.

    • @CanalSGP
      @CanalSGP  2 года назад

      Boa tarde, experimente pesquisar pela função soma-ses dentro do vba.

  • @lybna
    @lybna Год назад

    Olá Professor muito Bom! Mas preciso do seguinte veja se pode me ajudar: Tenho duas planilhas iguais, quero comparar essa 1 que tem dados de 2021 com a planilha de dados de 2022 ! porem preciso que seja feito comparado celula uma celula da planilha 1 pela mesma celula da planica 2, ( Sem busca os dados por todas as celulas entende? preciso que busca somente na mesma celula porem da outra planilha) mas tenho informações da colula A até colula I da linha 12 até a linha 670 como faço isso? se elas forem iguais colorir de uma cor.

    • @CanalSGP
      @CanalSGP  Год назад

      Boa tarde, obrigado, comparar desta forma não fiz código semelhante ainda. Pelo menos de momento não tenho ideia de como fazer para esta necessidade.

  • @souzabia905
    @souzabia905 3 месяца назад

    Na parte em que colocamos "tem" ou "não tem" consigo definir que apareça uma numeração de produto da tabela?

    • @CanalSGP
      @CanalSGP  3 месяца назад

      Bom dia, se for na mesma linha em outra coluna a numeração pode capturar. Ex: Capturar da coluna 5.
      .Cells(Linha, 4).Value = .Cells(Linha, 5).Value

  • @adrianadezzotti6220
    @adrianadezzotti6220 2 года назад

    Bom dia prof.o meus esta dando erro no loop.fala que loop sem do.
    Mas acima eu coloquei .Obrigada por toda ajuda 🙏🙏

    • @CanalSGP
      @CanalSGP  2 года назад

      Boa tarde, pode ser que falta fechar um if com end if ou de fato o loop não foi colocado no código.

    • @adrianadezzotti6220
      @adrianadezzotti6220 2 года назад +1

      Prof ,muito obrigada deu certo 👏👏👏 esta funcionando perfeito ,muito muito obrigada

    • @CanalSGP
      @CanalSGP  2 года назад

      Que bom.

    • @rbpancada
      @rbpancada 2 года назад

      @@CanalSGP mesmo problema aqui. Fiz exatamente como está no vídeo porém no final dá erro de compilação Loop sem Do

  • @kevinsantos5112
    @kevinsantos5112 2 года назад

    Gostei bastante do vídeo, mas eu precisaria que ao inves de informar "tem" ou "nao tem"
    Que trouxesse a informação que esta na mesma linha da planilha base de comparação, é possivel ?
    Por exemplo sua planilha, se houvesse algum comentário na frente dos produtos na planilha dados, e quisesse que esses comentários viessem para a planilha comparar junto com os itens que ja tem na planilha dados.

    • @CanalSGP
      @CanalSGP  2 года назад

      Boa noite, obrigado, dentro desta lógica não tem como, porque não localiza a posição da informação na outra aba da planilha. Para fazer isso, talvez um loop dentro do outro, mas dependendo do volume de dados vai ficar muito lento.

  • @CleverCadaver7
    @CleverCadaver7 2 года назад

    Viva. Fiz igual e deu erro: Compile Error - Loop Without Do

    • @CanalSGP
      @CanalSGP  2 года назад

      Boa tarde, pela mensagem deve ser alguma falha de digitação.

  • @jeansantos7918
    @jeansantos7918 Год назад

    Boa noite vc tem curso de vba?

    • @CanalSGP
      @CanalSGP  Год назад

      Bom dia, não tenho, somente os vídeos no RUclips.

  • @anacleideflorencio4020
    @anacleideflorencio4020 21 день назад

    Bom dia, tem algum vídeo explicando como retorna uma valor com procv no vba,
    Celula G6 retorna o valor da outra celula conforme aparecer na outra celula por exemplo:
    C6
    Tem os 4 NOMES
    G6 retorna o valor da C6,

    • @CanalSGP
      @CanalSGP  21 день назад

      Bom dia, segue link de vídeo sobre a função procv dentro do vba. ruclips.net/video/4jRtQSp39yg/видео.html

    • @anacleideflorencio4020
      @anacleideflorencio4020 21 день назад

      @@CanalSGP retornando o valor na mesma celula conforme os critérios da outra celula nesta celula tendo 5 criterios

    • @CanalSGP
      @CanalSGP  21 день назад

      Boa tarde, acredito que seja necessário separar os critérios em células.

    • @anacleideflorencio4020
      @anacleideflorencio4020 20 дней назад

      @@CanalSGP consegui, o que queria, tem como a função vlookup ficar funcionando aparti do momento que abrir a planilha sem precisa de botão?

    • @anacleideflorencio4020
      @anacleideflorencio4020 20 дней назад

      Mas é na própria plan9lha excel

  • @jacksonbrito5040
    @jacksonbrito5040 3 года назад

    Como fazer para o "TEM" aparecer em vermelho?

    • @CanalSGP
      @CanalSGP  3 года назад +1

      Boa tarde, no exemplo da vídeo aula a seguir colocamos cor na célula, acredito que possa adaptar: ruclips.net/video/_Ww3mGH6smk/видео.html

  • @ronaldonantinyn9802
    @ronaldonantinyn9802 3 года назад

    Bom dia, como eu faria se as listas estivessem em diferentes arquivos excel ???

    • @CanalSGP
      @CanalSGP  3 года назад

      Bom dia, neste sentido não fiz nada ainda.

    • @ronaldonantinyn9802
      @ronaldonantinyn9802 3 года назад

      @@CanalSGP To com esse problema pra resolver e não sei como mencionar a outra planilha pra fazer a comparação. também não vi exemplos parecidos. Desde já obrigado!

    • @CanalSGP
      @CanalSGP  3 года назад

      Bom dia, tenho alguns vídeos, mas precisa abrir a outra planilha para conseguir manipular: ruclips.net/video/bnxL3NlDSvI/видео.html

  • @Gkyodai
    @Gkyodai Год назад

    Bom dia, essa macro me ajudou demais, porem estou com um problema, a macro não conta quando tem valores duplicados, tem alguma forma de fazer cada linha ser contada somente uma vez?

    • @CanalSGP
      @CanalSGP  Год назад

      Boa tarde, não entendi exatamente o que deseja fazer.

    • @Gkyodai
      @Gkyodai Год назад

      @@CanalSGP Bom dia, eu trabalho com produtos farmacêuticos e direto eu faço comparações entre duas planilhas, então eu tentei fazer a sua macro, mas estou com um problema, vamos supor q eu tenho 2 células iguais q preciso comparar na minha tabela eu precisava saber se essa mesma quantidade de células repetidas estará na outra tabela na qual vai ser verificada, porem quando vai verificar ela marca que todos lotes iguais já existem, por exemplo tenho 2 células com o lote "b22e1592" para fazer a comparação na outra tabela, se na outra tabela tiver 1 célula com o mesmo lote, ela marca que existe para as duas, tem alguma forma dela fazer a verificação de cada célula uma única vez?

    • @CanalSGP
      @CanalSGP  Год назад

      Bom dia, não tentei fazer algo semelhante ainda, de comparação tenho apenas o procedimento deste vídeo.

  • @jeansantos7427
    @jeansantos7427 2 года назад

    Bom dia, copiei o código do vídeo e deu erro. Estou usando o office 365

    • @CanalSGP
      @CanalSGP  2 года назад

      Bom dia, qual mensagem de erro retorna?

    • @jeansantos7918
      @jeansantos7918 2 года назад

      @@CanalSGP Foi na linha abaixo:
      Existe = WorksheetFunction.CountIf(Planiha1.Range("B:B"), .Cells(Linha, 3).Text)

    • @CanalSGP
      @CanalSGP  2 года назад +1

      Bom dia, o que percebi é falta um l na planilha.
      Errado:
      Existe = WorksheetFunction.CountIf(Planiha1.Range("B:B"), .Cells(Linha, 3).Text)
      Correto:
      Existe = WorksheetFunction.CountIf(Planilha1.Range("B:B"), .Cells(Linha, 3).Text)

  • @gabrielleletice
    @gabrielleletice 2 года назад

    tentei implementar e deu erro

    • @CanalSGP
      @CanalSGP  2 года назад

      Boa tarde, qual a mensagem de erro que retorna.

  • @agathanodari5411
    @agathanodari5411 2 года назад

    Poderia me ajudar , no meu caso quero comparar na planilha Historico coluna C se existe o item na planilha base coluna A e H se sim somar o valor da coluna 6 da coluna historico na coluna B da base

    • @CanalSGP
      @CanalSGP  2 года назад

      Boa noite, acredito que vai ser seguindo a mesma lógica, tente um exemplo simples primeiro, comparando coluna C e A.

    • @agathanodari5411
      @agathanodari5411 2 года назад

      @@CanalSGP posso encaminhar um email para me ajudar