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

Código VBA, alguém pode me ajudar por favor?


wellington Barbosa

Pergunta

Gostsaria de uma ajuda.
Criei um formulário, salvando os dados  em uma outra planilha, não consigo aplicar nenhuma formula com esses dados nessa outra planilha.
usei esse código.

Por favor alguém pode me ajudar?

Private Sub Salvar_Click()
linha = 12


Do Until Sheets("dados").Cells(linha, 3) = ""
linha = linha + 1

Loop
Sheets("dados").Cells(linha, 1) = cadastro.DATA.Text
Sheets("dados").Cells(linha, 2) = cadastro.IDPESQ.Text
Sheets("dados").Cells(linha, 3) = cadastro.RGHC1.Text
Sheets("dados").Cells(linha, 4) = cadastro.NOME.Text
Sheets("dados").Cells(linha, 5) = cadastro.DNASC.Text
Sheets("dados").Cells(linha, 6) = cadastro.Combo_uf.Text
Sheets("dados").Cells(linha, 7) = cadastro.Combo_cidade.Text
Sheets("dados").Cells(linha, 8) = cadastro.Combo_uf1.Text
Sheets("dados").Cells(linha, 9) = cadastro.Combo_cidade1.Text
Sheets("dados").Cells(linha, 10) = cadastro.celular.Text
Sheets("dados").Cells(linha, 11) = cadastro.FIXO.Text
Sheets("dados").Cells(linha, 12) = cadastro.EMAIL.Text
Sheets("dados").Cells(linha, 13) = cadastro.NDEPESSOASNARES.Text
Sheets("dados").Cells(linha, 14) = cadastro.RACACOR.Text
Sheets("dados").Cells(linha, 15) = cadastro.GENEROSEXO.Text
Sheets("dados").Cells(linha, 16) = cadastro.OCUPACAO.Text
Sheets("dados").Cells(linha, 17) = cadastro.ANOSDEESTUDO.Text
Sheets("dados").Cells(linha, 18) = cadastro.q1.Text
Sheets("dados").Cells(linha, 19) = cadastro.q2.Text
Sheets("dados").Cells(linha, 20) = cadastro.q3.Text
Sheets("dados").Cells(linha, 21) = cadastro.q4.Text
Sheets("dados").Cells(linha, 22) = cadastro.q5.Text
Sheets("dados").Cells(linha, 23) = cadastro.q6.Text
Sheets("dados").Cells(linha, 24) = cadastro.q7.Text
Sheets("dados").Cells(linha, 25) = cadastro.q8.Text
Sheets("dados").Cells(linha, 26) = cadastro.q9.Text
Sheets("dados").Cells(linha, 27) = cadastro.q10.Text
Sheets("dados").Cells(linha, 28) = cadastro.q11.Text
Sheets("dados").Cells(linha, 29) = cadastro.q12.Text
Sheets("dados").Cells(linha, 30) = cadastro.q13.Text
Sheets("dados").Cells(linha, 31) = cadastro.q14.Text
Sheets("dados").Cells(linha, 32) = cadastro.q15.Text
Sheets("dados").Cells(linha, 33) = cadastro.q16.Text
Sheets("dados").Cells(linha, 34) = cadastro.q17.Text
Sheets("dados").Cells(linha, 35) = cadastro.q18.Text
Sheets("dados").Cells(linha, 36) = cadastro.q19.Text
Sheets("dados").Cells(linha, 37) = cadastro.q20.Text
Sheets("dados").Cells(linha, 38) = cadastro.q21.Text
Sheets("dados").Cells(linha, 39) = cadastro.q22.Text

Sheets("estatistica").Cells(linha, 5) = cadastro.q1.Text
Sheets("estatistica").Cells(linha, 6) = cadastro.q2.Text
Sheets("estatistica").Cells(linha, 7) = cadastro.q3.Text
Sheets("estatistica").Cells(linha, 6) = cadastro.q4.Text
Sheets("estatistica").Cells(linha, 7) = cadastro.q5.Text
Sheets("estatistica").Cells(linha, 8) = cadastro.q6.Text
Sheets("estatistica").Cells(linha, 9) = cadastro.q7.Text
Sheets("estatistica").Cells(linha, 10) = cadastro.q8.Text
Sheets("estatistica").Cells(linha, 11) = cadastro.q9.Text
Sheets("estatistica").Cells(linha, 12) = cadastro.q10.Text
Sheets("estatistica").Cells(linha, 13) = cadastro.q11.Text
Sheets("estatistica").Cells(linha, 14) = cadastro.q12.Text
Sheets("estatistica").Cells(linha, 15) = cadastro.q13.Text
Sheets("estatistica").Cells(linha, 16) = cadastro.q14.Text
Sheets("estatistica").Cells(linha, 17) = cadastro.q15.Text
Sheets("estatistica").Cells(linha, 18) = cadastro.q16.Text
Sheets("estatistica").Cells(linha, 19) = cadastro.q17.Text
Sheets("estatistica").Cells(linha, 20) = cadastro.q18.Text
Sheets("estatistica").Cells(linha, 21) = cadastro.q19.Text
Sheets("estatistica").Cells(linha, 22) = cadastro.q20.Text
Sheets("estatistica").Cells(linha, 23) = cadastro.q21.Text
Sheets("estatistica").Cells(linha, 24) = cadastro.q22.Text

If Trim(Me.RGHC1.Value) = "" Then
MsgBox "Por favor, preecha o RGHC,campo obrigatório.", vbExclamation, "Aviso"
Me.RGHC1.SetFocus
Exit Sub
End If

MsgBox "Paciente cadastrado com sucesso.", vb, "Aviso"

Unload cadastro
cadastro.Show

End Sub

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,3k
    • Posts
      652,3k
×
×
  • Criar Novo...