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

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

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

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.

Que bueno que te haya servido.

Si Puedes copiar el codigo y adaptarlo a otra hoja. Cualquier cosa me comentas.

Saludos

no me explique bien, me refiero que en esta misma macro al igual que copia los datos en una hoja lo haga de tiron a mas hojas.

para adaptar la macro a otra columna que no se desde a:f que sea desde ejemplo L:P ???

Salud2.

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.

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.

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

Disculpa pero estaba ocupado, trataste de resolver tu problema?

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!

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!

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.

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

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!

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.

Bueno por mi parte lo doy por Solucionado este post, con la solucion de otro post que abri.

Solucionado.

Salud2.