Notifications
Clear all

VBA comparar 2 colunas e correponder noutras 2

11 Posts
1 Usuários
0 Reactions
3,201 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia,
Precisava de ajuda para alterar um Código VBA que permita comparar linhas de 2 colunas e escrever nas colunas ao lado um número que será igual caso os valores coincidam.
Envio ficheiro para melhor compreensão.
http://www.sendspace.com/file/qqyy5r

Registado

 
Postado : 08/12/2011 1:16 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Veja se atende... Não alterei a rotina principal onde é feita a conferência. Apenas adaptei para permitir as duas comparações (D com F e B com H)....

 
Postado : 09/12/2011 11:33 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia.
Antes de mais, devo agradecer a atenção e tentativa de resolução do meu problema.
A forma como alterou não dá resposta àquilo que preciso.
Por exemplo: Na coluna H aparece o valor 1.678.95, com o correspondente 1 na coluna G, mas esse valor 1.678.95, não aparece na coluna B, por isso não devia ter correspondente. O mesmo de passa com os valores 4.797.65, 1.510.82, 1.975.98, 1.988.57, e 2.742.98, todos na coluna H, que não tem valores iguais na coluna B e aparecem com um número correspondente, mas deviam aparecer sem número na coluna G.
Faltam também as correspodências na coluna E.
Agradeço desde já o tempo dispensado.

 
Postado : 12/12/2011 4:49 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Tinha uma inversão que estava provocando a limpeza da coluna E.

Fiz algumas boas alterações no seu código original para solucionar.

 
Postado : 14/12/2011 7:36 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia,
Agradeço desde já a atenção, mas ainda não é bem isso. Existe apenas 1 pormenor que não está correcto: a célula E36 não devia ter valor, neste caso 10, já que na coluna C não existe o valor correspondente (10), ou melhor existe na coluna D o valor 0.02 uma vez que tem, e muito bem, a correspondência 8. Como o valor 0.02 existe 2 vezes na coluna F, só uma delas deverá ter correspodência na coluna E.
Já agora, uma curiosidade: no código escreveu na linha 38 o seguinte: citação:If Valor="1,25"Then,Fim de citação. Este 1,25 tem alguma coisa a ver com o 1,25 que está nas células B40, F40 ou H39? Se assim for, esses números não são fixos, podem não aparecer noutras conciliações ou poderão estas células estar preenchidas ou não. Isto porque não sei se altera a forma como o código é realizado.
Cumprimentos

 
Postado : 15/12/2011 6:26 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Fiz umas alterações e parece que agora está atendendo.

Quanto ao 1,25, aquele código estava desativado (cor verde) e sem função.
Utilizei apenas para interceptar e solucionar um erro que estava acontecendo.

 
Postado : 15/12/2011 1:59 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia. Responde, mas tem um erro que é o seguinte: as células com fundo vermelho deviam corresponder-se e isso não acontece.
http://www.sendspace.com/file/63jlja
Obrigado pela atenção.

 
Postado : 19/12/2011 6:21 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

veja se agora não resta mais problemas...

 
Postado : 26/12/2011 6:35 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia. Efectivamente aquele problema foi resolvido, mas ainda resta um: os valores com fundo cor de rosa não se correspondem. Para isso, um teria que estar na coluna F e outro na coluna D. Como estão ambos na coluna F e não existe nenhum valor igual na coluna D, ambos teriam que ficar sem correspondência na coluna E.
O mesmo se passa com os valores assinalados com o fundo cor de laranja: só poderiam ter correspondência se existissem também na coluna B; como não existem, os dois que estão na coluna H terão que ficar sem correspondência.
http://www.sendspace.com/file/2g4xbh
Obrigado pela ajuda que me tem dado.
Desejo umas boas festas.

 
Postado : 27/12/2011 5:13 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Mais um problema resolviso... :D :D

:idea: Se soubesse que o código inicial do seu arquivo estava com tantos problemas, teria feito de outra maneira... ;)

 
Postado : 29/12/2011 5:26 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde,
Antes de mais, quero pedir desculpa por não ter dado resposta até agora, mas ainda não tinha verificado o ficheiro. Depois quero agradecer especialmente ao alexandre_eng pela preciosa ajuda que me deu. Finalmente tenho a questão resolvida. O ficheiro faz aquilo que pretendo. Obrigado mais uma vez.

 
Postado : 26/01/2012 9:37 am