Jump to content
DICXON_A

Insertar Nº filas tomando el valor de una celda determinada

Recommended Posts

Buenos Días, Saludos a todos

Buenos Días, Saludos a todos

Estoy nuevo con esto de las macros, actualmente diseñando una macro que elabora un reporte de ventas tomando un archivo descargado del sistema administrativo y lo lleva a un reporte determinado.

Necesito que la macro lea un numero indicado en una celda de una hoja y en base a este valor inserte tantas filas como se indiquen allí.

Por ejemplo, si la celda (la cual posee una formula predeterminada) indica el numero “174”, la macro debería seleccionar toda la fila 10 de la hoja “XXX”, copiarla e insertar 174 filas a partir de la siguiente fila hacia abajo.

Ofrezco disculpas si no se explica bien lo que necesito.

Agradecería si alguien puede ayudarme con esto. Gracias

 

Plantilla Muestra.xlsm

Edited by DICXON_A
Cargar archivo mejor explicado

Share this post


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

si subes un archivo de ejemplo te podremos ayudar mejor. Si no es difícil adivinar qué y cómo lo quieres

Gracias por responder amigo

Pensé que había adjuntado el archivo

Share this post


Link to post
Share on other sites

Muy buena opción hermano, Muchísimas Gracias, sin embargo, no es lo que busco para este trabajo, mea culpa pues no explique bien lo que necesito.

Anexo nuevamente el archivo, tiene una macro que hace exactamente lo que necesito, el problema que tengo con esta macro es que la cantidad de filas que debo seleccionar para copiar e insertar es variable (coloque una formula en una celda que indica las filas a seleccionar)

Probé con “offset” que creo es el equivalente a DESREF en Excel pero no supe como capturar el valor de la celda que indica el número de registros para utilizarla como argumento de esta “formula”

Share this post


Link to post
Share on other sites

Hola @DICXON_A,

Entendiendo que tu solicitud es para transferir los datos de la hoja Libro Revisado a Definitivo y que depende de las filas de la celda C1 de tu hoja Libro Revisado, pero si solo quieres pasarlas filas de acuerdo a tus registros, te dejo este código, aunque no se si sea lo que necesite, pues si cambia la cantidad de registros ¿se debe sobre poner o como?

Sub Transferir()
'Max2005
    Sheets("LIBRO REVISADO").Select
    x = Range("C1")
    Range("A3:R" & 3 + x).Copy
    Sheets("DEFINITIVO").Select
    Range("A9").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    Range("A1").Select
End Sub

Saludos !!!

Mucha Suerte

 

Share this post


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

Hola @DICXON_A,

Entendiendo que tu solicitud es para transferir los datos de la hoja Libro Revisado a Definitivo y que depende de las filas de la celda C1 de tu hoja Libro Revisado, pero si solo quieres pasarlas filas de acuerdo a tus registros, te dejo este código, aunque no se si sea lo que necesite, pues si cambia la cantidad de registros ¿se debe sobre poner o como?


Sub Transferir()
'Max2005
    Sheets("LIBRO REVISADO").Select
    x = Range("C1")
    Range("A3:R" & 3 + x).Copy
    Sheets("DEFINITIVO").Select
    Range("A9").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
    
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    Range("A1").Select
End Sub

Saludos !!!

Mucha Suerte

 

Muchísimas gracias MAX2005, me da un error, creo que es porque intenta sobrescribir el contenido de las celdas inferiores y realmente que necesito es insertar las filas para no eliminar las lineas inferiores 

 

Share this post


Link to post
Share on other sites
Hace 25 minutos , Mauricio_ODN dijo:

Seguimos a tus Ordenes!! Saludos!!

PD. Un Like es una buena manera de agradecer!!

Seguro vale, por favor indicame como finalizo el tema y donde doy like, la verdad hoy estoy ingresando aqui

Share this post


Link to post
Share on other sites

Puedes mandar un Mensaje , "Tema Cerrado", dentro de este post.

Para un Like, ahi en en corazón verde que aparece en la parte inferior derecha de cada comentario.

Sigo a tus ordenes, Saludos!!!

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


CTA Templates.png