Olá,
Em uma planilha organizada da seguinte maneira [1] desejo fazer o seguinte [2]:
[1]
O arquivo possui 39 planilhas numeradas de 1 até 39 com formato idêntico.
Uma planilha vazia com número 40 porém posicionada em primeiro lugar
[2]
Desejo que a célula A1 das 39 planilhas sejam copiadas para as células A1, A2,
A3, ... da planilha 40 que estava vazia antes da operação.
[3]
Tentei fazer o seguinte: a) liguei o gravador de macros;
b) fui na planilha nº 2 e copiei a célula A1;
c) colei na célula A1 da planilha 40;
d) desliguei o gravador.
Com o editor basic coloquei um "for" para automatizar a tarefa. Não funcionou.
Alguém pode me ajudar?
O código está abaixo:
sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
dim contador as integer
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
For contador = 2 to 39
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Nr"
rem args1(0).Value = 2 -> ESTA LINHA ERA A ORIGINAL
args1(0).Value = contador
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args1())
rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$A$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())
rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "Nr"
args4(0).Value = 1
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args4())
rem ----------------------------------------------------------------------
dim args5(0) as new com.sun.star.beans.PropertyValue
args5(0).Name = "ToPoint"
args5(0).Value = "$A$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args5())
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
Next contador
end sub
--
Sávio Martins Ramos - Arquiteto
Rio de Janeiro ICQ 174972645
Pirataria não! Seja livre: Linux
http://www.debian.org
_______________________________________________________
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular.
Registre seu aparelho agora!
http://br.mobile.yahoo.com/mailalertas/
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
