Muy bueno...
Si cambiamos esto:
Código:
Function ListIsIn(lst As ListBox, zString As String) As Boolean
On Error Resume Next
For i = 0 To lst.ListCount
If lst.List(i) = zString Then ListIsIn = True: lst.ListIndex = i: GoTo grr
Next i
ListIsIn = False
grr:
End Function
por esto:
Código:
Function ListIsIn(lst As ListBox, zString As String) As Boolean
On Error Resume Next
For i = 0 To lst.ListCount
If InStr(UCase$(lst.List(i)), UCase$(zString)) Then ListIsIn = True: lst.ListIndex = i: GoTo grr
Next i
ListIsIn = False
grr:
End Function
podremos ir chequeando que la cadena que ingresemos, esté dentro de las opciones, mientras la estamos escribiendo, e independientemente de si se escribe con mayúsculas, minúsculas, o una mezcla...
Marcadores