Problema urgente con macro. (Gracias)
Tengo preparada una hoja de cálculo Excel que realiza cálculos automáticos a medida que se introducen los datos.
Estos datos son borrados y previamente deben ser guardados en otra hoja para poder realizar las correspondientes comparaciones.
He preparado una macro que me copia los resultados a una columna de la hoja de resultados, pero no se como darle la instrucción para que la copia siguiente la realice en la siguiente columna y así sucesivamente.
La macro preparada es la siguiente:
Sub copiar()
' copiar Macro
' Macro grabada el 18/10/2006 por JUAN
'
'
Range("AI2:AI74").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja1").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operationfiltered=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Te agradeceré cualquier ayuda o sugerencia.
Un abrazo.
Estos datos son borrados y previamente deben ser guardados en otra hoja para poder realizar las correspondientes comparaciones.
He preparado una macro que me copia los resultados a una columna de la hoja de resultados, pero no se como darle la instrucción para que la copia siguiente la realice en la siguiente columna y así sucesivamente.
La macro preparada es la siguiente:
Sub copiar()
' copiar Macro
' Macro grabada el 18/10/2006 por JUAN
'
'
Range("AI2:AI74").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja1").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operationfiltered=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Te agradeceré cualquier ayuda o sugerencia.
Un abrazo.
3 Respuestas
Respuesta de agca73
1
Juan:
Solo hay que hacer algunas ligeras modificaciones aquí te envío:
Sub prueba1()
Range("AI2:AI74").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja1").Select
Range("A1").Select
Selection.End(xlToRight).Select
ActiveCell.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
End Sub
Estoy seguro te servirá.
Si tienes dudas me escribes, si no
Solo hay que hacer algunas ligeras modificaciones aquí te envío:
Sub prueba1()
Range("AI2:AI74").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja1").Select
Range("A1").Select
Selection.End(xlToRight).Select
ActiveCell.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
End Sub
Estoy seguro te servirá.
Si tienes dudas me escribes, si no
Respuesta de caranbis
1
Una pregunta antes de contestarte:
Veo que estas pegando los datos a partir de la celda "a1", mi pregunta es:
Esta primer celda, ¿o primer dato siempre estará llena?
¿Siempre habrá un dato (eneste caso) en "a1"?
Veo que estas pegando los datos a partir de la celda "a1", mi pregunta es:
Esta primer celda, ¿o primer dato siempre estará llena?
¿Siempre habrá un dato (eneste caso) en "a1"?
Suponiendo que la primer celda siempre estará llena, tu macro seria:
'
'
'
Range("AI2:AI74").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja1").Select
Range("A1").Select
While ActiveCell <> ""
ActiveCell.Offset(0, 1).Select
Wend
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
'
'
'
Range("AI2:AI74").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja1").Select
Range("A1").Select
While ActiveCell <> ""
ActiveCell.Offset(0, 1).Select
Wend
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Respuesta de inocampo
1
Puedes enviarme el archivo a [email protected]?
pra hacer la macro. debemos hacer un bucle do until o do while segun lo que veamos.
pra hacer la macro. debemos hacer un bucle do until o do while segun lo que veamos.