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
Pergunta
wellington Barbosa
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.