arama

[karakayalı]

ListBox her hangi bir harf yazdığımda, yazmış olduğum o harfe göre sutundaki değerleri sıralamasını istiyorum...(listbox a "b" harfi girmişsem b ile başlayanları getirmesini istiyorum.) dosya ektedir kolay gelsin...

 

[BG]

Sayın karakayalı

ListBox her hangi bir harf yazdığımda, yazmış olduğum o harfe göre sutundaki değerleri sıralamasını istiyorum...(listbox a "b" harfi girmişsem b ile başlayanları getirmesini istiyorum.) dosya ektedir kolay gelsin...

Dosyanız ektedir.


Not: A sütununda istenilen sonuç alınamamıştır. Değerli arkadaşlar bu alanda bir çok deneme yapmama rağmen sonuç alamadım, A sütunu için bir çözüm üretebilirseniz hem sayın karakayalı'nın problemini çözmüş, hemde nerede hata yaptığımı görmem açısından benide bilgilendirmiş olursunuz, yardımlarınız için teşekkür eder, iyi çalışmalar dilerim.

 

[karakayalı]

Sayin Braİn Aramayi BaŞ Harfİne GÖre Yapabİlİrmİyİz...ÖrneĞİn Ben E YazdiĞimda CÜmle İÇerİsİnde E Harfİ GeÇenlerİn Hepsİnİ Getİrİyor...ben İstİyorum Kİ Sadece Bana BaŞ Harfİ "e" İle BaŞlayanlari Getİrsİn...yardimlariniz İÇİn TeŞk.ler...

 

[meslan]

Sn.Karakayalı bu konuda formda örnekler var. Textboxla süz olarak arama yaparsanız bulabilirsiniz. Alterntif bir örnek ekliyorum. kolay gelsin.
Not: ilk 2 textbox'a kod uygulanmıştır.

 

[BG]

Sayın meslan

verdiğiniz örnekteki kodlar oldukça güzel çalışıyor, emeğiniz için teşekkür eder, iyi çalışmalar dilerim.

 

[karakayalı]

Sayın meslan, emeğiniz için teşekkürler...çok güzel olmuş, ancak küçük harfle yazılanları bulmuyor...birde baş harfine göre arama yaptırmak istiyorum demiştim ancak o işimi görmedi...cümlenin her hangi bir yerinde geçen cümleye göre arama yaptırabilirmiyiz...gerçi sayın brain yazdığında kodda bu işimi görüyor ancak orada da;
Private Sub CommandButton1_Click()
Range("e1").Activate
Dim alan, satırsayısı, sonsatır
Set alan = Cells(1, 1).CurrentRegion
satırsayısı = alan.Rows.Count
sonsatır = satırsayısı + 1
Cells(sonsatır, 1).Select
End Sub
kodunu çalıştıramadım...yardımlarınız için şimdiden tşk.ler...

 

[meslan]

merhaba,
Private Sub TextBox2_Change()
Application.ScreenUpdating = False
x = WorksheetFunction.CountA([b:b]) + 3
Rows("2:" & x).EntireRow.Hidden = False
a = Len(TextBox2.Value)
For i = 2 To [b65536].End(3).Row
If UCase(TextBox2.Value) <> Left(Cells(i, 2), a) And LCase(TextBox2.Value) <> Left(Cells(i, 2), a) Then
Rows(i).Hidden = True
End If
Next
If TextBox2.Value = "" Then Rows("2:" & x).EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub
deneyiniz. Kolay gelsin.

 

[halit3]

Private Sub TextBox1_Change()
sat&#305;r = WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range("A2:A65536")) + 1
a = Len(TextBox1.Value)
For i = 2 To sat&#305;r
b = Mid(Cells(i, 1), 1, a)
If Cells(i, 1) <> "" Then
If TextBox1.Text = b Then
Rows(i).Hidden = False
Else
Rows(i).Hidden = True
End If
End If
Next

End Sub

Birde b&#246;yle bir&#351;ey deneyiniz

 

[karakayalı]

say&#305;n halit3 kod &#231;al&#305;&#351;mad&#305;...kolay gelsin...

 

[karakayalı]

SAYIN MESLAN, k&#252;&#231;&#252;k b&#252;y&#252;k harf &#351;eklinde sorgulama yapabiliyorum...c&#252;mlenin her hangi bir yerinde ge&#231;en kelimeye g&#246;rede arama yapt&#305;rabilirmiyiz... &#246;rne&#287;in mehmet kas&#305;m y&#305;ld&#305;z ismini "y&#305;ld&#305;z" olarak yazd&#305;&#287;&#305;mda versin...kolay gelsin...

 

[meslan]

SAYIN MESLAN, küçük büyük harf şeklinde sorgulama yapabiliyorum...cümlenin her hangi bir yerinde geçen kelimeye görede arama yaptırabilirmiyiz... örneğin mehmet kasım yıldız ismini "yıldız" olarak yazdığımda versin...kolay gelsin...

Sn.karakayalı istediğiniz özelliği textbox3'e ekldim. Diğerlerinde gerkli düzenlemeliri isteğinize göre siz yaprsınız. Kolay gelsin.

 

[karakayalı]

SAYIN MESLAN, elinize sa&#287;l&#305;k...&#231;ok g&#252;zel ancak benim bu tabloda yakla&#351;&#305;k 10.000 kadar verilerim var...kodlardan kaynakl&#305;m&#305;d&#305;r bilmiyorum...&#231;ok a&#287;&#305;r &#231;al&#305;&#351;&#305;yor..bazen kilitleniyor...yinede yard&#305;mlar&#305;n&#305;z i&#231;in t&#351;k.ler..

 

[halit3]

Private Sub TextBox4_Change()
sat&#305;r = WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range("D265536")) + 1 'sutun numaras&#305; alfabetik buraya yaz&#305;lacak
sutun = 4 'sutun numaras&#305; say&#305;sal buraya yaz&#305;lacak
nesne = TextBox4.Value 'TextBox ad&#305; yaz&#305;l&#305;cak
a = Len(nesne)
For i = 2 To sat&#305;r
b = Mid(Cells(i, sutun), 1, a)
If Cells(i, sutun) <> "" Then
If nesne = b Then
Rows(i).Hidden = False
Else
Rows(i).Hidden = True
End If
End If
Next
End Sub

bak arkada&#351; sutunlara g&#246;re bunlar&#305;n da&#287;&#305;l&#305;m&#305;n&#305; sen yapacaks&#305;n bu ornek D s&#252;t&#252;n i&#231;in yani 4 s&#305;ral&#305; sutun i&#231;in yap&#305;lm&#305;&#351;t&#305;r.

 

[karakayalı]

sayın brain göndermiş olduğu dosya arama2.xls işimi gördü...ancak burada SOn SATIRA GİT MAKROSU çalışmadı...

bu konuda yardımlarınızı bekliyrum...kod aşağıdakigibidir...başka bir dosyada çalışıyor ancak arama2.xls dosyasında çalışmıyor...

Private Sub CommandButton1_Click()
Range("e1").Activate
Dim alan, satırsayısı, sonsatır
Set alan = Cells(1, 1).CurrentRegion
satırsayısı = alan.Rows.Count
sonsatır = satırsayısı + 1
Cells(sonsatır, 1).Select
End Sub