Jump to content

Copiar datos a partir de una fila


Recommended Posts

Hola buenas.

Necesitaria uan macro que copiara o registrara los datos a partir de una fila, estos datos van cambiando.

En hoja1 Fila 2 (color amarillo), estos datos no son nunca los mismos nesesitaria una macro para que se copiaran o registraran a partir de la fila 5 (color naranja) a medida que los datos de la fila 2 van cambiando.

Hoja 2 lo mismo pero los datos estan en celdas separadas (color amarillo)

Gracias de antemano.

Salud2.

Macro Copiar datos.rar

Link to comment
Share on other sites

Hola @[uSER=88650]eugeniocol[/uSER]:

En cada hoja encontraras un boton que dice agregar, ingresas los datos en las celdas de color amarillo, y luego le das agregar y se agregaran a partir de la fila que indicaste en cada hoja, luego el contenido de la celda amarilla se borra para que puedas ingresar mas datos.

Saludos

Macro Copiar datos_vba.rar

Link to comment
Share on other sites

Hola @[uSER=88650]eugeniocol[/uSER]:

En cada hoja encontraras un boton que dice agregar, ingresas los datos en las celdas de color amarillo, y luego le das agregar y se agregaran a partir de la fila que indicaste en cada hoja, luego el contenido de la celda amarilla se borra para que puedas ingresar mas datos.

Saludos

No es lo que necesito, al agregar los datos de la columna amarilla estos desaparecen de esta y los datos de la columna amarilla se tienen que quedar en ella, estos estan enlazados con otra hoja.

Salud2.

Link to comment
Share on other sites

hola @eugoniocol:

Para que los datos se queden en las celdas de color amarillo, deberias borrar el siguiente codigo en cada subturina

En RegistrarHoja1

    'Limpiar fila 2
Sheets("Hoja1").Range("A2:F2").Value = ""[/CODE]

En [b]RegistrarHoja2 [/b]

[CODE]
'Limpiar fila 2
Sheets("Hoja2").Range("A2:F5").Value = ""[/CODE]

Saludos

Link to comment
Share on other sites

Hola @[uSER=88650]eugeniocol[/uSER]:

En cada hoja encontraras un boton que dice agregar, ingresas los datos en las celdas de color amarillo, y luego le das agregar y se agregaran a partir de la fila que indicaste en cada hoja, luego el contenido de la celda amarilla se borra para que puedas ingresar mas datos.

Saludos

No es lo que necesito, al agregar los datos de la columna amarilla estos desaparecen de esta y los datos de la columna amarilla se tienen que quedar en ella, estos estan enlazados con otra hoja.

Salud2.

hola @eugoniocol:

Para que los datos se queden en las celdas de color amarillo, deberias borrar el siguiente codigo en cada subturina

En RegistrarHoja1

    'Limpiar fila 2
Sheets("Hoja1").Range("A2:F2").Value = ""[/CODE]

En [b]RegistrarHoja2 [/b]

[CODE]
'Limpiar fila 2
Sheets("Hoja2").Range("A2:F5").Value = ""[/CODE]

Saludos

ok. ahora si.

Una cosita mas , en otras hojas tengo un mismo formato (este del libro me vale para ejemplo) se podria añadir a esta macro para que haga lo mismo en otras hojas ???

Salud2.

Link to comment
Share on other sites

No soy capaz de ajustarla al rango que quiero, los datos los pilla bien pero me graba en N:T desde la fila 24 cuando tendria que empezar en la fila 9

Sub RegistrarDATOS()
Sub RegistrarDATOS()
ufila = Cells(Rows.Count, 1).End(xlUp).Row + 1
If ufila = 3 Then ufila = ufila + 2

'Agregar datos de la fila 2 a la fila a partir de la 5
Cells(ufila, 14) = Cells(5, 14)
Cells(ufila, 15) = Cells(5, 15)
Cells(ufila, 16) = Cells(5, 16)
Cells(ufila, 17) = Cells(5, 17)
Cells(ufila, 18) = Cells(5, 18)
Cells(ufila, 19) = Cells(5, 19)
Cells(ufila, 20) = Cells(5, 20)

'Limpiar fila 2
'Sheets("Hoja1").Range("A2:F2").Value = ""

'Enforcar en la celda A2
Cells(4, 14).Select
End Sub


[/CODE]

Salud2.

Link to comment
Share on other sites

bueno creo que se cual es el motivo por lo que me graba en N:T desde la fila 24 cuando tendria que empezar en la fila 9, es que en A:K23 hay datos y el ultimo esta en A23:C23 lo que no se como solucionarlo en la macro ??

y no se que importancia tienen estos comandos proque si los anulo veo que no afecta para nada a la macro.

If ufila = 3 Then ufila = ufila + 2

'Cells(5, 14).Select[/CODE]

bueno el ultimo situa al raton en esa celda cuando acaba de ejecutar la macro.

Salud2.

