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:
Pergunta
Elaine Melo
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.