Satir İÇİ Arama Ctrl+f Olayi Butonla Yapmak

[feridunsah]

Slm
DeĞerlİ ArkadaŞlar Ve Board YÖnetİcİlerİ MÜmkÜnse AÇiklayici Bİr Şekİlde Satir İÇİ Arama MenÜsÜ Yapmak İstİyorum Yanİ Butona BastiĞimda B3 İle B74 Satirlari Arasinda Bulunan İsİmlerden Bİrİne UlaŞilabİlmelİ Yanİ AradiĞim KİŞİye
Bu Konuda Bana Yardimci Olandan Da Allah Bİn Kez Yardimcisi Olsun

Şİmdİden TeŞekkÜrler

 

[alpi]

Aşağıdaki kodu kullanın

Sub Bul()
    Dim Metin As String
    Metin = InputBox("Aradığınız metni yazınız...")
    On Error Resume Next
    Range("B3:B74").Find(What:=Metin).Activate
End Sub

 

[Mdemir63]

Aşağıdaki kodu kullanın

Sub Bul()
    Dim Metin As String
    Metin = InputBox("Aradığınız metni yazınız...")
    On Error Resume Next
    Range("B3:B74").Find(What:=Metin).Activate
End Sub

alpi Hocam
bende ComboBox içindeki isim listesinde butonla arama yapmak istiyorum buna benzer bir şey yapılabilirmi?
Saygılar

 

[feridunsah]

Bu Kodu Nasil Yapip Da Gerİ Butona Eklİcez Sana Zahmet Onuda Bİr Tarİf Etsen

 

[alpi]

Örnek dosyalarınızı eklerseniz kodları gerekli şekilde düzenleyebilirim.

 

[feridunsah]

Hocam Dosya Ektedİr

Slm Personel GİrİŞİ B3- B74 Satirlari Arasi

 

[feridunsah]

Fazlami Şey İstİyorum Acaba

Hocam Hakkini Helal Et Senİde Yoracaz Gİbİ Ama BİlmedİĞİmİzden Sana Zahmet GÖndermİŞ OlduĞum Tablo Da Acaba Ayri Bİr Sayfadan MenÜ Yaparak Bİlgİ GİrİŞ Formundakİ Yerlere GİrİŞlerİ Butonlarla Yapabİlİrmİyİz Kayit, DeĞİŞİm. Ad Soyad.tarİh, Vs Gİbİ Yanİ Sayfalara HİÇ Gİrmeden MÜmkÜnse

 

[alpi]

Dosyanız ekte Aranacak metni metin kutusuna yazın ve Bul düğmesini tıklatın.

 

[Mdemir63]

Örnek dosyalarınızı eklerseniz kodları gerekli şekilde düzenleyebilirim.

Hocam Dosya ekte

 

[feridunsah]

Üstad TeŞekkÜrler Yalniz İkİncİ Kez TikladiĞimizda İsmİn Yerİ BoŞaliyor Bunu Nasil Engellerİm

 

[feridunsah]

Satirin İÇİndekİ Yerİ

 

[alpi]

Üstad TeŞekkÜrler Yalniz İkİncİ Kez TikladiĞimizda İsmİn Yerİ BoŞaliyor Bunu Nasil Engellerİm

Satirin İÇİndekİ Yerİ

Ne demek istediğinizi anlayamadım. Düğmeye ikinicc kez tıkladığınızda metin kutusu mu boşalıyor hücre mi? Bem şimdi düğmeye birden fazla kez tıklattım ve ikiside boşalmıyor.

 

[alpi]

Hocam Dosya ekte

Sayın komutan63 AnaSayfadaki Açılır kutuda seçim yapıldığında tam olarak ne olmasını istiyorsunuz?

 

[Mdemir63]

Sayın komutan63 AnaSayfadaki Açılır kutuda seçim yapıldığında tam olarak ne olmasını istiyorsunuz?

Hocam o açılır kutunun içinden isim seçmek istiyorum. oseçtiğim isim gelsin ve o kişinin bilgilerini o sayfadaki yerlere getirsin istiyorum. ComboBox içinden tek tek aramak yerine (çünkü çok isim olacak orada) direk bul butonuyla adını yazdığım kişiye hemen ulaşmak. Bul butonuna bastığımızda Input penceresi gelsin o pencerede isimi giriniz yazan yere çağırdığımız kişişini isimini yazalım okeyleyelim hocam olmaz mı? zaten yapmışsınız Input la ama ben onu ComboBox a uyduramadım. Hemde açılır kutu yerine ComboBox olsun istiyorum.

Saygılar

 

[alpi]

Sayın komutan63 dosyanız ekte.

 

[Mdemir63]

Sayın komutan63 dosyanız ekte.

Hocam gönderdiğiniz dosyada butonnu yanındaki hücreye isim girip çağırdığımzda bilgiler geliyor ama ComboBox içindeki isim değişmiyor halbuki çağırdığımız isim hem combobox içinde görünmeli aynı zamanda bilgileride gelmeli artı Combobox içinden isim seçtiğimizde yaptığınız buton kayboluyor ve Debug penceresi geliyor

saygılar

 

[alpi]

Dosyayı yeniledim.

 

[Mdemir63]

Dosyayı yeniledim.

Hocam sadece bir eksik kalmış oda bul düğmesinden değilde Combobox içinden seçim yaptığımızda çalışmıyor.

Saygılar

 

[alpi]

Sayfa adını sağ tıklatarak kod görüntüle'yi seçin. Aşağıdaki kodu açılan kod editörüne yazın

Private Sub ComboBox1_Change()
    Bul ComboBox1.Text
End Sub

 

[Mdemir63]

Sayfa adını sağ tıklatarak kod görüntüle'yi seçin. Aşağıdaki kodu açılan kod editörüne yazın

Private Sub ComboBox1_Change()
    Bul ComboBox1.Text
End Sub

Hocam emeğine yüreğine sağlık, hakkını helal et

saygılar