harfe göre arama yapmak

[mrtergi66]

excel sayfasında rapor bölümünde bulunan yere a yazınca a ile ilgili kaç kişi varsa çıkmasını istiyorum..

yada ali yazınca ali ile ilgili kişilerin aşagıya dogru çıkmasını istiyorum..

 

[mrtergi66]

harfe göre arama

user form üzerinden aktif arama yapmam gerekiyor. yani Herhangi bir harfe bastığım zaman Veri Sayfasındaki bilgileri süzüp seçimime sunmasını istıyorum..

basit telefon rehberi exceli gibi arama yapmak istiyorum.

eklentideki excelde bulunan arama sayfasının üstünde arama bölümüne

a yazdıgımda personel sayfasında bulunan a içerikli kelimelerin seçilmesini istiyorum

a yazdık

ali altay
ali ay
ahmet erdal
akın malatyalı

yada ali yazdık

ali altay
ali ay
ali sayın
ali malik
ali dümen
ali bilmem ne

gibi arama yapmak istiyorum.

ve

TARİH ŞANTİYE PERSONEL GÖREVİ
gibi secenekler var excelde bunların hepsınde arama yapmak istiyorum telefon rehberi gibi yardımcı olurmusunuz.

 

[antonio]

Belirttiğiniz şekilde hızlı sonuç almak için excel hücresine yazmak yerine, excel hücresine yerleştirilmiş bir textboxa yazmak ve "Textbox_Change" olayı içine arama kodlarını yazmak gerekir diye düşünüyorum. Bunun sebebi; textbox change olayı bir harf yazılır yazılmaz gerçekleşirken, hücrelerin change olayı ancak yazma işlemi sonrası enter veya tab tuşuna tıklayınca gerçekleşir.

 

[ADER_34]

Merhaba ben bu kodları kullanıyorum sizde çalışma sayfanıza texbox kutusu ekleyip bu kodları kullanabilirsiniz kolay gelsin

Private Sub TextBox1_Change()
Dim METİN1 As String, FC2 As Range
On Error Resume Next
METİN1 = TextBox1.Value
Set FC2 = Range("A2:E65000").Find(What:=METİN1)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=4, Criteria1:="*" & TextBox1.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=4
End If

End Sub

 

[mrtergi66]

merhaba ben bu kodları kullanıyorum sizde çalışma sayfanıza texbox kutusu ekleyip bu kodları kullanabilirsiniz kolay gelsin

private sub textbox1_change()
dim metin1 as string, fc2 as range
on error resume next
metin1 = textbox1.value
set fc2 = range("a2:e65000").find(what:=metin1)
application.goto reference:=range(fc2.address), _
scroll:=false
selection.autofilter field:=4, criteria1:="*" & textbox1.value & "*"
ıf metin1 = "" then
selection.autofilter field:=4
end ıf

end sub

denedim ama olamadı

 

[antonio]

Örnek dosyanız ektedir.

 

[mrtergi66]

antonio ellerine saglık ..
fakat yardım istediğim konu bu degildi.
sorunum su textboxu koydugunuz yerlerde arama yapıp personeli seçmem lazım
alt kısımda bilgi çıkması önemli degil yani excelde veri dogrulama deyip liste seçip aşagı açılır pencere yapıyoruz ya...
ben bu açılır pencere yerine personel sayfasından verileri çekmek suretiyle
yazdıgım zaman direk açılır buton seklinde personel seçmemdi.

 

[mrtergi66]

harfe göre arama

Güncell
konuu