Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Procura valores dup...
 
Notifications
Clear all

Procura valores duplicados e escreve "Sim"

 
2024 - VBA & Macros
Post Recente por Coiote_25 12 anos atrás
9 Posts
3 Usuários
0 Reactions
2,551 Visualizações
RSS
 Coiote_25
(@coiote_25)
Posts: 42
Trusted Member
Topic starter
 

Boa noite, caros amigos,

alguém me pode passar uma rotina que procure na coluna A da folha2 todos os registos (números) e compare com os registos da coluna A da folha1, e caso encontre esse valor duplicado deverá escrever a palavra "SIM" na coluna G da folha1.

Muito obrigado pela vossa colaboração.

E continuação de um excelente trabalho...

Cumprimentos,

Noel

 
Postado : 15/01/2013 6:44 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Talvez isso te ajude

Sub AleVBA_ColnDupl()

Dim rw As Range
For Each rw In Worksheets("Plan1").UsedRange.Rows
    
    
    Dim BoardSheet As Worksheet
    Set BoardSheet = Worksheets("Plan2")
    With BoardSheet
        Dim FindRange As Range
        Set FindRange = .Range("A:A").Find(rw.Cells(1, 1).Value)
        
        
        If (Not FindRange Is Nothing) Then
            FindRange.Offset(0, 1).Value = "Sim"
            'rw.EntireRow.Clear
        End If
    End With
Next rw

End Sub
 
Postado : 15/01/2013 7:25 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Noel,

Veja um pequeno exemplo que eu fiz para que você possa verificar se é isso mesmo que você quer.

Busca de números duplicados de uma aba para a outra.rar
 
Postado : 15/01/2013 7:40 pm
 Coiote_25
(@coiote_25)
Posts: 42
Trusted Member
Topic starter
 

Ainda não é bem isso que eu pretendo,

envio em anexo um pequeno exemplo do que é pretendido.

http://www.4shared.com/rar/DvRZjpLb/exemplo.html

Obrigado pela vossa preciosa ajuda

 
Postado : 15/01/2013 8:08 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Veja se é isso
http://www.sendspace.com/file/1cu4xn

Obs:Foi corrigido!!
Att

 
Postado : 15/01/2013 9:07 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Em G2 faça:

=SE(ÉERROS(PROCV(A2;Folha2!$A$1:$A$1000;1;0));"";"Sim"). Arraste para baixo.

Abs,

 
Postado : 15/01/2013 9:14 pm
 Coiote_25
(@coiote_25)
Posts: 42
Trusted Member
Topic starter
 

Alex,

é isso mesmo que eu pretendia, só que a rotina está a demorar muito tempo a fazer essa verificação e chega mesmo a encravar o excel. Se calhar devemos primeiro ordenar os valores por ordem crescente na folha2 e muito provavelmente limitar a um range tipo (A1:A18000).

É possível?

Obrigado

 
Postado : 16/01/2013 6:51 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Veja se assim vai dar certo!
http://www.sendspace.com/file/frtkom
Att

 
Postado : 16/01/2013 7:02 pm
 Coiote_25
(@coiote_25)
Posts: 42
Trusted Member
Topic starter
 

Boa noite

Obrigado Alexandre funciona na perfeição. Peço desculpa por só agora estar a responder, mas estive com problemas na Internet.

Grande abraço e mais uma vez um muiiiitoooo obrigado pela vossa partilha de conhecimento.

 
Postado : 18/01/2013 6:26 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico