Criei uma macro que organiza diversos campos(células) em uma planilha.
Preciso que após a organização, o cursor retorne para a célula ativa.
Como faço essa macro?
Muito obrigado pela atenção.
Criei uma macro que organiza diversos campos(células) em uma planilha.
Preciso que após a organização, o cursor retorne para a célula ativa.
Como faço essa macro?
Muito obrigado pela atenção.
Mas o cursor, sempre esta em uma célula ativa !!!
Você quer que volte em uma célula especifica, é isso ?
Não.
Eu quero que retorne na última célula em que eu escrevi.
É uma planilha com cerca de 500 linhas e 220 colunas e, de tempos em tempos, eu vou acrescentando dados e tenho que ordenar em ordem alfabética. Quando eu ordeno, a visualização e o cursor vão para a última linha, daí eu tenho que voltar/procurar manualmente a célula (linha/coluna) que eu estava trabalhando.
É possível fazer isso através de uma macro?
Teoricamente a classificação terá de ser acionada via macro, e esta antes de classificar guardar em variável a localização do cursor.
algo assim
pegar endereço célula atual
guardar em variável
classificar
voltar para célula inicial usando a variável
Segue arquivo com Macro teste, observações no arquivo.
Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha a esquerda da resposta, para finalizar a pergunta.
ATENÇÂO:: Caso queira dar mais detalhes a sua pergunta, use editar na pergunta ou comentar abaixo. Grato.
Deu certo.
Muito OBRIGADO pelo arquivo de exemplo, sem ele eu não conseguiria ter feito.
@schiavinatto como sempre solucionando os problemas de forma ágil. Por isso que sou seu fã
A propósito, achei muito legal a inserção da Barra de Menu
com a inserção das macros
nela.
Já copiei a ideia
Boa noite, tentei baixar a planilha, porem não encontrei a macro nela, soncegue me ajudar, é exatamente o que eu estava procurando
A macro esta no lugar dela !!!
REM ***** BASIC *****
'================================================|
Sub OrdenarRetornar
'================================================|
Dim oSel As Object
Dim Var1 As String
oSel = ThisComponent.getCurrentSelection()
Var1 = oSel.AbsoluteName
Dim document As Object, dispatcher As Object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "A2:A16"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
dispatcher.executeDispatch(document, ".uno:SortAscending", "", 0, Array())
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = Var1
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())
end Sub