Macro para Converter para valor e descolar cursor para baixo

[molina.73]

Bom dia, preciso de uma macro que execute as seguintes ações:

Copiar a célula ativa, Colar Somente Texto na mesma célula ativa e Mover o cursor para a célula abaixo.

Já tentei utilizar o gravador de macros para fazer isso, mas ele não grava os movimentos do cursor. Tentei adaptar a macro gravada, acrescentando um comando MoveDown, mas aí a macro funcionou bem no modo de depuração, mas quando executo a macro associada a um botão ou tecla de atalho, a macro não move o cursor.

Grato!

[schiavinatto]

Ola @molina.73, segue uma sugestçao:

    Sub CoverterDescer
    	Execute "ConvertFormulaToValue"
    	Execute "GoDown"
    End sub
    
    ''''' SubMacros '''''
    Sub Execute ( oQue$ ) 
    CreateUnoService("com.sun.star.frame.DispatchHelper") _
    .executeDispatch(ThisComponent.CurrentController.Frame, ".uno:" & oQue & "", "", 0, Array())
    End Sub

---

ATENÇÂO:: Para dar mais detalhes a sua pergunta, use na pergunta ou abaixo. Não use Adicionar resposta para comentário. Grato.

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha a esquerda da resposta, para finalizar a pergunta.

[molina.73]

Olá, muito obrigado!!! Funcionou perfeitamente!!!