Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 4 Then
Dim R As Long
On Error Resume Next
R = WorksheetFunction.Match(ActiveCell, Worksheets("Hárok2").Range("D1:D10"), 0)
If Err = 0 Then Cells(2, 6) = R Else Cells(2, 6) = CVErr(xlErrNA)
End If
End Sub
V liste "Hárok2" sú v D1:D10 hodnoty, ktoré prehľadáva. Táto adresa sa dá zmeniť v makre alebo zameniť za definovaný názov. podľa toho ako ju chcete meniť.
EDIT: Alebo označiť bunku, a nie len nájsť bunku ? Označiť bunku v neaktívnom liste snáď ani nejde. Neviem, potom asi takto.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 4 Then
Dim R As Long
On Error Resume Next
R = WorksheetFunction.Match(ActiveCell, Worksheets("Hárok2").Range("D1:D10"), 0)
Application.ScreenUpdating = False
If Err = 0 Then Application.Goto Worksheets("Hárok2").Range("D1:D10").Cells(R) Else Application.Goto Worksheets("Hárok2").Range("A1")
Application.Goto Target
Application.ScreenUpdating = True
End If
End Subcitovat