teknikyapı
Altın Üye
- Katılım
- 30 Nisan 2007
- Mesajlar
- 396
- Excel Vers. ve Dili
- Office 365
- Altın Üyelik Bitiş Tarihi
- 13-01-2026
Merhaba
Aşağıdaki kod ile Textbox daki yazılı olan veriyi hücrede arama yaptırıyoruz ama aramak istediğimiz cümleleri tam yazmaksak (örneğin ; hücrede "Boyacı Ustası" yazıyor
biz textboxa " Boya usta" yazarsak arama maelesef gerçekleşmiyor.Find.ler ile biraz aradım ama bulmadım.
Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
Set SR = Sheets("fiyat")
If TextBox7 = "" Then Exit Sub
ListView1.ListItems.Clear
Set ALAN = Range("A3:G" & [a65536].End(3).Row)
Set BUL = ALAN.Find("*" & TextBox7.Text & "*")
If TextBox7 = "" Then Exit Sub
If Not BUL Is Nothing Then
Adres = BUL.Address
Do
satır = BUL.Row
With ListView1
.ListItems.Add , , SR.Cells(satır, 1)
X = X + 1
.ListItems(X).ListSubItems.Add , , SR.Cells(satır, 2)
.ListItems(X).ListSubItems.Add , , SR.Cells(satır, 3)
.ListItems(X).ListSubItems.Add , , Format(SR.Cells(satır, 4), "#,##0.00")
.ListItems(X).ListSubItems.Add , , SR.Cells(satır, 5)
.ListItems(X).ListSubItems.Add , , SR.Cells(satır, 6)
.ListItems(X).ListSubItems.Add , , SR.Cells(satır, 7)
SAY = SAY + 1
Aşağıdaki kod ile Textbox daki yazılı olan veriyi hücrede arama yaptırıyoruz ama aramak istediğimiz cümleleri tam yazmaksak (örneğin ; hücrede "Boyacı Ustası" yazıyor
biz textboxa " Boya usta" yazarsak arama maelesef gerçekleşmiyor.Find.ler ile biraz aradım ama bulmadım.
Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
Set SR = Sheets("fiyat")
If TextBox7 = "" Then Exit Sub
ListView1.ListItems.Clear
Set ALAN = Range("A3:G" & [a65536].End(3).Row)
Set BUL = ALAN.Find("*" & TextBox7.Text & "*")
If TextBox7 = "" Then Exit Sub
If Not BUL Is Nothing Then
Adres = BUL.Address
Do
satır = BUL.Row
With ListView1
.ListItems.Add , , SR.Cells(satır, 1)
X = X + 1
.ListItems(X).ListSubItems.Add , , SR.Cells(satır, 2)
.ListItems(X).ListSubItems.Add , , SR.Cells(satır, 3)
.ListItems(X).ListSubItems.Add , , Format(SR.Cells(satır, 4), "#,##0.00")
.ListItems(X).ListSubItems.Add , , SR.Cells(satır, 5)
.ListItems(X).ListSubItems.Add , , SR.Cells(satır, 6)
.ListItems(X).ListSubItems.Add , , SR.Cells(satır, 7)
SAY = SAY + 1