eldeki bir kodu makroya uyarlama,çevirme

[yağız22]

aşağıdaki kodu herhangi bir kısayol ekleyerek makroya nasıl çevirebilirim


Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range
If Intersect(Target, [U3]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Value = "" Then Exit Sub
Set k = Range("S5:S30").Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then k.Select

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Value = "" Then Exit Sub
    Set k = Range("S5:S30").Find(Target.Value, , xlValues, xlWhole)
    If Not k Is Nothing Then k.Select
End Sub