insertar filas

8 envíos / 0 nuevos
Último envío
Jesús Martínez ...
Imagen de Jesús Martínez Plantarosa
Offline
última acción: Hace 1 mes 3 semanas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 4708
insertar filas

Buenas tardes

Manejo dos hojas de trabajo, hoja1 y hoja2, en la hoja1 manejo diferente rango de información y copio y pego a la hoja 2 seleccionado, pero necesito insertar filas para pegar el rango de la hoja1, este es mi código para seleccionar

cle = Range("A" & Rows.Count).End(xlUp).Row
Range("a9:T" & cle + 10).Select

Y como es variable, quisiera que automáticamente se inserten las filas, segun la cantidad selecionada 

muchas gracias por su atención

Jesús

Etiquetas: 

TitoPaKa
Imagen de TitoPaKa
Offline
última acción: Hace 3 meses 1 semana
alta: 16/03/2017 - 06:33
Puntos: 50
insertar filas

Buenas, sabiendo la cantidad que tienes que insertar que entiendo que es el valor de la variable [cle], yo montaria un for

 

for i = 1 to cle

Range("2:2").select 'selecciona la fila dónde quieras que te inserte la nueva

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

next

 

a ver que tal te anda...

Cron
Imagen de Cron
Offline
última acción: Hace 1 hora 17 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 8180
Mejor que con un bucle,

Mejor que con un bucle, puedes hacer lo siguiente:

Como quieres insertar filas completas, en vez de seleccionar el rango concreto, selecciona filas enteras. Esto se puede hacer con Entirerow

Range("a9:T" & cle + 10).Entirerow.Select

 

Posteriormente simplemente inserta filas. Se te insertarán tantas filas como filas seleccionadas tengas:

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

 

Un saludo

Jesús Martínez ...
Imagen de Jesús Martínez Plantarosa
Offline
última acción: Hace 1 mes 3 semanas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 4708
Celda

Estimado Cron, y como indico a mi hoja2 que quiero que inserte las filas en la celda A3

Jesus Martinez Plantarosa

Jesús Martínez ...
Imagen de Jesús Martínez Plantarosa
Offline
última acción: Hace 1 mes 3 semanas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 4708
Celda destino

Titopaka

Como indico qeu inserter las filas en la hoja 2 celda A3

Jesus Martinez Plantarosa

TitoPaKa
Imagen de TitoPaKa
Offline
última acción: Hace 3 meses 1 semana
alta: 16/03/2017 - 06:33
Puntos: 50
Pués direccionalo a la hoja2

Pués direccionalo a la hoja2

 

ActiveWorkbook.Sheets(2).Range........select

Cron
Imagen de Cron
Offline
última acción: Hace 1 hora 17 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 8180
Si quieres insertar 8 filas

Si quieres insertar 8 filas (por ejemplo) a partir de A3 hacia abajo, puedes hacer lo siguiente:

Range("Hoja2'!a3:a11").Entirerow.Select

Y luego hacer la inserción como te comenté en la respuesta anterior.
 
Esto es dando por supuesto que quieres insertar filas enteras.
 
Un saludo
Jesús Martínez ...
Imagen de Jesús Martínez Plantarosa
Offline
última acción: Hace 1 mes 3 semanas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 31/03/2013 - 17:15
Puntos: 4708
OK

Muchas gracias por la idea

Jesus Martinez Plantarosa