..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

iskanje in primerjanje excel in VBA

Pomoč pri izdelavi makrov

iskanje in primerjanje excel in VBA

OdgovorNapisal/-a js » Ne feb 15, 2009 10:39 pm

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! :)
js
 
Prispevkov: 2
Pridružen: Ne feb 15, 2009 10:24 pm



Matjazev.NET
 

OdgovorNapisal/-a admin » Po feb 16, 2009 1:47 pm

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
admin
Site Admin
 
Prispevkov: 3526
Pridružen: Sr jul 20, 2005 10:06 pm

OdgovorNapisal/-a js » Po feb 16, 2009 9:28 pm

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
js
 
Prispevkov: 2
Pridružen: Ne feb 15, 2009 10:24 pm


Vrni se na VBA

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 1 gost

cron