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