= Greater than or Equal to Not working
 

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....

= Greater than or Equal to Not working
 

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


"Corey ...." wrote:



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....

= Greater than or Equal to Not working
 

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....
"Mike H" wrote in message
...
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


"Corey ...." wrote:



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....