- Katılım
- 17 Mayıs 2007
- Mesajlar
- 41
- Excel Vers. ve Dili
- Excel 2003 Türkçe
Private Sub TextBox7_Change()
TextBox1 = Evaluate("=UPPER(" & """" & TextBox1 & """" & ")")
' TEXTBOX İÇİNDE ARAMA YAPAR
'If KeyCode <> 13 Then Exit Sub
On Error Resume Next
If Trim(TextBox1.Value) = "" Then: listeguncelle: Exit Sub
Set sh = Sheets("Tüm Liste")
ara = TextBox1.Value
Set bulunacak = sh.Range("C:C").Find(ara & "*", LookAt:=xlWhole) 'VERİ HANGİ SÜTUNDA ARANACAK
If Not bulunacak Is Nothing Then
Adres = bulunacak.Address
ListView1.ListItems.Clear
Do
sat = bulunacak.Row
With ListView1
.ListItems.Add , , sh.Cells(sat, 1)
x = x + 1
With .ListItems(x).ListSubItems
' LISTVIEW İÇİNDE SAHA FAZLA İSE İLAVE EDİN
.Add , , sh.Cells(sat, 3)
.Add , , sh.Cells(sat, 4)
.Add , , sat
End With
End With
Set bulunacak = sh.Range("A:A").FindNext(bulunacak)
Loop While Not bulunacak Is Nothing And bulunacak.Address <> Adres
Else
'MsgBox "Aradığınız kritere uygun veri bulunamadı", vbCritical, "ARAMA SONUCUNDA HATA"
'TextBox1.Value = ""
listeguncelle
End If
Yukarıdaki kodlarla listviev nesnesi içinde textboxla süzme işlemi yapıyorum. Yanlız textboxa yazdığım değerler ile başlayan veriler listeleniyor sadece. Textboxa girilen değeri içeren kayıtları listeyebilen bir süzme işlemi için gerekli değişiklikler nelerdir. Muhtemel yardımları için ustalara şimdiden teşekkürler.
yani ...ile başlayan değil de, içeren.
TextBox1 = Evaluate("=UPPER(" & """" & TextBox1 & """" & ")")
' TEXTBOX İÇİNDE ARAMA YAPAR
'If KeyCode <> 13 Then Exit Sub
On Error Resume Next
If Trim(TextBox1.Value) = "" Then: listeguncelle: Exit Sub
Set sh = Sheets("Tüm Liste")
ara = TextBox1.Value
Set bulunacak = sh.Range("C:C").Find(ara & "*", LookAt:=xlWhole) 'VERİ HANGİ SÜTUNDA ARANACAK
If Not bulunacak Is Nothing Then
Adres = bulunacak.Address
ListView1.ListItems.Clear
Do
sat = bulunacak.Row
With ListView1
.ListItems.Add , , sh.Cells(sat, 1)
x = x + 1
With .ListItems(x).ListSubItems
' LISTVIEW İÇİNDE SAHA FAZLA İSE İLAVE EDİN
.Add , , sh.Cells(sat, 3)
.Add , , sh.Cells(sat, 4)
.Add , , sat
End With
End With
Set bulunacak = sh.Range("A:A").FindNext(bulunacak)
Loop While Not bulunacak Is Nothing And bulunacak.Address <> Adres
Else
'MsgBox "Aradığınız kritere uygun veri bulunamadı", vbCritical, "ARAMA SONUCUNDA HATA"
'TextBox1.Value = ""
listeguncelle
End If
Yukarıdaki kodlarla listviev nesnesi içinde textboxla süzme işlemi yapıyorum. Yanlız textboxa yazdığım değerler ile başlayan veriler listeleniyor sadece. Textboxa girilen değeri içeren kayıtları listeyebilen bir süzme işlemi için gerekli değişiklikler nelerdir. Muhtemel yardımları için ustalara şimdiden teşekkürler.
yani ...ile başlayan değil de, içeren.