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

[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

[Alyson Ronnan Martins]

Boa noite @wellington Barbosa, não entendi o está procurando.
Esta querendo mudar a planilha que vai receber as informações do formulário?

@wellington Barbosa

[Frank K Hosaka]

Eu criei duas planilhas (estatistica e dados) um formulário (cadastro) com apenas duas caixas de texto (RGHC1) e (q1), e também um botão (Salvar). Através do botão Salvar, criei o seguinte código:

Sub Salvar_Click()
    linha = 1
    Do Until Sheets("dados").Cells(linha, 3) = ""
        linha = linha + 1
    Loop
    Sheets("dados").Cells(linha, 3) = cadastro.RGHC1.Text
    Sheets("estatistica").Cells(linha, 5) = cadastro.q1.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
MsgBox "Olá mundo!"
cadastro.Show

End Sub

Com o formulário em foco, usei o botão executar, e assim ele gravou na planilha dados o conteúdo da caixa RGHC1 na planilha dados e o conteúdo da caixa q1 na planilha estatistica. Continuei com o teste, e os valores seguintes foram gravadas nas mesmas planilhas só que na linha seguinte. Não sei onde está o problema, o único problema que eu encontrei é que o seu código trabalha com dezenas e dezenas de caixas no formulário, não sei como você montou o seu formulário, mas o meu que só tem duas caixas ficou assim: