Arama Kutusu

[miray85]

Merhaba;
oluşturmuş olduğum bir excel sayfası var. Kendi içinde bilgileri birbirinden bağımsız 7 8 sayfadan oluşuyor. Ekteki sayfa haricindeki tüm sayfaları halledebildim fakat bu sayfada biraz sorunum var.
Şöyleki sayfanın orjinalinde isimler, bu isimlere ait borçlar vb gibi bilgiler var. İsimler cari kodlarına göre sıralanmış halde.
Benim yapmak istediğim fakat yapamadığım bir arama kutusu oluşturmak. Mesela arama kutusuna A harfi yazıldığında A harfi ile başlayan isimleri ve onlara ait bilgileri bulması. Bu kısmı pek mümkün mü bilmiyorum ama mesela A harfinin yanına ikinci bir harf girdiğinde ilk iki harfi aynı olan isimleri bulması.
Forumda vb ile ilgili oluşturulduğunu okudum yaklaşık abartısız 4 saattir verilen örneklere göre denemeye çalışıyorum fakat ne bir şey anlayabildim ne de bir şey yapabildim.
Mevzubahis sayfa sürekli güncellenebilir olacağı için ve içindeki sayfa sayısı zaten fazla olduğu için ekstradan sayfalar ya da o sayfaların gizlenmesi pek işime gelmiyor ne yazık ki
Dosyayı ekliyorum şimdiden vaktinizi aldığım için özür dilerim.

 

[BG]

Sayın miray85

örnek dosyayı inceleyiniz.

 

[halit3]

Birde bu koda bakarmısınız.?

Private Sub TextBox1_Change()
Dim i As Integer
Dim j As Integer
Dim s As String
j = Len(TextBox1.Value)
For i = 5 To WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range("B5:B65000")) + 4
s = Mid(Sheets(ActiveSheet.Name).Range("B" & i), 1, j)
If TextBox1.Text <> "" Then
If s = TextBox1.Text Then
Selection.AutoFilter Field:=2, Criteria1:=TextBox1.Text & "*"
End If
End If
Next
If TextBox1.Text = "" Then
Selection.AutoFilter Field:=2
End If
End Sub

 

[miray85]

@Gökhan Polat çok teşekkür ederim bu gerçekten de istediğim şekliyleydi.
*
@halit3 verdiğiniz kodu nereye nasıl yapıştırmam gerektiğini bilmiyorum :$

 

[halit3]

dosyayla birlikte gönderiyorum

 

[miray85]

halit3 gerçekten de çok teşekkür ederim. Elinize emeğinize bilginize sağlık.

 

[esdel]

Merhabalar,

Aradığım şey tam olarak bu ve yanında ek olarak metinlerin arandığı gibi numaralarında aranmasını istediğimde ne yapmalıyım hatta hazırlayabilirmisiniz ?

 

[halit3]

Merhabalar,

Aradığım şey tam olarak bu ve yanında ek olarak metinlerin arandığı gibi numaralarında aranmasını istediğimde ne yapmalıyım hatta hazırlayabilirmisiniz ?

Aşağıdaki linkdeki dosyayaı inceleyin

örnek olarak sayfa1 e gelin ve kontrol menülerinden nesneleri ekle seçeneğini seçin ve sonrada reset seçeneğini seçin

http://www.excel.web.tr/f128/listview-de-50-sutun-suzme-t78427.html

 

[metude]

Bunu bir listbox içinde uygulayabilir miyiz?

http://www.excel.web.tr/attachment.php?attachmentid=128400&stc=1&d=1331679321

 

[halit3]

Bunu bir listbox içinde uygulayabilir miyiz?

http://www.excel.web.tr/attachment.php?attachmentid=128400&stc=1&d=1331679321

Dosyanıza bir adet text ve listbox nesnesi ekledim Ana sayfada A4 hücresindeki sutün adına göre bilgi sayfasından süzme yapmaktadır.

 

[metude]

Dosyanıza bir adet text ve listbox nesnesi ekledim Ana sayfada A4 hücresindeki sutün adına göre bilgi sayfasından süzme yapmaktadır.

Çok teşekkür ederim, elinize sağlık. Tam olarak istediğim şey bu idi,

 

[halit3]

Çok teşekkür ederim, elinize sağlık. Tam olarak istediğim şey bu idi,

İyi çalışmalar

 

[mcetinkaya65]

bul

Sayın halit hocam;
1,Yukardaki kodları bir türlü kendi proğramıma uygulayamadım.Ana sayfanın b stununa yukardaki formatta ekleyebilirmiyiz.
2,Birde formdan bulduğum makrolarla sayfa koruması yaptım ama her hücre değişiminde sayafa korumaya geçiyor.Bunu sayfa değişiminde korunur hale getirebilirmiyiz.
Bu makrolarda nasıl bir değişiklik yapmalıyım.
Sub ŞifreAç()
For Each Sayfa In Worksheets
Sayfa.Unprotect 1
Next Sayfa

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ActiveSheet.Unprotect
Range("A1").Value = ActiveSheet.Name
ActiveSheet.Protect
End Sub
Saygılarımla..

 

[metude]

@halit3 sütunu C yapıp TCkimlik nolarına göre aratma yapmak istedim. Elimde 2000'den fazla tc var ancak bunların sadece bir kısmını (saymadım ama 100 kadarını) alıyor. Listeyi nasıl genişletebilirim.

 

[halit3]

@halit3 sütunu C yapıp TCkimlik nolarına göre aratma yapmak istedim. Elimde 2000'den fazla tc var ancak bunların sadece bir kısmını (saymadım ama 100 kadarını) alıyor. Listeyi nasıl genişletebilirim.

Kodun bu kısmını

For i = 3 To Worksheets("Bilgi_sayfası").[[COLOR=red][B]a[/B][/COLOR]65536].End(3).Row

bununla değiştirin

For i = 3 To Worksheets("Bilgi_sayfası").[[COLOR=red][B]c[/B][/COLOR]65536].End(3).Row

 

[halit3]

Sayın halit hocam;
Yukardaki kodları bir türlü kendi proğramıma uygulayamadım.Ana sayfanın b stununa yukardaki formatta ekleyebilirmiyiz.
Birde formdan bulduğum makrolarla sayfa koruması yaptım ama her hücre değişiminde sayafa korumaya geçiyor.Bunu sayfa değişiminde korunur hale getirebilirmiyiz.
Bu makrolarda nasıl bir değişiklik yapmalıyım.
Sub ŞifreAç()
For Each Sayfa In Worksheets
Sayfa.Unprotect 1
Next Sayfa

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ActiveSheet.Unprotect
Range("A1").Value = ActiveSheet.Name
ActiveSheet.Protect
End Sub
Saygılarımla..

Sizin sorunuz bu konunun başlığına uymuyor konu bütünlüğü bozulmaması için yeni bir konu açarak başka bir başlık altında sorunuzu sorun

 

[halit3]

@halit3 sütunu C yapıp TCkimlik nolarına göre aratma yapmak istedim. Elimde 2000'den fazla tc var ancak bunların sadece bir kısmını (saymadım ama 100 kadarını) alıyor. Listeyi nasıl genişletebilirim.

Bu dosyayada seçenek düğmesi ekledim hem ilk kelimeye göre arama yapıyor hemde içerir kelimeleride arıyor.

 

[mcetinkaya65]

Sayın halit3 hocam;
13 nolu mesajda sorumun birinci bölümü 5 nolu mesajdaki örneğe çok yakın.Bir türlü uygulayamadım.Dediğiniz gibi sayfa koruma ile ilgili bölümü başka başlık altında sormamız gerekiyor. Saygılarımla..

 

[metude]

@halit3 Tekrar teşekkürler. Böyle daha iyi oldu.

 

[halit3]

Sayın halit3 hocam;
13 nolu mesajda sorumun birinci bölümü 5 nolu mesajdaki örneğe çok yakın.Bir türlü uygulayamadım.Dediğiniz gibi sayfa koruma ile ilgili bölümü başka başlık altında sormamız gerekiyor. Saygılarımla..

13 nolu mesajdaki dosyanızı .xls uzantılı olarak ekleyin.

Diğer taraftan hangi sayfanın neresinde listeleme yapacaksanız o sayfaya 1 adet listbox, 1 adet textbox nesneleri ekleyin