Hücre değerini Sutunda bularak aktif hale getirme

excellkurdu

Altın Üye
Katılım
16 Nisan 2008
Mesajlar
313
Excel Vers. ve Dili
Türkçe Microsoft Office Excel 2007
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
 

Ekli dosyalar

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Bu şekilde deneyiniz.
Kod:
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
 
Son düzenleme:

excellkurdu

Altın Üye
Katılım
16 Nisan 2008
Mesajlar
313
Excel Vers. ve Dili
Türkçe Microsoft Office Excel 2007
Çok teşekkür ederim hocam.
 

excellkurdu

Altın Üye
Katılım
16 Nisan 2008
Mesajlar
313
Excel Vers. ve Dili
Türkçe Microsoft Office Excel 2007
Bu şekilde deneyiniz.
Kod:
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

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Deneyiniz.
Kod:
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

Altın Üye
Katılım
16 Nisan 2008
Mesajlar
313
Excel Vers. ve Dili
Türkçe Microsoft Office Excel 2007
Deneyiniz.
Kod:
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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
İ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
 
Üst