Pergunte aqui
1

Inserir uma fórmula em determinada célula via Macro

perguntadas 2017-07-21 16:08:52 +0100

esta mensagem está marcada como wiki comunitário

Esta mensagem é um wiki. Qualquer pessoa com karma >75 é bem-vinda para a melhorar.

Bom dia,

Gostaria de saber se podem me ajudar com a seguinte dúvida:

Preciso criar uma macro que insira na célula F3 a fórmula a seguir:

=SE(E3<>"";SE(E4<>"";F3;SE(E5<>"";F3&" "&F4;SE(E6="";F3&" "&F4&" "&F5&" "&F6;F3&" "&F4&" "&F5))))

Estou usando a versão 5.0.6.3

Muito obrigado.

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

2 Respostas

2

respondidas 2017-07-21 17:03:47 +0100

imagem do gravatar de Grafeno

Bom dia,


Adapte a macro abaixo, colocando o nome da planilha onde a célula está:

Sub InserirFormula
Dim oDoc As Object, oPlan As Object, oCelula As Object

   oDoc = ThisComponent
   oPlan = oDoc.Sheets.getByName("Planilha1") '<< nome da sua planilha aqui'
   oCelula = oPlan.getCellRangeByName("F3")

   oCelula.FormulaLocal = "=SE(E3<>"""";SE(E4<>"""";F3;SE(E5<>"""";F3&"" ""&F4;SE(E6="""";F3&"" ""&F4&"" ""&F5&"" ""&F6;F3&"" ""&F4&"" ""&F5))))"
End Sub

Considerações: No código é preciso primeiro colocar a fórmula entre aspas. E se dentro da fórmula existirem aspas, como no seu caso, é preciso usá-las em dobro. Assim, as ocorrências "" devem vir """" e " " deve aparecer "" "". Do contário, dará erro de sintaxe do basic.


Atte,

editar assinalar como ofensivo Excluir Link mais
0

respondidas 2017-07-26 13:02:29 +0100

imagem do gravatar de Elias Mendes

Bom dia,

Muito obrigado pela ajuda, deu certo. Não poderia ter sido mais claro!

Obrigado também pela dica com relação as aspas, com certeza isso resolverá muitos problemas que eu tenho nesse sentido. Realizei diversas pesquisas na internet, contudo, não encontrei nada falando sobre isso!

Muito, muito obrigado!

editar assinalar como ofensivo Excluir Link mais
Login/Registrar para responder

Ferramentas de perguntas

Estatísticas

Perguntadas: 2017-07-21 16:08:52 +0100

Lidas: 49 vezes

Última atualização: Jul 26