Macro para encontrar parte de un texto en una celda
Hola, estoy haciendo una macro para organizar información que tengo en celdas en una columna. Entonces necesito revisar celda por celda y ver si contiene el texto que estoy buscando. Por ejemplo tengo una celda que dice "sin acusar falla" y otra que dice "detenido sin acusar falla". Entonces yo quiero seleccionar todos los que en alguna parte del texto dice "acusar falla". La macro que hice busca el texto exacto, entonces me salta algunas filas. Esta es una parte de la macro:
If Sheets("2004").Cells(i, 50) = "Sin acusar falla" Then
j = j + 1
Sheets("2004").Cells(i, 50).Select 'selecciona la falla
Selection.Copy
Sheets("2004").Cells(j, 54).PasteSpecial Paste:=xlPasteValues
¿Me puedes ayudar con una solución pero que sea de macro? Gracias.
If Sheets("2004").Cells(i, 50) = "Sin acusar falla" Then
j = j + 1
Sheets("2004").Cells(i, 50).Select 'selecciona la falla
Selection.Copy
Sheets("2004").Cells(j, 54).PasteSpecial Paste:=xlPasteValues
¿Me puedes ayudar con una solución pero que sea de macro? Gracias.
Respuesta de calvuch
Para eso utilizar el filtro "filtros de texto", opcio "contiene" allí le pones el texto "Sin acusar falla" y te filtrara solo los que contienene ese rotulo. Estoy a lo hace excel no es necesario macro
Es más que solo eso lo que hace la macro, por eso necesitaba hacerlo con una macro. Pero ya encontré como resolverlo. Estoy usando la función InStr() y funciona. Gracias de todas maneras.
