Excel User form (1 Viewer)

[zezo2021]

friends
I'm using this code to search in a specific column in sheet

My problem is:
- Search is Case Sensitive
- I want to search with any part of the word, not from the start

Dim LastRow As Integer
LastRow = Worksheets("Database").Cells(Rows.Count, 2).End(xlUp).Row
Dim i As Integer
i = 0

For Each C In Worksheets("Data").Range("B2:B" & LastRow)
        If C Like txtSearch.Value & "*" Then

        End If
Next C

 

[arnelgp]

If C Like txtSearch.Value & "*" Then

If C Like "*" & txtSearch.Value & "*" Then

 

[zezo2021]

If C Like "*" & txtSearch.Value & "*" Then

Work

but Still, Case sensitive

 

[arnelgp]

Dim LastRow As Integer
LastRow = Worksheets("Database").Cells(Rows.Count, 2).End(xlUp).Row
Dim i As Integer
Dim C As Range
i = 0

For Each C In Worksheets("Data").Range("B2:B" & LastRow)
        If C.Value & "" Like "*" txtSearch.Value & "*" Then

        End If
Next C

 

[zezo2021]

Dim LastRow As Integer
LastRow = Worksheets("Database").Cells(Rows.Count, 2).End(xlUp).Row
Dim i As Integer
Dim C As Range
i = 0

For Each C In Worksheets("Data").Range("B2:B" & LastRow)
        If C.Value & "" Like "*" txtSearch.Value & "*" Then

        End If
Next C

is there & before textSearch

error and stop on txtSearch

 

[arnelgp]

ooopps, yes there is.

If C.Value & "" Like "*" & txtSearch.Value & "*" Then

 

[zezo2021]

ooopps, yes there is.

If C.Value & "" Like "*" & txtSearch.Value & "*" Then

Sorry
worked
But if sentence begin with Capital Must Type Capital

 

[zezo2021]

Sorry
worked
But if the sentence begin with Capital Must Type Capital

 

[arnelgp]

If InStr(1, C.Value & "", txtSearch.Value, vbBinaryCompare) <> 0 Then

End If

 

[zezo2021]

If InStr(1, C.Value & "", txtSearch.Value, vbBinaryCompare) <> 0 Then

End If

Testing

 

[zezo2021]

Still Case Sensitive for first letter

 

[Gasman]

So use UCASE() on both ?

 

[zezo2021]

So use UCASE() on both ?

Great
Great
Thanks friends for all efforts