Ir para conteúdo
Fórum Script Brasil
  • 0

Como inserir fórmula do Excel dentro do código em VBA?


Elaine Melo

Pergunta

Oii gente!!! Estou fazendo um formulário em VBA... e tem uma célula que eu preciso que contenha uma fórmula... na própria planilha do Excel... (para onde serão jogados os dados do formulário)... existe alguma forma de inserir ali no código a fórmula que eu quero??

'Carregar os dados digitados nas caixas de texto para a planilha
ActiveCell.Value = cx_pac
ActiveCell.Offset(0, 1).Value = cx_data.Value
ActiveCell.Offset(0, 2).Value = Empty    

***Ao invés de empty, queria que entrasse aqui a seguinte fórmula:

=SE(DIA.DA.SEMANA(B7;2)=1;"Segunda-feira";SE(DIA.DA.SEMANA(B7;2)=2;"Terça-feira";SE(DIA.DA.SEMANA(B7;2)=3;"Quarta-feira";SE(DIA.DA.SEMANA(B7;2)=4;"Quinta-feira";SE(DIA.DA.SEMANA(B7;2)=5;"Sexta-feira";SE(DIA.DA.SEMANA(B7;2)=6;"Sábado";SE(DIA.DA.SEMANA(B7;2)=7;"Domingo";"")))))))

ActiveCell.Offset(0, 3).Value = cx_horario.Value
ActiveCell.Offset(0, 4).Value = cx_cod.Value
ActiveCell.Offset(0, 5).Value = cx_cirurgia.Value
ActiveCell.Offset(0, 6).Value = cx_hospital.Value
ActiveCell.Offset(0, 7).Value = cx_atendente.Value
ActiveCell.Offset(0, 8).Value = cx_exames.Value
ActiveCell.Offset(0, 9).Value = cx_status.Value
ActiveCell.Offset(0, 10).Value = cx_formapgto.Value
ActiveCell.Offset(0, 11).Value = cx_valor.Value

Agradeço desde já,

Obrigada!!!

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...