):
Copiar y Guardar Filas
Hola Amigos,
Me gustaría ver si me pueden ayudar con esto para ver si hay algún comando con el que lo pueda hacer. Quiero copiar una fila con un rango de información así como se muestra en el archivo, y que se vayan guardando en la parte de abajo de forma consecutiva. Todas las ideas son bienvenidas!
Gracias de antemano.
Saludos!
Re: Copiar y Guardar Filas
Hola,
Prueba con el siguiente códico copiandolo en un nuevo módulo y posteriormente le asignas la macro al botón. Tendrás que modificar los datos que quieres copiar y el rango que selecciona para que los pegue correctamente:
Sub Macro1()
Range("A8:G8").Select 'selecciona la parte a copiar
Selection.Copy
Range("A65536").End(xlUp).Select 'busca la ultima fila vacia
ActiveCell.Offset(1, 0).Activate 'baja a la fila siguiente
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Espero te sirva,
salu2
andreu
Re: Copiar y Guardar Filas
Gracias. No estoy muy familiarizado con las macros, me ayudan a iniciar la programación? Tengo planeado meterle más cosas a esto, por eso estoy empezando querer a aprender.
Re: Copiar y Guardar Filas
Hola miguel,
bienvenido al foro.
prueba con esta macro:
revisa el adjunto que no sé si entendí bien lo que querías hacer.Código:Sub Guardar() With Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(Range("f8") - Range("e8") + 1) .Columns(1).NumberFormat = "dd/mm/yyyy" .Columns("g:h").HorizontalAlignment = xlCenter .Columns("a:i").Borders.LineStyle = xlContinuous .Columns("a:c") = Application.Transpose(Range("b2:b4")) .Columns("d:g") = Range("a8:d8").Value .Columns(8) = Evaluate("row(" & Range("e8") & ":" & Range("f8") & ")") .Columns(9) = Range("g8").Value End With End Sub
Mauricio
Re: Copiar y Guardar Filas
Es perfecto!! Muchísimas gracias amigos!
Re: Copiar y Guardar Filas
Solo quisiera que no se pudiera repetir la captura cuando pones otra fecha u otro supervisor, como le puedo hacer?.
Re: Copiar y Guardar Filas
Estimado Mauricio
Te felicito por la forma que has usado el With,… realmente tienes muy interesantes propuestas,… en ésta,… me trae loco el uso de EVALUATE,… (ni sabía que existe),..
no entiendo su funcionamiento,… menos comprendo porqué en la columna que indicas pone los valores correlativos del contenido de la celda E8 , hasta el tope de la F8,… y más me confunde el uso de ROW.Código:.Columns(8) = Evaluate("row(" & Range("e8") & ":" & Range("f8") & ")")
Con el propósito de comprender,… hice algunas variaciones para ver que pasaba,…. En vez de ROW puse COLUMN,… siempre pone en la columna 8 el valor 1,… sin importar el valor de E8 ni F8.
Para tener margen de pruebas, sustituí E8 y F8 por E6 y F6.
Si pongo en E6 y F6 caracteres alfabéticos como B y F respectivamente, y ROW en EVALUATE,… numera el rango a partir del número 1.
De hecho,… no sabría en que casos se puede usar EVALUATE.
Apreciado amigo,.. disculpa la molestia,… no es tu problema que mis coágulos mentales no me ayuden,…. Pero
Cordiales saludos.
Re: Copiar y Guardar Filas
Hola de nuevo miguel, no he entendido muy bien lo que pides, podrías explicarlo con un ejemplo en el archivo.Iniciado por miguelangelgch
Hola Jorge, revisa esté vínculo, ahí puedes encontrar una breve discusión sobre evaluate:
http://www.todoexcel.com/foro-excel/post52002.html
En este caso uso evaluate para generar una matriz de números entre los valores que hay en E8 y F8. Esto lo hago por medio de la función fila de la hoja de cálculo (row). Supón que el valor en E8 es 1 y en F8 es 10, entonces en una celda cualquiera ingresa =fila(1:10) como fórmula matricial, esto dará como resultado un vector de números del 1 al 10, puedes verlos seleccionando toda la fórmula en la celda o en la barra de fórmulas y presionando F9. Ahora, si seleccionas 10 celdas verticales, por ejemplo, A1:A10 y en ellas ingresas al mismo tiempo la fórmula =fila(1:10) como fórmula matricial, verás que en ellas aparece la secuencia de números.
Así que:
lo que hace es ingresar en la columna 8 de los datos con los que estamos trabajando en la estructura with ... end with la secuencia de números entre los valores que hay entre los valores de e8 y f8.Código:.Columns(8) = Evaluate("row(" & Range("e8") & ":" & Range("f8") & ")")
Bueno, no sé si sea clara la explicación y gracias por tu comentario.
Mauricio
Re: Copiar y Guardar Filas
Hola Mauricio
Muchas gracias,... es realmente interesante,...una vez más repito lo fabuloso que es el Excel.
Tu explicación me resultó muy esclarecedora,... ahora el detalle es cómo y cuando usarlas,... el asunto es que debo armar mis lógicas con otro tipo de visión,... encontraré la forma o necesidad de usar Evaluate.
Cordiales saludos
Re: Copiar y Guardar Filas
Hola, adjunto un archivo con los resultados buscados, en la primer pestaña se muestra lo que se pretende evitar. Espero que se entienda mejor. Agradezco una vez mas su ayuda. Cada día me parece más fascinante este tema. Saludos!
Permisos de Publicación
LinkBack URL
About LinkBacks
Responder Con Cita
Marcadores