Inicio > Microsoft Excel > karl82 > Copiar celdas a hoja2

Copiar celdas a hoja2

Experto:
Usuario: Anónimo Fecha: 02/09/2008
Valoración: (3,00 sobre 5) Categoría: Microsoft Excel
16/07/2008
Usuario
Que tal, espero no molestarte con mi problemita, tengo varios días dandole vuelta.
Mira en la "hoja1" tengo resultados de formulas de la celda C16 a R16, los cuales quiero copiar por medio de una macro a la "hoja2" pero empezando en la celda C17 a R17, y que ya copiadas me regrese a la celda C16 de la "hoja1" y al ejecutar de nuevo la macro me los copie,pero ahora en la celda C19 a R 19 de la "hoja2" y así sucesivamente. Espero me puedas ayudar. DE antemano Gracias
16/07/2008
agui13, experto respondiendo en Microsoft Excel
Experto
no te preocupes no hay problema, pero una consulta dime y necesariamente se tiene que volver a ejecutar la macro para que se copie en C19 a R19 porque no defrente copiar en C17 a R17 y C19 a R19? ahh y hasta cuando se tiene que hacer esas repeticiones? o solo se debe copiar en C17 a R17 y en C19 a R19 y se acabo? o continua? y siempre el salto va a ser de 2 en 2?
17/07/2008
Usuario
Gracias por tu pronta respuesta, mira cómo los resultados de las formulas me salen solamente en C16 a R16, lo que necesito es que por medio de un boton de comando, se copien en C17 a R17 en la "hoja2", y regrese a C16 a r16, y yo haga manualmente cambios en los resultados y al apretar nuevamente el boton de comando se copien C19 a R19, as´hasta C40 a R40 y en cualquier momento yo borrar lo que se grabó en la "hoja2" lo que se haya grabado de  C17:C40 a R17:R40 estos ´son los rangos donde quiero que se grabe, espro si me haya explicado. Agradeciendote d antemano tu ayuda.
17/07/2008
agui13, experto respondiendo en Microsoft Excel
Experto
ok dejame ver la manera de hacerlo, pero dime y que pasa con C18:R18? porque necesariamente te tienes que saltear a C19:R19?
17/07/2008
Usuario
Por problemas de formato, en c18 A R18 vienen las explicaciones de los resultados de C17 a R17, y así sucesivamente
17/07/2008
agui13, experto respondiendo en Microsoft Excel
Experto
OK, entonces siempre se va a saltear una fila?, espera un momento mas y te tengo listo el codigo. Saludos.
17/07/2008
agui13, experto respondiendo en Microsoft Excel
Experto
mira el codigo ya casi esta el detalle esque aun no logro hacer que haga el salto es decir que salte una linea, dime algo lo que escribiras en esa linea vacia osea en C18 R18 que cosa es? esos valores que pongas ahi Van a Cambiar? la macro no puede correr si esque dejo alguna espacio en blanco entre fila y fila?
17/07/2008
agui13, experto respondiendo en Microsoft Excel
Experto
Hola nuevamente, pega esta formula en un modulo, ojo q tus hojas tienen que llamarse hoja1 y hoja2 eh
Sub formula()
Sheets("Hoja1").Select
ActiveSheet.Range("C16").Select
i = 0
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
i = i + 1
Loop
d = 16
Sheets("Hoja2").Select
ActiveSheet.Range("C17").Select
ActiveCell.formula = "=Hoja1!C" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!D" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!E" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!F" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!G" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!H" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!I" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!J" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!K" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!L" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!M" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!N" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!O" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!P" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!Q" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!R" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
'ActiveSheet.Range("C19").Select
'ActiveCell.FormulaR1C1 = "d"
Sheets("Hoja2").Select
ActiveSheet.Range("C17").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.FormulaR1C1 = "d"
For x = 1 To i
ActiveCell.formula = "=Hoja1!C" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!D" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!E" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!F" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!G" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!H" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!I" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!J" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!K" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!L" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!M" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!N" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!O" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!P" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!Q" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
ActiveCell.formula = "=Hoja1!R" & Format(d) & ""
ActiveCell.Offset(0, 1).Select
d = d + 1
Next
ActiveSheet.Range("C17").Select
Do While ActiveCell <> Empty
ActiveCell.Offset(2, 0).Select
Loop
ActiveCell.formula = " "
Range("C17:R17").Select
Selection.ClearContents
Range("C18:R100").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Hoja1").Select
ActiveSheet.Range("C16").Select
End Sub
Espero te sirva, saludos y no olvides cerrar la pregunta.
17/07/2008
Usuario
Que tal, oye me aparece este error: "se ha producido el error '1004' en tirmpo de ejecucion, error en el método Select de la clase Range.
Espero tú respuesta
17/07/2008
agui13, experto respondiendo en Microsoft Excel
Experto
Hola, me puedes mandar tu archivo para solucionar en definitiva?, mi correo es etcbarzola@onp.gob.pe porfavor mandamelo zipeado.
17/07/2008
Usuario
Que tal, oye si esta bien el correo que me diste, porque me lo regresa, ya lo zipe, pero aun así me regresa el correo
18/07/2008
agui13, experto respondiendo en Microsoft Excel
Experto
que raro seguro pesa mucho trata de hacerlo mas livitano que no pese tanto mandame solo la informacion importante x ejemplo si son mil mandame solo 500 los necesarios con los que pueda probar la macro.
02/09/2008
Usuario
Bien. Una respuesta aceptable.
Compártelo
Más opciones
Enlaces patrocinados
Respuestas relacionadas
Inicio | Publicidad | Condiciones de uso | Declaración de privacidad | Blog
© 1999 - 2008 Todoexpertos.com. Todos los derechos reservados. Desarrollado por Avanzis.