[es] - lociranje vrednosti aktivacijom komande

superr
Pančevo

Član broj: 129200
Poruke: 26
*.adsl-a-1.sezampro.rs.

+3 Profil

lociranje vrednosti aktivacijom komande

^{16.03.2011. u 19:35 - pre 159 meseci}

Kako promeniti kod da se lociranje vrši preko celog workbooka
trenutno radi samo u active sheet

Sub Lociranje()
Cells.Find(What:=Range("VrednostZaLociranje").Value, _
After:=ActiveCell, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False).Activate
End Sub

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
194.106.170.*

Sajt: www.gowi.rs

+109 Profil

Re: lociranje vrednosti aktivacijom komande

^{17.03.2011. u 12:32 - pre 159 meseci}

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?

Odgovor na temu