VBA pronadji parove duplikate

VBA pronadji parove duplikate 06.08.2012. u 19:57 · pre 173 meseca #1

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".

Re: VBA pronadji parove duplikate 07.08.2012. u 07:02 · pre 173 meseca #2

Evo mozda ce ovaj primer koristiti

Potpis

[email protected]=

Parovi.xls34k

Re: VBA pronadji parove duplikate 07.08.2012. u 17:14 · pre 173 meseca #3

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!

Re: VBA pronadji parove duplikate 07.08.2012. u 21:34 · pre 173 meseca #4

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

Potpis

[email protected]=

Re: VBA pronadji parove duplikate 08.08.2012. u 13:29 · pre 173 meseca #5

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

Re: VBA pronadji parove duplikate 08.08.2012. u 22:59 · pre 173 meseca #6

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

Re: VBA pronadji parove duplikate 09.08.2012. u 12:10 · pre 173 meseca #7

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

Forum kao aplikacija na telefonu

Srodne teme