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
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...
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
Estimado Cron, y como indico a mi hoja2 que quiero que inserte las filas en la celda A3
Jesus Martinez Plantarosa
Titopaka
Como indico qeu inserter las filas en la hoja 2 celda A3
Jesus Martinez Plantarosa
Pués direccionalo a la hoja2
ActiveWorkbook.Sheets(2).Range........select
Si quieres insertar 8 filas (por ejemplo) a partir de A3 hacia abajo, puedes hacer lo siguiente:
Range("Hoja2'!a3:a11").Entirerow.Select
Muchas gracias por la idea
Jesus Martinez Plantarosa