Buenas y Felices Fiestas!!!!

Busco una Macro que elimine Filas en base a un Texto “X”, elimine desde ese texto  incluido 85 Filas, estarán ahora en la columna A.

Saludos….

En lo que se parecen o hacen similar

Las similitudes entre las macros son:

Todas las macros eliminan filas basándose en algún criterio de búsqueda proporcionado por el usuario.

Todas las macros utilizan la función InputBox para solicitar al usuario el criterio de búsqueda.

Todas las macros utilizan un bucle For para recorrer las filas y la función Delete para eliminar las filas.

Todas las macros utilizan la función Find para buscar el criterio de búsqueda en la columna especificada o en la columna A.

hace 16 horas, JSDJSD dijo:

La verdad que no le veo la lógica, pero si es eso lo que quieres te dejo la macro de Antoni modificada para que te funcione

Sub Eliminar85FilasColumnaA()
    Dim Texto As String, Celda As Range, Hoja As Worksheet
    Set Hoja = ThisWorkbook.Sheets("ELIMINAR FILA POR TEXTO")
    Texto = InputBox("Texto a buscar")
    If Not Texto = "" Then
       Set Celda = Hoja.Columns("A").Find(Texto, , , xlWhole)
       If Not Celda Is Nothing Then
          Hoja.Range(Celda, Celda.Offset(84, 0)).EntireRow.Delete
       End If
    End If
End Sub

 

Buenas Tardes ¡!!!

Voy a centrar lo más posible el tema de marras, de esta más imposible.......

Centrándome en el último libro subido que me parece que no se ha llegado a ver.

Columna  A como ejemplo al ejecutar la Macro se pondrá Mercedes, en columna A esta en Naranja todo lo que tiene que eliminar la Macro 5 Filas que son datos que pertenecen a Mercedes.

Solo he cambiado el 84 por 5 (este dato es cambiante según donde lo aplique)

Hoja.Range(Celda, Celda.Offset(84, 0)).EntireRow.Delete

Hoja.Range(Celda, Celda.Offset(5, 0)).EntireRow.Delete

 

Ejecuta la Macro y podrás ver que no elimina todos los datos de Mercedes.

Ya no sé cómo explicar el tema de súper…… comprimido…..

Saludos….

PARA FORO EXCEL 4.xlsm

Sub Eliminar85FilasRectificadapor_JSDJSD()
    Dim Texto As String, Celda As Range, Hoja As Worksheet
    Set Hoja = ThisWorkbook.Sheets("ELIMINAR FILA POR TEXTO")
    Texto = InputBox("Texto a buscar")
    If Not Texto = "" Then
        For cont = Hoja.Range("A" & Rows.Count).End(xlUp).Row To 3 Step -1
           Set Celda = Hoja.Columns("A").Find(Texto, , , xlWhole)
           If Not Celda Is Nothing Then
              Hoja.Range(Celda, Celda.Offset(5, 0)).EntireRow.Delete
           End If
        Next cont
    End If
End Sub

Te aseguro que con todas las explicaciones que has dado anteriormente, imposible llegar a esta conclusión. Ahora sí, en este último ejemplo que has aportado visualmente si que se interpreta perfectamente tu finalidad.

El código correcto es este:

Sub Eliminar85FilasRectificadapor_JSDJSD()
    Dim Texto As String, Celda As Range, Hoja As Worksheet
    Set Hoja = ThisWorkbook.Sheets("ELIMINAR FILA POR TEXTO")
    Texto = InputBox("Texto a buscar")
    If Not Texto = "" Then
        For cont = Hoja.Range("A" & Rows.Count).End(xlUp).Row To 3 Step -1
           Set Celda = Hoja.Columns("A").Find(Texto, , , xlWhole)
           If Not Celda Is Nothing Then
              Hoja.Range(Celda, Celda.Offset(4, 0)).EntireRow.Delete
           End If
        Next cont
    End If
End Sub

Ya que lo que tiene que eliminar el dato buscado más cuatro líneas más

El archivo

PARA FORO EXCEL 4.xlsm

hace 4 horas, JSDJSD dijo:

Te aseguro que con todas las explicaciones que has dado anteriormente, imposible llegar a esta conclusión. Ahora sí, en este último ejemplo que has aportado visualmente si que se interpreta perfectamente tu finalidad.

Inicie el tema en los dos primeros post así:

1º

Buenas y Felices Fiestas!!!!

Busco una Macro que elimine Filas en base a un Texto “X”, elimine desde ese texto  incluido 85 Filas, estarán ahora en la columna A.

Saludos….

2º

Subo libro…

Tal cual  explico en el post.

Columna A como ejemplo donde esta NOMBRE A4, será el nombre como referencia que buscara la Macro para eliminar 85 filas (esta en color amarillo)

En la columna A habrá muchas más con este patrón en diferentes celdas, ejemplo A200, A280, A350 ect… ejemplo hasta  A3.000

El último libro anterior a este está un poco más arriba que es prácticamente una calca de este.

Ahora voy a probarla en la plantilla Real que tiene unas 23.120 Filas y cada grupo a eliminar su numero varia, ya comentare.

En el de prueba va bien.

Saludos….

hace 5 horas, JSDJSD dijo:

El archivo

PARA FORO EXCEL 4.xlsm 24.25 kB · 1 descarga

Todo ok en la plantilla original, pero he encontrado algo que no contaba con ello y son unos 200 nombres con sus filas diferentes a eliminar…… pufff, solo quiero 2 nombres con sus datos de A.

La solución que se me ocurre ahora con dos.

1º

Que la macro pueda seleccionar una celda de la hoja y esta no sería la misma donde están los datos a eliminar que estaria el nombre a eliminar.

2º

 O eliminar todo de A menos 2 nombres con sus rangos de filas o celdas, estos sí que suelen ser las mismas filas siempre.

Gracias

Saludos….