find menüsü oluşturma

[ildizim]

excelde a1 hücresine find kutucuğu koymak istiyorum bu kutuya aranılan bir kelime girilebilmeli enter ya da bir butonla aranan kelime bulunabilmeli.

teşekkürler

 

[Levent Menteşoğlu]

Sn ildizim

Ã?ncelikle aşağıdaki linkleri inceleyiniz. Sonuç alamazsanız o takdirde belirtin gerekli yardımı yapalım.

http://www.excel.web.tr/viewtopic.php?t=1088&highlight=find

http://www.excel.web.tr/viewtopic.php?t=681&highlight=find

http://www.excel.web.tr/viewtopic.php?t=107&highlight=find

 

[ildizim]

ekli liklere ulaşamıyorum teşekürler

 

[BeyazGölge]

Bende bütün linkler çalışıyor...

 

[ildizim]

bende malesef cannot firn server hatası alıyor.

 

[xxrt]

Birde Bu Linki Deneyin

 

[ildizim]

ok bu linki açtım saaolun

 

[ildizim]

YANLIZ BENİM İSTEDÐİM A1 HÜCRESİNE YAZDIÐIMI AKTİF SAYFADA ARAYAN BİÞİ..
YARDIMLARINIZI BEKLİYORUM

 

[Levent Menteşoğlu]

Aşağıdaki kod size verdiğim linkte Sn hamitcan'nın sunduğu ve Sn ALPEN'nin son şeklini verdiği koddur. Üzerinde bir kaç küçük değişiklik yaptım. A1 hücresindeki değeri arar ve bulduğunda o adrese gider. Kodu bir butona bağlayarak çalıştırabilirsiniz.

selamlar

Sub bul()
On Error GoTo hata
Set ara = Sheets("sayfa1").Columns("A:IV").Find(What:=[a1])
Application.Goto Reference:=Range(ara.Address), _
Scroll:=False
Exit Sub
hata:
MsgBox ("yok")
End Sub

 

[ildizim]

ÇOK TEÞEKKÜRLER OLMUÞ FAKAT A1 HÜCRESİNDEN ÇIKMADAN GİRİLEN DEÐERİ ARAMIYOR KULLANICI A1 HÜCRESİNDEN CIKMASADA ÇALIÞMASININ BİR YOLU VARMI? :icelim:

 

[Levent Menteşoğlu]

Bu gayet normal, "A1" hücresine bir değer girdiğinizde bu değerin artık o hücreye ait olması için enter tuşuna basmanız gerekir. Bunu neden istediğinizide açıkçası anlayamadım. Bir açıklama getirirseniz tekrar üzerinde düşünelim.

 

[ildizim]

bendeki excel dosyasını 15 kadar kullanıcı kullanacak a1 alanına değer girip (çıkmadan) mause'la ara butonuna tıkladığında birşey bulamayıca aradığının olmadığını düşünerek hata yapmasını engellemek istiyorum.
Teşekkürler.

 

[Levent Menteşoğlu]

Bu durumda bir userform üzerindeki textboxla bunu yapmak mümkün. Bunun için bir userform oluşturun ve üzerine bir textbox ile command buton yerleştirin. Command butona aşağıdaki kodları bağlayın. Arayacağınız veriyi textbox a girerek buldurabilirsiniz.

Private Sub CommandButton1_Click()
On Error GoTo hata
Set ara = Sheets("sayfa1").Columns("A:IV").Find(What:=TextBox1)
Application.Goto Reference:=Range(ara.Address), _
Scroll:=False
Exit Sub
hata:
MsgBox ("yok")
End Sub

 

[ildizim]

teşekkürler levetm :icelim: :hihoho: :hey: