Aciu - tiko puikiai.
"Audrius" <xkalvisx(skliaustelius_ištrinti)@takas.lt> wrote in message 
news:gl2pnt$mba$1@trimpas.omnitel.net...
Pasikoreguok langelių vietas ir įrašyk į lapą o ne į modulį.

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim R, i
  If Target.Row = 2 And Target.Column = 11 Then
    R = Target.Value
    For i = 3 To 1503
      If Cells(i, 4).Value = R Then
        Cells(i, 7).Activate
        Exit For
      End If
    Next i
  End If
End Sub

> gal kam teko daryti, kad surastu  reiksme stulpelyje.Reiksme - tai
> astuonzenklis skaicius pvz.: 25810345. Tu reiksmiu stulpelyje apie 
> 1500.Per
> find netinka, reikia greitesnio budo, tipo  i langeli irasomas 
> "paieskomas"
> skaicius, spaudziam enter ar koki "buton" ir "active cell" atsiranda ties
> ieskoma reiksme.
> Aciu uz mintis....
>
>