Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

VBA pronadji parove duplikate

[es] :: Office :: Excel :: VBA pronadji parove duplikate

[ Pregleda: 1891 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Blue82
dipl. ecc.

Član broj: 165981
Poruke: 838
*.adsl-a-11.sezampro.rs.



+322 Profil

icon VBA pronadji parove duplikate06.08.2012. u 18:57 - pre 142 meseci
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".
 
Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 850

Sajt: https://www.zile028.com


+49 Profil

icon Re: VBA pronadji parove duplikate07.08.2012. u 06:02 - pre 142 meseci
Evo mozda ce ovaj primer koristiti
Prikačeni fajlovi
 
Odgovor na temu

Blue82
dipl. ecc.

Član broj: 165981
Poruke: 838
*.adsl-a-2.sezampro.rs.



+322 Profil

icon Re: VBA pronadji parove duplikate07.08.2012. u 16:14 - pre 142 meseci
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!
 
Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 850

Sajt: https://www.zile028.com


+49 Profil

icon Re: VBA pronadji parove duplikate07.08.2012. u 20:34 - pre 142 meseci
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

 
Odgovor na temu

Blue82
dipl. ecc.

Član broj: 165981
Poruke: 838
*.static.isp.telekom.rs.



+322 Profil

icon Re: VBA pronadji parove duplikate08.08.2012. u 12:29 - pre 142 meseci
Uspeo sam to sa bojom da rešim, doduše malo drugačijom kombinacijom koda ali ok je, radi.

 
Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
*.3gnet.mts.telekom.rs.



+9 Profil

icon Re: VBA pronadji parove duplikate08.08.2012. u 21:59 - pre 142 meseci
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
 
Odgovor na temu

Blue82
dipl. ecc.

Član broj: 165981
Poruke: 838
*.static.isp.telekom.rs.



+322 Profil

icon Re: VBA pronadji parove duplikate09.08.2012. u 11:10 - pre 142 meseci
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

 
Odgovor na temu

[es] :: Office :: Excel :: VBA pronadji parove duplikate

[ Pregleda: 1891 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.