Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 13 Then Exit Sub
Dim rngFound As Range
With Worksheets("Respons.").Columns(3) 'Guarda in quale colonna cercare
Set rngFound = .Find(Target(1, -1).Value, LookIn:=xlValues, LookAt:=xlWhole, After:=.Cells(1), Searchdirection:=xlNext)
If Not rngFound Is Nothing Then
Application.Goto rngFound(1, Target.Value + 1)
Else
MsgBox "There were not matches found for " & Target(1, -1).Value
End If
End With
Cancel = True
End Sub |