Potrebna ti je jedna petlja po svim radnim listovima. I kako je potrebno selektovati celiju na (potencijalno) neaktivnom radnom listu mora prvo da se aktivira radni list.
Code:
Sub Lociranje()
' Pozicionira se na prvo pojavljivanje texta u celiji VrednostZaLociranje
' Pretrazuje se cela radna sveska
'
Dim sh As Worksheet
Dim Rng As Range
For Each sh In ActiveWorkbook.Worksheets ' Petlja za sve listove
Set Rng = sh.Cells.Find(What:=Range("VrednostZaLociranje").Text, _
After:=ActiveCell, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not Rng Is Nothing Then
' Preskace celiju po kojoj se pretrazuje
If Rng.Worksheet.Name <> Range("VrednostZaLociranje").Worksheet.Name Or _
Rng.Address <> Range("VrednostZaLociranje").Address Then GoTo Kraj
End If
Next sh
Kraj: ' Aktiviranje pronadjene celije
Rng.Worksheet.Activate
Rng.Select
End Sub
Ima puno primera na netu vezano za find. Npr.
ovde mozes naći rutinu koja označava bojom sve pronađene vrednosti u celoj radnoj svesci.
[Ovu poruku je menjao Jpeca dana 17.03.2011. u 13:42 GMT+1]
Nije to loše Rembrante, samo što ne bi dodao još malo boje?