Borrar filas
Hola a todos,
necesito borrar un número no fijo de filas, a partir de la 1 hasta un número variable, previamente ingresado en una celda.
Para borrar las filas tengo esto:
Rows("1:20").Select
Selection.Delete Shift:=xlUp
Necesito que el valor "20" sea un valor variable, específicamente el valor que aparezca en la celda A1
Espero haberme explicado bien
necesito borrar un número no fijo de filas, a partir de la 1 hasta un número variable, previamente ingresado en una celda.
Para borrar las filas tengo esto:
Rows("1:20").Select
Selection.Delete Shift:=xlUp
Necesito que el valor "20" sea un valor variable, específicamente el valor que aparezca en la celda A1
Espero haberme explicado bien
1 respuesta
Respuesta de angelcrisnor
1
Esto hace lo que dices, pero ten cuidado, porque te borrará la propia celda A1.
Rows("1:" + Trim(Str(Range("A14").Value))).Select
Selection.Delete Shift:=xlUp
Rows("1:" + Trim(Str(Range("A14").Value))).Select
Selection.Delete Shift:=xlUp