Link to comment
Share on other sites

he resuelto a capon y por intuicion al no tener idea del leguaje vba, logre que grabara el registro en el rango que queria y desde la fila desde la fila 6 asi

Sub RegistrarDATOS()
ufila = Cells(Rows.Count, 14).End(xlUp).Row + 1
If ufila = 3 Then ufila = a + 1

'Agregar datos de la fila 2 a la fila a partir de la 5
Cells(ufila, 14) = Cells(5, 14)
Cells(ufila, 15) = Cells(5, 15)
Cells(ufila, 16) = Cells(5, 16)
Cells(ufila, 17) = Cells(5, 17)
Cells(ufila, 18) = Cells(5, 18)
Cells(ufila, 19) = Cells(5, 19)
Cells(ufila, 20) = Cells(5, 20)

'Limpiar fila 2
'Sheets("Hoja1").Range("A2:F2").Value = ""

'Enforcar en la celda A2
Cells(6, 14).Select
End Sub

[/CODE]

y como te comente antes en otro post de arriba, es que si puedes añadir a esta macro para que esto mismo lo haga en otras hojas del libro.

tambien me gustaria saber a que hace referencia estas instrucciones

[CODE]ufila = Cells(Rows.Count, 1).End(xlUp).Row + 1
If ufila = 3 Then ufila = ufila + 2

ufila = Cells(Rows.Count, 1).End(xlUp).Row + 1
If ufila = 6 Then ufila = ufila + 2[/CODE]

Salud2.

Link to comment
Share on other sites

Hola!

Otra manera de interpretar (comentada, para que veas qué significa cada cosa):

Sub Copia()
Dim pf&, uf&
' Defino la primera fila de copia
pf = 5
' Halle la última fila con datos, y súmele 1
uf = Range("A" & Rows.Count).End(xlUp).Row + 1
' Si la última fila es menor que la inicial, inicie en la fila inicial
If uf < pf Then uf = pf
With Range("A" & uf).Resize(, 6)
' Haga la copia
.Value = Range("A2").Resize(, 6).Value
' Céntrelo y póngale negrita
.HorizontalAlignment = xlCenter
.Font.Bold = True
End With
End Sub[/CODE]

Bendiciones!

Link to comment
Share on other sites

Hola!

Otra manera de interpretar (comentada, para que veas qué significa cada cosa):

Sub Copia()
Dim pf&, uf&
' Defino la primera fila de copia
pf = 5
' Halle la última fila con datos, y súmele 1
uf = Range("A" & Rows.Count).End(xlUp).Row + 1
' Si la última fila es menor que la inicial, inicie en la fila inicial
If uf < pf Then uf = pf
With Range("A" & uf).Resize(, 6)
' Haga la copia
.Value = Range("A2").Resize(, 6).Value
' Céntrelo y póngale negrita
.HorizontalAlignment = xlCenter
.Font.Bold = True
End With
End Sub[/CODE]

Bendiciones!

para copiar una fila solo me parece mas facil y rapida de acoplar a otra hoja, pero si q uiero copiar un rango mas amplio 2,3,4,5 ect.. de filas ???

Salud2.

Link to comment
Share on other sites

he resuelto a capon y por intuicion al no tener idea del leguaje vba, logre que grabara el registro en el rango que queria y desde la fila desde la fila 6 asi

Sub RegistrarDATOS()
ufila = Cells(Rows.Count, 14).End(xlUp).Row + 1
If ufila = 3 Then ufila = a + 1

'Agregar datos de la fila 2 a la fila a partir de la 5
Cells(ufila, 14) = Cells(5, 14)
Cells(ufila, 15) = Cells(5, 15)
Cells(ufila, 16) = Cells(5, 16)
Cells(ufila, 17) = Cells(5, 17)
Cells(ufila, 18) = Cells(5, 18)
Cells(ufila, 19) = Cells(5, 19)
Cells(ufila, 20) = Cells(5, 20)

'Limpiar fila 2
'Sheets("Hoja1").Range("A2:F2").Value = ""

'Enforcar en la celda A2
Cells(6, 14).Select
End Sub

[/CODE]

y como te comente antes en otro post de arriba, es que si puedes añadir a esta macro para que esto mismo lo haga en otras hojas del libro.

tambien me gustaria saber a que hace referencia estas instrucciones

[CODE]ufila = Cells(Rows.Count, 1).End(xlUp).Row + 1
If ufila = 3 Then ufila = ufila + 2

ufila = Cells(Rows.Count, 1).End(xlUp).Row + 1
If ufila = 6 Then ufila = ufila + 2[/CODE]

Salud2.

Hola:

Te explico que significa cada una

[CODE]
se dirige a la ultima fila de la primera columna y se posiciona una fila mas abajo
ufila = Cells(Rows.Count, 1).End(xlUp).Row + 1

Este codigo lo que haces es validar si se encuentra en la tercera fila y sumarle 2 para que sea 5 y se posicione en la fila 5(que es donde empezada a grabarse los datos)
If ufila = 3 Then ufila = ufila + 2

La misma explicacion tiene este codigo de la otra hoja.
ufila = Cells(Rows.Count, 1).End(xlUp).Row + 1
If ufila = 6 Then ufila = ufila + 2[/CODE]

Saludos

Link to comment
Share on other sites

busca en la ayuda de Excel VBA sobre la propiedad Resize

Unos pocos ejemplos:

Range("A1").Resize(2,3) <-- Hace referencia al Rango A1:C3
Range("A1").Resize(2) <-- Hace referencia al Rango A1:A2
Range("A1").Resize(,6) <-- Hace referencia al Rango A1:F1
Range("B3").Resize(2,4) <-- Hace referencia al Rango B3:E4[/CODE]

Bendiciones!

Link to comment
Share on other sites

al final con las indicaciones que se comenta la monte asi la macro

Sub Copia()
Dim pf&, uf&
' Defino la primera fila de copia,pf = 5 es la fila donde pega la copia
pf = 5
' Halle la última fila con datos, y súmele 1, A es donde empieza la copia
uf = Range("A" & Rows.Count).End(xlUp).Row + 1
' Si la última fila es menor que la inicial, inicie en la fila inicial
'Resize(2, 6) 2,6 es el numero total de celdas a copiar en este caso del rango A2:F3
If uf < pf Then uf = pf
With Range("A" & uf).Resize(2, 6)
' Haga la copia Resize(2, 6) 2,6 es el numero de la columna,Value = Range("A2") es donde empieza hacer la copia y Resize(2, 6).Value eldas a copiar en este caso del rango A2:F3
.Value = Range("A2").Resize(2, 6).Value
' Céntrelo y póngale negrita
.HorizontalAlignment = xlCenter
.Font.Bold = True

End With

End Sub[/CODE]

entonces (2,6) 2 es la fila y 6 la columna esto es asi no ???

y para finalizar esta macro, quisiera que esto mismo que hace la macro de registrar o copiar x valores de x rangos en una misma hoja, al ejecutar la macro los realice en otras hojas del libro al msimo tiempo.

Salud2.

Link to comment
Share on other sites

Archived

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

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 30.00 EUR
      Objetivo: 130.00 EUR
  • Files

  • Download Statistics

    • Files
      144
    • Comments
      87
    • Reviews
      25

  • Crear macros Excel

  • Posts

    • Claro. Espero que te sirva, es algo no muy elaborado. Es un Activex que interactúa con una tabla oculta en la columna A donde están los datos que compartiste de ejemplo. El rango lo puedes editar en la propiedades del Activex en ListFillRange Saludines   Ejemplo - Lista despegable devuelve valores.xlsb
    • Mil gracias, Sergio Esto es otra cosa....jejeje Bueno, María, pues a ver si lo puedes probar y me dices.   Proyectos Estándares.zip
    • Debes tener una hoja con el nombre Resultado, si la quieres cambiar, modifica la línea resaltada en la macro. Colócate en la hoja donde tienes los datos a combinar antes de ejecutar la macro,  Sub Combinar() Application.ScreenUpdating = False '------------------------------------------------------------ With Sheets("Resultado") '<-- Nombre de la hoja del resultado '------------------------------------------------------------ columnas = Cells(1, 1).End(xlToRight).Column .Cells.Clear Cells(1, 1).Resize(1, columnas).Copy .Cells(1, 1) Cells(1, 1).Resize(1, columnas).Copy .Cells(1, columnas + 1) fila = 1 For Z = 2 To Range("A" & Rows.Count).End(xlUp).Row For x = Z + 1 To Range("A" & Rows.Count).End(xlUp).Row fila = fila + 1 Range("A" & Z).Resize(1, columnas).Copy .Cells(fila, 1) Range("A" & x).Resize(1, columnas).Copy .Cells(fila, columnas + 1) Next Next .Select End With Application.StatusBar = False End Sub  
    • @tese1969, por favor, prueba de nuevo. He hecho algunos ajustes.
    • Hola a todos de nuevo, ya he encontrado el fallo y lo he resuelto. Era un problema con los limites de manejo de datos  en el array inicial al ir pasando de un grupo a otro. Estaban mal definidos. Ahora ya funciona correctamente. Lo comento para que no dediquéis más tiempo a este tema. Ya esta resuelto y como decía en el mensaje anterior ahora el macro es 50 veces más rápido que el original. Por curiosidad lo he probado con una hoja con 5000 grupos (más de 200000 filas implicadas). Con el macro original le cuesta unas 4 horas de completar, con el nuevo unos 5 minutos. Para las simulaciones que quiero hacer es un cambio brutal. Os dejo el archivo por si alguien tiene curiosidad. Muchas gracias por vuestro tiempo y atención. PermutaDatosGrupos_D_arr_RESUELTO.zip
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy