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.
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
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,
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.
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
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.
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 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?
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.
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.
@@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!
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)
Bem didático! Gostei!
Já salvei na minha lista de favoritos!
Bom dia, obrigado.
Show! Vai ser muito útil para mim. Obrigado!
Que bom, sucesso em seus estudos.
Muito bom Prof. adorei, funcionou direitinho. Obrigada
Que bom.
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.
Boa tarde, que bom.
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
drive.google.com/file/d/1qwa7vkRn8zlZJsVr-lSnHNwyjPzSMwlu/view?usp=sharing
Muito útil obrigado
obrigado.
Gostei muito do video. Preciso fazer uma planilha para comparar vários dados. tipo: 10 colunas. Tem como fazer?
Boa tarde, obrigado, bem complexo, não testei nada assim ainda.
th-cam.com/video/Iqf3vP5kJkc/w-d-xo.html
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,
Bom dia, segue link de vídeo sobre a função procv dentro do vba. th-cam.com/video/4jRtQSp39yg/w-d-xo.html
@@CanalSGP retornando o valor na mesma celula conforme os critérios da outra celula nesta celula tendo 5 criterios
Boa tarde, acredito que seja necessário separar os critérios em células.
@@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?
Mas é na própria plan9lha excel
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.
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.
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
Boa noite, acredito que vai ser seguindo a mesma lógica, tente um exemplo simples primeiro, comparando coluna C e A.
@@CanalSGP posso encaminhar um email para me ajudar
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.
Boa tarde, experimente pesquisar pela função soma-ses dentro do vba.
Na parte em que colocamos "tem" ou "não tem" consigo definir que apareça uma numeração de produto da tabela?
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
Boa noite vc tem curso de vba?
Bom dia, não tenho, somente os vídeos no TH-cam.
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?
Boa tarde, não entendi exatamente o que deseja fazer.
@@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?
Bom dia, não tentei fazer algo semelhante ainda, de comparação tenho apenas o procedimento deste vídeo.
Bom dia prof.o meus esta dando erro no loop.fala que loop sem do.
Mas acima eu coloquei .Obrigada por toda ajuda 🙏🙏
Boa tarde, pode ser que falta fechar um if com end if ou de fato o loop não foi colocado no código.
Prof ,muito obrigada deu certo 👏👏👏 esta funcionando perfeito ,muito muito obrigada
Que bom.
@@CanalSGP mesmo problema aqui. Fiz exatamente como está no vídeo porém no final dá erro de compilação Loop sem Do
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.
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.
Bom dia, como eu faria se as listas estivessem em diferentes arquivos excel ???
Bom dia, neste sentido não fiz nada ainda.
@@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!
Bom dia, tenho alguns vídeos, mas precisa abrir a outra planilha para conseguir manipular: th-cam.com/video/bnxL3NlDSvI/w-d-xo.html
Viva. Fiz igual e deu erro: Compile Error - Loop Without Do
Boa tarde, pela mensagem deve ser alguma falha de digitação.
Bom dia, copiei o código do vídeo e deu erro. Estou usando o office 365
Bom dia, qual mensagem de erro retorna?
@@CanalSGP Foi na linha abaixo:
Existe = WorksheetFunction.CountIf(Planiha1.Range("B:B"), .Cells(Linha, 3).Text)
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)
Como fazer para o "TEM" aparecer em vermelho?
Boa tarde, no exemplo da vídeo aula a seguir colocamos cor na célula, acredito que possa adaptar: th-cam.com/video/_Ww3mGH6smk/w-d-xo.html
tentei implementar e deu erro
Boa tarde, qual a mensagem de erro que retorna.