Excel - Macros para copiar de fila en fila

 
Vista:
Imágen de perfil de eduardo

Macros para copiar de fila en fila

Publicado por eduardo (3 intervenciones) el 06/01/2014 17:42:41
Buen dia, mi consulta es que yo quiero copiar datos de la hoja 1 hacia la hoja 2 pero que me copia en la primera fila y al regresar a la hoja 1 y agregar otro valor en la celda copiada que me pegue nuevamente en la hoja 2 pero en la fila seguida de la que ya se copio...no estoy muy seguro pero me parece que es con la funcion "FOR" pero no sale porfa es urgente solo necesito una explicación básica junto con la codificación para yo aplicarlo a lo que estoy realizando..muchas gracias de ante mano estamos para apoyarnos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

Macros para copiar de fila en fila

Publicado por JuanC (1237 intervenciones) el 06/01/2014 18:30:04
te aclaro que 'FOR' no es ninguna función...
un ejemplito, espero que lo entiendas...

1
2
3
4
5
6
Dim i%
Dim rngPivot As Range
Set rngPivot = Hoja2.Range("A1")  '//1er celda del rango de destino...
For i = 0 To 10
    rngPivot.Offset(i).Value = i
Next

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Macros para copiar de fila en fila

Publicado por Eduardo Fabian (3 intervenciones) el 06/01/2014 19:47:19
Juan gracias por la aclaración, a loq eu hiba mi consulta creo no me explique bien es que por ejemple en la hoja 1 digamos en la celda A1 escribo cualquier cosas y que al usar las macros este contenido se copie a la hoja 2 en la celda A1 y que al volver a la hoja 1 y vuelva escribir otra cosa en la celda A1 y vuelva a ejecutar las macros me copia en la hoja 2 en la celda A2 osea me refiere que copie cuando vea que se encuentre vacía ..asi sucesivamente es como una base de datos algo parecido. espero me entiendas y puedas ayudarme
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JuanC

Macros para copiar de fila en fila

Publicado por JuanC (1237 intervenciones) el 06/01/2014 21:03:59
sí, te entendí perfectamente; el ejemplito de código que te hice es suficiente para resolver ese problema...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Macros para copiar de fila en fila

Publicado por Juanjo (494 intervenciones) el 08/01/2014 08:43:07
Muy buenas.

Yo tengo que reconocer que tampoco te he entendido, JuanC. De alguna manera le explicas como funciona "FOR", pero no creo que eso le ayude mucho. Yo por mi parte propondría esta macro:

Sub añadir()
fila = Sheets("Hoja2").Range("A60000").End(xlUp).Row + 1
Sheets("Hoja2").Cells(fila, 1) = Cells(1, 1)
End Sub

Un saludo. Juanjo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de JuanC

Macros para copiar de fila en fila

Publicado por JuanC (1237 intervenciones) el 08/01/2014 10:46:50
mi idea es simple (creo), usar una celda pivot y desplazarme a partir de allí mediante Offset...
controlando el valor de 'i' podemos ubicarnos en cualquier parte... en fin, son ideas...

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar