[RESUELTO] Copiar una celda a otra con un macro

[SamaelAguilar]

Muy buen dia, soy nuevo utilizando opeen office y necesito hacer un macro que me copia la celda a1 a cuakuiqer hota celda , pero al grabar el macro pegue el contenido en a celda a4 y siempre me copia el resultado a la misma celda no a la especificada la sintaxis que tengo es esa pero no se como especificar que secopie a cualquiera.

Código: Seleccionar todo

Sub Main

End Sub


sub INICIO
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$A$4"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())


end sub

Editado por el moderador (mauricio) para cambiar el texto a mínusculas. Si no lo has hecho aún por favor lee la Guía de supervivencia

[mauricio]

Aquí hay información de como hacer lo que quieres: https://wiki.openoffice.org/wiki/ES/Man ... ndo_rangos

Si quieres simplificar las cosas, aquí hay otra forma: http://easydev.readthedocs.org/en/lates ... #clipboard

Saludos

[SamaelAguilar]

Es que tengo que hacer una copia de la hora exacta como para llevar un control de tiempo entonces puse un botón que le copie la sellada A1 que tiene la función ahora para copiar la hora exacta y luego pegarla en la celda para poder hacer un cálculo de minutos utilizados , pero al crear el macro lo que tengo en A1 siempre se pega en A4

[fornelasa]

Intenta con:

Código: Seleccionar todo

Sub INICIO
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
args1(0).Value = "$A$4"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
args1(0).Name = "Flags"
args1(0).Value = "D"
args1(1).Name = "MoveMode"
args1(1).Value = 4
dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args1())
end sub

[SamaelAguilar]

BUENO MUCHAS GRACIAS YA LOGRE CORREGIR ESE ERRO AHORA LOQUE NECESITO HACER ES UN MACRO DONDE BORRE BARIOS RANGO DE CELDA A LA VEZ POR INTENTE GRABAR EL MACRO SELECIONANDO VARIOS RANGO DE CELDAS , POR EJEMPLO A6:B11 Y DEPUSES DE LA F6:G11 Y ASI SUCESIVAMENTE PERO SOLO ME BORRA EL PRIMER RANGO

DE ANTEMANO MUCHAS GRACIAS POR SU AYUDA

[fornelasa]

Antes de volver a solicitar ayuda debemos leer las normas del foro y aplicarlas.
Por ejemplo 3 fallas al menos en las que hemos incurrido:
1) Escribir en mayusculas (ya se nos habia advertido)
2) Un tema a la vez
3) Marcar el tema como resuelto

https://forum.openoffice.org/es/forum/v ... ?f=3&t=795

Saludos, Federico.

[SamaelAguilar]

ok. perfecto mil disculpas , y gracias por todo

[SamaelAguilar]

perdon por mi ignorancia donde finalizo el tema como resuelto

[fornelasa]

Para marcar un tema como [RESUELTO] debemos:
1) Editar el primer mensaje de este debate y poner [RESUELTO] al inicio de la consulta.
2) Marcar el mensaje con el icono verde (palomita o nike como gustes llamarle) para que al final quede más o menos así
[RESUELTO] Copiar una celda a otra con un macro