iskanje in primerjanje excel in VBA

Pomoč pri izdelavi makrov
Odgovori
js
Prispevkov: 2
Pridružen: Ne Feb 15, 2009 10:24 pm

iskanje in primerjanje excel in VBA

Odgovor Napisal/-a js »

Rabil bi nekaj podobnega:

Sheet1:
-makro naj bi se "pomikal" od kurzorja navzdol po stolpcu do prve prazne celice
-pogledal bi trenuno celico na trenutni poziciji in poiskal v Sheet2
v določenem stolpcu, če kje obstaja ravno enak string
-če obstaja bi ga pobarval zeleno (npr.)
(če slučajno obstaja več celic z isto vsebino naj bi nekako to označil?!)

zaenkrat toliko......če ni pretrd preh! :)
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Pozdravljeni, spodaj imate makro, ki vam bi izvedel natanko tisto, kar ste zapisali. V makru morate ustrezno popraviti samo ime drugega lista in stolpec na drugem listu, kjer se podatki nahajajo.

Koda: Izberi vse

' www.matjazev.net
' februar 2008
Sub IsciEnake()
  Dim ImeDrugegaLista As String
  Dim StolpecVDrugemListu As String
  
  ImeDrugegaLista = "List2"  ' <---- TO USTREZNO POPRAVITE!!!
  StolpecVDrugemListu = "C"  ' <---- TO USTREZNO POPRAVITE!!!
  
  Dim list1 As Worksheet, list2 As Worksheet
  Set list1 = ActiveSheet
  Set list2 = Sheets(ImeDrugegaLista)
  
  Dim vrstica1 As Long, vrstica2 As Long, konecNaDrugemListu As Long
  konecNaDrugemListu = list2.Range(StolpecVDrugemListu & "65536").End(xlUp).Row
  vrstica1 = ActiveCell.Row
  
  While (Not IsEmpty(list1.Cells(vrstica1, ActiveCell.Column)))
    Dim vsebina As String
    vsebina = list1.Cells(vrstica1, ActiveCell.Column)
    For vrstica2 = 1 To konecNaDrugemListu
      If (list2.Range(StolpecVDrugemListu & CStr(vrstica2)) = vsebina) Then
        list2.Range(StolpecVDrugemListu & CStr(vrstica2)).Interior.ColorIndex = 4
      End If
    Next
    
    vrstica1 = vrstica1 + 1
  Wend
End Sub
Ob tem pa vas opozarjam, da namen tega foruma ni pisanje zastonjskih makrov po vašem naročilu temveč pomoč pri pisanju makrov! Za potrebe pisanja mkrov po naročilu poglejte link zgoraj ('Izdelava makrov po naročilu')
lp,
Matjaž Prtenjak
Administrator
js
Prispevkov: 2
Pridružen: Ne Feb 15, 2009 10:24 pm

Odgovor Napisal/-a js »

Pozdravljeni

Tole bom čimprej preizkusil v mojem primeru in čisto možno je da bom še kaj potreboval! Se obrnem na vas tokrat tudi z kakšnim poplačilom!
Verjamem, da ste vložili v to znanje veliko truda....
HVALA zaenkrat!


LP
J
Odgovori