Hücre değerini Sutunda bularak aktif hale getirme

[excellkurdu]

Arkadaşlar H1 hücresine yazdığım kelimeyi enterladığımız anda A5 ile A24 aralığında bularak o hücreyi aktif hale nasıl getirebiliriz.
Saygılarımla

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Sub bul()
If [a5:a24].Find([h2]) Is Nothing Then
MsgBox "Aranan Değer Bulunmadı"
Else
[a5:a24].Find([h2]).Select
End If
End Sub

 

[excellkurdu]

Çok teşekkür ederim hocam.

 

[excellkurdu]

Bu şekilde deneyiniz.

Sub bul()
If [a5:a24].Find([h2]) Is Nothing Then
MsgBox "Aranan Değer Bulunmadı"
Else
[a5:a24].Find([h2]).Select
End If
End Sub

Hocam Aynı kodu Private Sub a uygulayabilir miyiz? Yani hicre değişince otomatik seçsin

 

[Seyit Tiken]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If [a5:a24].Find([h2]) Is Nothing Then
MsgBox "Aranan Değer Bulunmadı"
Else
[a5:a24].Find([h2]).Select
End If
End Sub

 

[excellkurdu]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If [a5:a24].Find([h2]) Is Nothing Then
MsgBox "Aranan Değer Bulunmadı"
Else
[a5:a24].Find([h2]).Select
End If
End Sub

Kod çalıştı ama H2 dışına tıklayınca da çalışıyor. Bunu engelleyemezmiyiz. Sadece H2 de çalışsa çok güzel olacak

 

[YUSUF44]

İkinci satır olarak )yani If satırından önce) aşağıdaki satırı ekleyin:

If Intersect(Target, [H2]) Is Nothing Then Exit Sub