Ir para conteúdo
Fórum Script Brasil

Elaine Melo

Membros
  • Total de itens

    5
  • Registro em

  • Última visita

Posts postados por Elaine Melo

  1. 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!!!

×
×
  • Criar Novo...