Jump to content

Archived

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

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

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”

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

 

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 

 

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