Macro para borrar completas desde la 1ª fila (celda A1), hasta fila cuya primera celda contiene el valor Unit ID/Número Bastidor

Necesito una macro que, en primer lugar, borre enteras desde la primera fila (celda A1), hasta la fila cuya primera celda (celda de la columna A) contiene el texto Unit ID/Número Bastidor. En segundo lugar, quisiera que borrara las filas completas, desde una celda combinada que siempre ocupa desde la columna A hasta la columna J, hasta la última celda con texto.

1

1 respuesta

Respuesta
1

Te respondo la primer parte de la consulta.

(*) Por 'borrado' se entiende que se deben limpiar las celdas de esa fila, puede ser borrado solo de valores (clearcontents) o borrado con formatos y todo (clear).

Sub borraFilas()
'x Elsamatilde
'ajustar texto a buscar
dato = "Unit ID/Número Bastidor"
'busca el texto en col A
Set busco = Range("A:A").Find(dato, LookIn:=xlValues, lookat:=xlWhole)
'si lo encuentra borra desde 1 hasta la fila encontrada
    If Not busco Is nothint Then
        Range("A1:A" & busco.Row).EntireRow.ClearContents  '*
    Else
        MsgBox "No se encontró el texto buscado"
    End If
End Sub

Si esto resuelve la primer parte de tu consulta no olvides valorarla (opciones: excelente o buena). 

Para la segunda parte deja por favor otra nueva en el tablón indicando que se trata de celdas combinadas y deja una imagen de cómo se vería la hoja una vez borradas las anteriores con esta macro. No se comprende si habrá alguna condición para ubicarla o es la única combinada.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas