Search Textbox

[Momo81]

hi, how can i change this code to ignore uppercase and lowercase characters?

Thanks



Dim rng As RangeDim c As Range
Dim a As String 'listbox ricerca parziale

ListBox1.Clear
With Sheets("Database")
Set rng = .Range(.Cells(5, 920), .Cells(.Cells(65536, 920).End(xlUp).Row, 920))

a = "*" & Ricerca_txt & "*" 'listbox ricerca parziale

For Each c In rng
If c.Value Like a Then 'listbox ricerca parziale
With Me.ListBox1
.AddItem
.List(.ListCount - 1, 0) = c.Value
.List(.ListCount - 1, 1) = c.Offset(0, 1).Value
.List(.ListCount - 1, 2) = c.Offset(0, 2).Value
End With
End If
Next
End With 'listbox ricerca parziale Set rng = Nothing 'listbox ricerca parziale

[p45cal]

try changing:
a = "*" & Ricerca_txt & "*" 'listbox ricerca parziale
to:
a = "*" & LCase(Ricerca_txt) & "*" 'listbox ricerca parziale

and:
If c.Value Like a Then 'listbox ricerca parziale
to:
If LCase(c.Value) Like a Then 'listbox ricerca parziale

[Momo81]

try changing:
a = "*" & Ricerca_txt & "*" 'listbox ricerca parziale
to:
a = "*" & LCase(Ricerca_txt) & "*" 'listbox ricerca parziale

and:
If c.Value Like a Then 'listbox ricerca parziale
to:
If LCase(c.Value) Like a Then 'listbox ricerca parziale


It works!!
Thank you