Tau tiks kažkas tokio
_______________________
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 = 5 To 500
      If Cells(i, 4).Value = R Then
        Cells(i, 7).Activate
        Exit For
      End If
    Next i
  End If
End Sub

-- 
Dekoratyviniai kalvio gaminiai:
Tvoros, turėklai, vartai, balkonai ir t.t.
Metalo konstrukcijų virinimas, deformuotų konstrukcijų lyginimas.
http://picasaweb.google.com/xkalvisx
Trub. 8 (654) 79959 Kaunas,  Audrius