arama butonu ARA-BUL

[nongeyikm]

selam arkadaşlar

çalışma kitabı (sayfası değil) içerisinde arama butonu kullanarak arama yapmak istiyorum (aranacak kelime diye sormalı)
yardımcı olursanız sevinirim.


teşekkürler

 

[Orion1]

Ekli dosyayı inceleyiniz.
HEPSİ seçeneği eklendi.

 

[cry_of_dark]

teşekkür ederim benimde işime yarar

 

[tatar_ramazan48]

Ekli dosyayı inceleyiniz.

tşkler bilgi paylaşımı için

 

[Orion1]

teşekkür ederim benimde işime yarar

tşkler bilgi paylaşımı için

Rica ederim.
iyi çalışmalar.

 

[Orion1]

HEPSİ seçeneğide eklendi.
Şimdi bütün sayfalardada arama yapabilirsiniz.
Dosyayı 2 nolu mesajdan indirebilirsiniz.

 

[W3RT85]

Evren Bey, çalışmanız harika ağzım açık kaldı. Sizden rica etsem benim için üstünde bir customization yapar mısınız ? ihtiyacım şu şekilde ;
userform açıldığında comboboxa dosyadaki tüm sayfalar doluyor ama ben mesela bunu "firmalar" die bi sayfaya koydum. userformu "firmalar" sayfasında açınca comboboxta birtek "firmalar" kalsın yani bir tek onun için kalsın.. Bunun iki 5-10 sayfayı özelleştirmem gerekiyor. İlgilenirseniz çok memnun kalırım. Müdür başımda cellat gibi bekliyor da..

 

[NBATMAN]

Boxlar ve butonlar için mousemove açıklama

EVREN BEY BU çalışmanızdaki ara-bul butonun üzerine gelindiğinde " EVREN " yazısı çıkıyor butondan uzaklaştığınızda kayboluyor bu uygulamayı ben Excel üzerinde buton , düğme ,textbox ,combobox v.s için uygulamayı istiyorum fakat formda bir kaç örnek buldum bir türlü kendi çalışmama uygulayamadım bu konuda bana bir örnek dosya veya çalışma gönderirseniz sevinirim.Saygılarımla şimdiden ilginize teşekkürler...

 

[karaakb]

yahu bunu daha kolay bi yolu yokmu

 

[metincevik]

Süper ellerinize saglik

 

[Erdal]

Merhabalar
Evren Bey uygulamanızdaki "EVREN" yazısını nasıl yazdırdığınızı lütfen açıklayabilirmisiniz. İlgi ve alakanız için şimdiden teşekkürler.

 

[Orion1]

Merhabalar
Evren Bey uygulamanızdaki "EVREN" yazısını nasıl yazdırdığınızı lütfen açıklayabilirmisiniz. İlgi ve alakanız için şimdiden teşekkürler.

Nesneye sağ tıklayınız.
Properties tıklayınız.
MosePointer den 99 'u seçiniz.
Mouse icondan da istediğiniz bir iconU seçiniz işlem tamamdır.
Ben bu iconu daha önceden bir iconEdit programı ile hazırlamıştım .Ve onu kullandım.
İcon edit programınız varsa sizde değişik iconlar hazırlayabilirsiniz.

 

[Erdal]

Teşekkür ederim Evren bey.

 

[Orion1]

Bu eklediğim dosyada ise listbox'ta listelene sayfalardan çoklu seçim yapıp seçtiğiniz sayfalardaki armaları yapabiliyorsunuz.

 

[xxozixx]

Bir Hücrenin İçerisindeki Cümlede bulunan Kelimeyi bulamadı.

Ekli dosyayı inceleyiniz.
HEPSİ seçeneği eklendi.

Merhabalar sizden bir ricam olacak bu bu olayı çok güzel olmuş, ancak Bir Hücrenin İçerisindeki oluşan cümlenin içerisindeki kelimeyi arattım ancak bulunamadı şeklinde mesaj vermektedir.

Bunu düzeltme şansımız varmı?

(Büyük, Küçük ve Herikiside bir kelime içinde olacak şekilde arama yapabilirse çok güzel olur.)

 

[Orion1]

Dosya ekte.

 

[xxozixx]

Çok TeŞekkÜr Ederİm..

Senden Bİr Rİcam Daha Olacak Ben Aranacak Sayfalari Tek Tek Ben SeÇmeyİm Arabul 2 Dekİ Gİbİ TÜmÜndeyİ SeÇİp Hepsİnde Bİr Defada Arama Yapabİlİrmİsİn

 

[Orion1]

Çok TeŞekkÜr Ederİm..

Senden Bİr Rİcam Daha Olacak Ben Aranacak Sayfalari Tek Tek Ben SeÇmeyİm Arabul 2 Dekİ Gİbİ TÜmÜndeyİ SeÇİp Hepsİnde Bİr Defada Arama Yapabİlİrmİsİn

2 tane OptionButton ekledim isterseniz hepsini seçebilir veya seçimi kaldırabilirsiniz.
Dosya Ekte:

 

[xxozixx]

Eline sağlık çok teşekkür ederim.

 

[sadikturan]

slm

bu kod işinize yarar inşallah bu konu hakkında öncede bilgiler var
maksat ek bilgi olsun

UserForma Bir TextBox1 ve CommandButton1 ekliyerek aşağıdaki kodları CommandButtonu clikliyerek açacağınız kod sayfasına yazın.

Private Sub CommandButton1_Click()
Dim i As Byte
If Len(TextBox1) > 0 Then
For i = 1 To Worksheets.Count
Call Myxxrt(Worksheets(i).Name)
Next
End If
End Sub

Private Function Myxxrt(ShName As String)
Dim MyRng As Range
On Error Resume Next
Set MyRng = Range(Sheets(ShName).Cells.Find(TextBox1, LookAt:=xlWhole).Address)
MsgBox "Aranılan değer " & ShName & " sayfasında " & MyRng.Address(False, False) & " hücresinde bulundu !"
Set MyRng = Nothing
End Function