¿Código VBA en Excel para filtrar en un textbox sin tener en cuenta acentos, mayúsculas o minúsculas?

Estoy utilizando el siguiente código en una hoja de excel para buscar y filtrar lo que escribo en dos Texbox:

Private Sub TextBox1_Change()

ActiveSheet.Unprotect
ALERTA = "*" & TextBox1.Value & "*"
Range("D3").AutoFilter Field:=4, Criteria1:=ALERTA
'ALERTA en este caso se refiere a algo que nos indique que la búsqueda la hará en la columna llamada 'ALERTA pero se podría llamar de cualquier otra forma.

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
End Sub

Private Sub TextBox2_Change()
ActiveSheet.Unprotect
PAISES = "*" & TextBox2.Value & "*"

'PAÍSES en este caso se refiere a algo que nos indique que la búsqueda la hará en la columna llamada 'PAÍSES pero se podría llamar de cualquier otra forma.
Range("C3").AutoFilter Field:=3, Criteria1:=PAISES
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
End Sub

_______________________________________

El problema que tengo y que no doy con la solución es que haciéndolo de esta forma distingue las palabras que tienen tilde o acento. Si busco por ejemplo Taiwan sin poner acento no me lo encuentra por que en la columna está con acento o al revés si busco Perú poniendo el acento y en la columna está sin acento pues tampoco lo encuentra. ¿Hay alguna forma de que haga la búsqueda para que encuentre todo tengan o no tengan acento? De momento lo que si hace bien es que encuentra todo se ponga o no se pongan mayúsculas.

1 Respuesta

Respuesta
1

I. Hola Compañero, como siempre comento no soy conocedor sólo lector, pero quisiera trasladarle la información en Inglés y español que vi sobre su consulta por si pudiese serle de alguna utilidad mientras le atiende un experto o experta de primera mano, los que si desea podríamos citar o 'invocar' en caso de que no recibiese respuestas durante los próximos días. Le ruego me disculpe todas las molestias de lectura y la imprecisión, ánimo.


https://stackoverflow-com.translate.goog/questions/17035660/in-vba-get-rid-of-the-case-sensitivity-when-comparing-words?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://stackoverflow-com.translate.goog/questions/79123138/vba-code-to-filter-a-table-and-all-its-columns-whilst-typing-and-ignoring-accen?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://www-vbforums-com.translate.goog/showthread.php?516928-RESOLVED-how-to-accept-uppercase-and-lowercase-in-inputbox&_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://www-vbforums-com.translate.goog/showthread.php?602887-RESOLVED-Use-Textbox-Value-in-AutoFilter-Criteria&_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://www-mrexcel-com.translate.goog/board/threads/vba-using-code-to-filter-criteria-not-to-include-in-a-filter.536547/?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://supportcenter-devexpress-com.translate.goog/ticket/details/q464675/how-to-make-the-auto-filter-row-s-filter-accent-insensitive?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://superuser-com.translate.goog/questions/1352909/vba-code-for-filtering-a-column-using-input-box?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://trumpexcel.com/vba-autofilter/ 

https://superuser-com.translate.goog/questions/1202665/case-insensitive-but-case-preserving-substitute-function-excel?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://www-mrexcel-com.translate.goog/board/threads/advanced-filter-specific-text-with-capital-letters-being-the-only-difference.946287/?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc

https://www-access--programmers-co-uk.translate.goog/forums/threads/vba-to-check-if-textbox-only-contains-a-z-a-z-hyphen-and-spaces.331896/?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc  

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas