Macro para Dar Foco em determinada célula

MarcoSalles · February 10, 2019, 11:08pm

Boa noite

Como dar foco ao fechar uma planilha e retornar ou ir a outra e dar foco em determinado controle ou Celula para posterior edição

Obg

schiavinatto · February 10, 2019, 11:51pm

Você quer que sempre que abrir o arquivo, a mesma célula esteja ativa ?

MarcoSalles · February 12, 2019, 3:21pm

Boa tarde Gilberto . Isso mesmo so que via Macro pois tenho um Macro que direnciona ara determinadas
planilhas e dessas retornam . Obg

schiavinatto · February 13, 2019, 5:02pm

Se entendi a macro é da planilha onde deve retornar, então na macro direcione para ir a célula que desejar.

Ou melhor poste a macro. edite sua pergunta e acrescente.

MarcoSalles · February 16, 2019, 3:31pm

O que eu queria era ao executar um Macro que retornaria a uma determinada Planilha ( Este Codigo de ir de uma planilha a outra vc mesmo em outra ocasião ja postou ) . Ao retornar para a Planilha Destino uma célula especifica desta Planilha receberia o Foco .
Segue o código que aparentemente faz isso . Caso tenha código melhor ou algo a acrescentar por favo não exite

    rem Esta Subseção do Macro Levará o Foco para a CELULA I87
    rem definindo as  variáveis
    dim document   as object
    dim dispatcher as object
    rem --
    rem Acessando o documento
    document   = ThisComponent.CurrentController.Frame
    dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

    rem ---Selecionando a Celula no Meu caso é I87  ---
    dim args1(0) as new com.sun.star.beans.PropertyValue
    args1(0).Name = "ToPoint"
    args1(0).Value = "$I$87"
    dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

schiavinatto · February 16, 2019, 4:35pm

Em sua pergunta "Como dar foco ao fechar uma planilha e retornar ou ir a outra e dar foco em determinado controle ou Célula para posterior edição’, quando menciona planilha, é aba ou arquivo ?

MarcoSalles · February 17, 2019, 10:25am

Obrigado Gilberto

É Aba ( Outra Planilha do mesmo Documento ) .

schiavinatto · February 17, 2019, 10:39am

Vamos ver se entendi: Você esta em uma planilha A, faz alguma coisa, aciona a macro que lhe envia para a planilha B, e feito alguma e quer retornar para a célula que estava na planilha A. É isso ?

.

Poderia ser outra macro ? Pois de qualquer modo, teria que acionar algo para continuar…

.

Teria como postar um exemplo deste arquivo. ( Edite sua pergunta para anexar ).

.

Contato direto: gilberto@schiavinatto.com e/ou gilbertoschiavinatto@yahoo.com.br

schiavinatto · February 19, 2019, 2:43am

@MarcoSalles disse:

"Boa noite Gilberto

As Planilhas fazem parte de um mesmo documento

“Você esta em uma planilha A, faz alguma coisa, aciona a macro que lhe envia para a planilha B, e feito alguma e quer retornar para a célula que estava na planilha A. É isso ?”

Da Planilha B gostaria de retornar para a Planilha A ou FOCANDO em uma Célula ou dando FOCO em um Controle

Muito obrigado"

Marcos, Não use resposta para comentar

schiavinatto · February 19, 2019, 2:46am

Duas macros uma vai para a Planilha B célula tal

após alteração aciona outra macro que retorna a Planilha A ( vai voltar para a célula que estava ).

MarcoSalles · February 20, 2019, 4:27pm

Boa tarde . Não necessariamente duas Macro . Uma Macro que executa alguma algo e que dependendo da foco em uma determinada Célula de uma determinada Planilha

O Código que eu postei anteriormente funciona , so pegunto se ha como simplificar

rem Esta Subseção do Macro Levará o Foco para a CELULA I87
rem definindo as  variáveis
dim document   as object
dim dispatcher as object
rem --
rem Acessando o documento
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ---Selecionando a Celula no Meu caso é I87  ---
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$I$87"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())