¿Cómo puedo elaborar una macro que elimine filas enteras en función del contenido de una celda?
Buenas tardes, necesito con urgencia hacer una macro con las siguientes características:
Tengo una hoja de cálculo con un listado de empresas. De estas, unas cuantas están extinguidas. La palabra "extinguida", figura en el mismo campo que el nombre de la empresa. Necesito que si la empresa esta "extinguida" se me elimine la fila completa de esa empresa.
Espero haber sido claro... Muchas gracias
1 Respuesta
Respuesta de Luis Mondelo
1
Ahora te mando la solución
Bien, esta es la solución: sigue estas instrucciones:
-Marca con el ratón todos los datos de la columna donde están los nombres de las empresas (donde estarán también las extinguidas)
-Después de que lo tengas sombreado solo tienes que ejecutar esta macro:
Sub ejemplo() 'por luismondelo For Each celda In Selection If UCase(celda.Value) = "EXTINGUIDA" Then celda.EntireRow.Delete End If Next End Sub
no olvides finalizar la consulta
