Jump to content

Copiar datos de reporte en otra hoja


Recommended Posts

Hola Grupo buenos dias ,

Me pasa que estoy realizando un reporte pero cada vez que lo voy a realizar tengo que copiar los datos luego borrarlos y luego copiarlos al dia siguiente, 

La idea era que cada vez que yo termine el reporte se cree una hoja nueva con esa info,

Esto es posible con algún tipo de formula ?, no adjunte archivo debido al carácter general de la pregunta 

Estoy al pendiente , Saludos desde Uruguay 

 

Link to comment
Share on other sites

Hola,

Con Macros seguro que se puede.

Sin ellos, es tan fácil como crearte la "plantilla" en la hoja 1 y cada día te haces una copia de la hoja 1 y la rellenas.

Hacer una copia de una hoja es tal fácil como pulsar CONTROL y arrastrar la pestaña de la hoja

Link to comment
Share on other sites

Hola a ambos

En 24/6/2021 at 10:30 , Patrick Marabote dijo:

La idea era que cada vez que yo termine el reporte se cree una hoja nueva con esa info,

Esto es posible con algún tipo de formula ?

Si es posible con formulas, pero al terminar, debes copiar y pegar como valores, y queda lista

La mejor forma es con un procedimiento de VBA o intenta usar la grabadora de macros, y si no conoces en absoluto las macros, entonces nos avisas, para poder orientarte o colaborar con tu duda

 

Saludos 

Link to comment
Share on other sites

  • 2 weeks later...
En 29/6/2021 at 1:33 , Gerson Pineda dijo:

Hola a ambos

Si es posible con formulas, pero al terminar, debes copiar y pegar como valores, y queda lista

La mejor forma es con un procedimiento de VBA o intenta usar la grabadora de macros, y si no conoces en absoluto las macros, entonces nos avisas, para poder orientarte o colaborar con tu duda

 

Saludos 

Muchas gracias Gerson , la verdad no tengo mucha idea, pero si se puede con macros estoy contento, Muchas gracias!! 

Link to comment
Share on other sites

En 25/6/2021 at 2:29 , njnsp dijo:

Hola,

Con Macros seguro que se puede.

Sin ellos, es tan fácil como crearte la "plantilla" en la hoja 1 y cada día te haces una copia de la hoja 1 y la rellenas.

Hacer una copia de una hoja es tal fácil como pulsar CONTROL y arrastrar la pestaña de la hoja

Muchas gracias!!!, un gran Saludo! 

Link to comment
Share on other sites

Hace 3 horas, Patrick Marabote dijo:

Muchas gracias Gerson , la verdad no tengo mucha idea, pero si se puede con macros estoy contento, Muchas gracias!! 

Como tu duda es general, ahora debes ser explicito y con archivo adjunto, para que detalles que es exactamente lo que deseas hacer

 

Saludos 

Link to comment
Share on other sites

  • Crear macros Excel

  • Posts

    • Buenas tardes, expertos solicito una ayuda para concatenar dos columnas una de ellas es en cuanto a la fechas, lo que pasa es que la macro que tengo concatena muy bien, solo tengo un inconveniente con las fechas dicha columna (I) estas formateadas por ejemplo asi: Feb-20 pero al concatenar el resultado asi: O-2AA6220/09/2021, pero asi no quiero, me gustaria concatenar que salga asi: A-234RV44032 los 5 ultimos digitos son de la fecha, bueno asi me gustaria que quede, la macro que estoy usando es: Sub Concatenar() uFila = Range("H" & Cells.Rows.Count).End(xlUp).Row pFila = 1 For fila = pFila + 1 To uFila     Range("O" & fila) = Range("H" & fila) & Range("I" & fila) Next fila End Sub Por favor si me podria dar una ayuda estare muy agradecido. Adjunto el archivo Consolidado.xlsm
    • Con la grabadora Pero son demasiadas filas. Sub Macro1() Range("C3:I7").Select Selection.Copy Range("C12").Select ActiveSheet.Paste Application.CutCopyMode = False Selection.Copy Range("C21").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub Hace tiempo que no entro en el foro y no veo la opcion de subir libro. Un Saludo.
    • Desconozco si por falta de aportación de datos, no me pueden ayudar  o es que no se puede desarrollar esta macro. Gracias.
    • Antoni muchas gracias, eso lo que esperaba. Consegui también estas lineas codigo. Sub Rellenar() Dim uf, fila As Integer uf = Sheets("Consolidar").Range("A" & Rows.Count).End(xlUp).Row fila = 2 While fila <= uf If Sheets("Consolidar").Cells(fila, 2) = Empty Then    Sheets("Consolidar").Cells(fila, 2) = "DIGITAL" End If fila = fila + 1 Wend End Sub
    • Range("B2:B" & ActiveSheet.UsedRange.Rows.Count) = "DIGITAL"  
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy