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!
iskanje in primerjanje excel in VBA
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.
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')
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
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator