Hi all,
The following program shows as error on invalid property value. i tried out but cant find the exact error in that. I have to search the value in column x and have to display the value with that column R in the listbox.
Code
- Private Sub textbox1_Change()
- Dim i As Long
- Dim a As Integer
- Me.TextBox1.Text = StrConv(Me.TextBox1.Text, vbProperCase)
- Me.ListBox1.Clear
- For i = 2 To Application.WorksheetFunction.CountA(Sheet2.range("X:X"))
- a = Len(Me.TextBox1.Text)
- If Left(Sheet2.Cells(i, 24).value, a) = Left(Me.TextBox1.Text, a) Then
- Me.ListBox1.AddItem Sheet2.Cells(i, 24).value
- Me.ListBox1.List(ListBox1.ListCount - 1, 24) = Sheet2.Cells(i, 18).value
- End If
- Next i
- End Sub