VBA pronadji parove duplikate

[ Blue82 @ 06.08.2012. 18:57 ] @

Da li neko moze da pronadje primer VBA koda, kako pronaci u 2 kolone duplikate ali bez ponavljanja?
Sta to znaci. To znaci ukoliko imam u koloni "a" broj 5 i u koloni "b" broj 5 njih treba da obelezi, ali ukoliko u koloni "b" imam jos jednu 5-icu, ona ne treba da bude obelezena jer nema svog parnjaka u koloni "a" posto je prethodna 5-ica "zauzeta".

[ FOX028 @ 07.08.2012. 06:02 ] @

Evo mozda ce ovaj primer koristiti

[ Blue82 @ 07.08.2012. 16:14 ] @

Savrseno, kratko i jasno.

Samo bilo bi bolje da si koristio bojanje fonta u npr crveno+bold jer ovako se slabo vidi ali prepravicu ga.
Hvala ti puno!

[ FOX028 @ 07.08.2012. 20:34 ] @

Ako hoces da ti bude BOLD+Crveno onda bi VBA kod mogao da izgleda ovako:

Code:
Sub Duplikat()
Dim Br1 As Range, Br2 As Range
Dim i As Integer

Set rg1 = Range("A1:A10")
Set rg2 = Range("B1:B10")

For Each Br1 In rg1
    For Each Br2 In rg2
        If Br1.Value = Br2.Value And (Br2.Font.Bold = False) Then
            Br1.Font.Bold = True
            Br1.Font.Color = RGB(256, 0, 0)
            Br2.Font.Bold = True
            Br2.Font.Color = RGB(256, 0, 0)
            i = i + 1
            Exit For
        End If
    Next    'Br2
Next        'Br1

MsgBox "Postoji " & i & " parova.", vbInformation + vbOKOnly, "Parovi"
End Sub

[ Blue82 @ 08.08.2012. 12:29 ] @

Uspeo sam to sa bojom da rešim, doduše malo drugačijom kombinacijom koda ali ok je, radi.

[ neptuncokg @ 08.08.2012. 21:59 ] @

Ako kolegu FOX-a nije mrzelo da raspisuje "ovoliku" proceduru zarad resenja tvog problema, daj da vidimo i tu tvoju "nadogradnju"...
Da bi cela tema bila zaokruzena, sa finalnim resenjem, podeli sa nama taj rezultat.
Pozdrav

[ Blue82 @ 09.08.2012. 11:10 ] @

Evo izvoli:

Code:
Sub Duplikati()

Dim rg1 As Range, rg2 As Range
Dim Br1 As Range, Br2 As Range
Dim i As Integer

Set rg1 = Application.InputBox(Prompt:="Obelezi clanove PRVE kolone za uporedjivanje", Title:="Korak 1", Type:=8)
Set rg2 = Application.InputBox(Prompt:="Obelezi clanove DRUGE kolone za uporedjivanje", Title:="Korak 2", Type:=8)

For Each Br1 In rg1
    For Each Br2 In rg2
        If Br1.Value = Br2.Value And (Br2.Font.Bold = False) Then
            Br1.Font.Bold = True: Br1.Font.ColorIndex = 53
            Br2.Font.Bold = True: Br2.Font.ColorIndex = 53
            i = i + 1
            Exit For
        End If
    Next    'Br2
Next        'Br1

MsgBox "Postoji " & i & " parova.", vbInformation + vbOKOnly, "Parovi"
End Sub