İçerir Mantıgındaki Atladıgım Durum nedir Arkadaslar.

[Kemal Demir]

İyi Günler,

Aşagıdaki Kodda textbox1 deki ifade ilgili data içerisinde neden verileri bulmuyor acaba atladıgım konu nedır?

Private Sub CommandButton1_Click()
alan = TextBox1.Text
For x = 2 To 1102
If Cells(x, 1).Text Like alan Then
ListBox1.AddItem Cells(x, 1).Value & "------" & Cells(x, 2).Value
End If
Next
End Sub

 

[Levent Menteşoğlu]

Sorun like operatörünün hatalı kullanımından kaynaklanıyordur. Birde aşağıdaki gibi deneyin.

[LEFT]Private Sub CommandButton1_Click()
alan = TextBox1.Text
For x = 2 To 1102
If InStr(Cells(x, 1),alan)>0 Then
ListBox1.AddItem Cells(x, 1).Value & "------" & Cells(x, 2).Value
End If
Next
End Sub[/LEFT]

 

[Recep İpek]

Kodlar bende düzgün çalışıyor...
Sanırım başka bir durum var...

 

[Kemal Demir]

Sn.Leventm ,

Teşekkur Ederim.

Sn.Ripek'e katılmamak kendımce elde değil.
Kabalık olarak değerlendirmeyiniz ama sanki ben boyle bir kod calıstırdım diye hatılıyorum. alan ibaresini " " içerisine alsak mumkun mudur.

Neyse Ben fazla uctum .

Teşekkur Ederim.

 

[Levent Menteşoğlu]

alan ibaresini " " içerisine alsak mumkun mudur.

Aşağıdaki gibi deneyin.

If Cells(x, 1).Text Like "" & alan Then

yada

If Cells(x, 1).Text Like "*" & alan & "*" Then

 

[Kemal Demir]

İşte Bu Süper.