>= Greater than or Equal to Not working

[Corey ....]

I have a short code to search column C ina sheet for Numerical values as
below:

Private Sub TextBox1_Change()
If IsNumeric(TextBox1.Value) = False Then TextBox1.Value = ""
If TextBox1.Value <> "" Then
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
ListBox1.AddItem "Solid Woven"
ListBox1.AddItem "Rubber Ply"
ListBox1.AddItem "Steel Cord"
Dim LastCell As Long
Dim myrow As Long
LastCell = Worksheets("InspectionData").Cells(Rows.Count, "C").End(xlUp).Row
With ActiveWorkbook.Worksheets("InspectionData")
..Select
For myrow = 1 To LastCell
If .Cells(myrow, 3) <> "" And .Cells(myrow, 3).Value <> 0 Then
If IsNumeric(.Cells(myrow, 3)) = True Then
ListBox3.AddItem Cells(myrow, 3)
End If
End If
Next
End With


It works great, but i need to add a condition so that ONLY values (>=) to
the value in Textbox1 is shown in Listbox3.
But as below, when i add that section of code highlighted, i get NO values
at all.


If IsNumeric(TextBox1.Value) = False Then TextBox1.Value = ""
If TextBox1.Value <> "" Then
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
ListBox1.AddItem "Solid Woven"
ListBox1.AddItem "Rubber Ply"
ListBox1.AddItem "Steel Cord"
Dim LastCell As Long
Dim myrow As Long
LastCell = Worksheets("InspectionData").Cells(Rows.Count, "C").End(xlUp).Row
With ActiveWorkbook.Worksheets("InspectionData")
..Select
For myrow = 1 To LastCell
If .Cells(myrow, 3) <> "" And .Cells(myrow, 3).Value <> 0 Then
If IsNumeric(.Cells(myrow, 3)) = True And .Cells(myrow, 3).Value >=
TextBox1.Value Then ' <==== THIS BIT HERE
ListBox3.AddItem Cells(myrow, 3)
End If
End If
Next
End With
End If
End Sub


How can i sucessfully add that condition so it WILL work?


Corey....

 

[Mike H]

Hi,

Textboxes return text so you must look at val(Textbo....etc.
Try this

Private Sub TextBox1_Change()
If IsNumeric(TextBox1.Value) = False Then TextBox1.Value = ""
If TextBox1.Value <> "" Then
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
ListBox1.AddItem "Solid Woven"
ListBox1.AddItem "Rubber Ply"
ListBox1.AddItem "Steel Cord"
Dim LastCell As Long
Dim myrow As Long
Stop
LastCell = Worksheets("InspectionData").Cells(Rows.Count,
"C").End(xlUp).Row
With ActiveWorkbook.Worksheets("InspectionData")
For myrow = 1 To LastCell
If .Cells(myrow, 3) <> "" And .Cells(myrow, 3).Value <> 0 Then
If IsNumeric(.Cells(myrow, 3)) And .Cells(myrow, 3).Value >=
Val(TextBox1.Value) Then ' <==== THIS BIT HERE
ListBox3.AddItem Cells(myrow, 3)
End If
End If
Next
End With
End If
End Sub

Mike

 

[ctm]

I will have a look at it when back on Monday.
Thank you for your reply Mike.
I am confident that was the error in the code.

Corey....