Jump to content

Archived

This topic is now archived and is closed to further replies.

okaribupi

ELIMINAR FILAS VACIAS DESDE LA FILA 2 HASTA LA FILA 12000

Recommended Posts

Hola,

he hecho una macro para que a traves de un filtro seleccione toda una serie de filas de una hoja las corte y las pegue en otra hoja del mismo libro.

Esto ha hecho que en la hoja donde he cortado los datos me quede desde la fila 2 (la fila 1 son los titulos) hasta la fila 12000 vacias y a partir de la fila 12001 empiezan las filas otra vez con datos.

Queria continuar la macro de forma que estas filas desde la  2 hasta la 12000 que estan vacias se eliminaran pero soy incapaz de conseguirlo.

Estaria muy agradecido si me echarais una  mano.

 

Gracias, saludos

 

Share this post


Link to post
Share on other sites
Hace 1 hora, Leopoldo Blancas dijo:

Espero te ayude.

 

    Rows("2:12000").Select
    Selection.Delete Shift:=xlUp
 

Saludos

Gracias Leopoldo, funciona perfectamente. Pero una duda, en este caso se que es hasta la fila 12000 pero y si dependiendo de la hoja esta fila variara. ¿Como podriamos decirle que llegue hasta la ultima fila vacia?.

Gracias por todo. Agradecido.

Share this post


Link to post
Share on other sites
Hace 20 horas, Leopoldo Blancas dijo:

Has un buche Do While donde te cuente la ultima fila vacías... y ese resultado lo pones así:

Do While...

....

Loop

Rows("2:" & UltimaFilaVacia).Select
    Selection.Delete Shift:=xlUp

Hola Leopoldo disculpa mi ignorancia pero hace poco tiempo que he empezado a aprender y aunque entiendo para que sirve el Do While no soy capaz de estructurar las instrucciones que debo introducir. Lo he intentado. No queria molestarte mas pero no he sabido. Te agradeceria una ultima ayudita.    

Share this post


Link to post
Share on other sites

Dim UltimaFilaVacia as Long

    UltimaFilaVacia = 2

    Do While Cells(UltimafilaVacia,1) = Empty or Cells(UltimafilaVacia,1) = ""

           UltimaFilaVacia = UltimaFilaVacia + 1

     Loop

Rows("2:" & UltimaFilaVacia).Select
    Selection.Delete Shift:=xlUp

 

Saludos

Share this post


Link to post
Share on other sites
Hace 4 minutos , Leopoldo Blancas dijo:

Dim UltimaFilaVacia as Long

    UltimaFilaVacia = 2

    Do While Cells(UltimafilaVacia,1) = Empty or Cells(UltimafilaVacia,1) = ""

           UltimaFilaVacia = UltimaFilaVacia + 1

     Loop

Rows("2:" & UltimaFilaVacia).Select
    Selection.Delete Shift:=xlUp

 

Saludos

Lo voy a probar tambien completando el tuyo para aprender. Muchas gracias tambien.  

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy