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,556 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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 15/01/2013 7:25 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious 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

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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,

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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