SOCORRO Meu excel cadastra um cliente em cima do outro

[Agatha Liss]

Gente tudo bom ? então, to com um probleminha aqui que tenho o botão cadastrar cliente.
Clico nele, dai o cadastro e coloco todos os dados do cliente e ele salva, ai vai pra planilha.
Porém quando vou cadastrar outro ele salva em cima do mesmo ao invés de cadastrar na linha de baixo.
Me socorrem Pleaseee...

PROGRAMAÇÃO:


 

Sub SALVAR_cadastro()

linha = 2
Do Until Sheets("BD").Cells(linha, 2) = "" 'CADASTRA itens
linha = linha + 1

        
Loop

 Sheets("BD").Cells(linha, 1) = Form_cadastro.Text_NOME.Text  '1
Sheets("BD").Cells(linha, 2) = Form_cadastro.Text_DATA.Text        '2
      
Sheets("BD").Cells(linha, 3) = Form_cadastro.Combo_SEXO.Text      '3
Sheets("BD").Cells(linha, 4) = Form_cadastro.Combo_ESTCIVIL.Text    '4
Sheets("BD").Cells(linha, 5) = Form_cadastro.Text_RG.Text        '5
Sheets("BD").Cells(linha, 6) = Form_cadastro.Text_CPF.Text   '6
Sheets("BD").Cells(linha, 7) = Form_cadastro.Text_DATANASC.Text   '7
Sheets("BD").Cells(linha, 8) = Form_cadastro.Text_ENDEREÇO.Text   '8
Sheets("BD").Cells(linha, 9) = Form_cadastro.Text_NUMERO.Text   '9
Sheets("BD").Cells(linha, 10) = Form_cadastro.Combo_UF.Text   '10
Sheets("BD").Cells(linha, 11) = Form_cadastro.Combo_CIDADE.Text   '11
Sheets("BD").Cells(linha, 12) = Form_cadastro.Text_CEP.Text   '12
Sheets("BD").Cells(linha, 13) = Form_cadastro.Text_TELEFONE.Text  '13
Sheets("BD").Cells(linha, 14) = Form_cadastro.Text_CELULAR.Text   '14
Sheets("BD").Cells(linha, 15) = Form_cadastro.Text_EMAIL.Text   '15
Sheets("BD").Cells(linha, 16) = Form_cadastro.Text_OBS.Text   '16

limpar_cadastro

End Sub

Sub limpar_cadastro()

Form_cadastro.Text_NOME.Text = ""
Form_cadastro.Text_DATA.Text = ""
Form_cadastro.Combo_SEXO.Text = ""
Form_cadastro.Combo_ESTCIVIL.Text = ""
Form_cadastro.Text_RG.Text = ""
Form_cadastro.Text_CPF.Text = ""
Form_cadastro.Text_DATANASC.Text = ""
Form_cadastro.Text_ENDEREÇO.Text = ""
Form_cadastro.Text_NUMERO.Text = ""
Form_cadastro.Combo_UF.Text = ""
Form_cadastro.Combo_CIDADE.Text = ""
Form_cadastro.Text_CEP.Text = ""
Form_cadastro.Text_TELEFONE.Text = ""
Form_cadastro.Text_CELULAR.Text = ""
Form_cadastro.Text_EMAIL.Text = ""
Form_cadastro.Text_OBS.Text = ""

End Sub

Sub atualizar_cadastro()
linha = 2
Do Until Sheets("BD").Cells(linha, 2) = "" 'ALTERA AS INFORMAÇOES DE BANCO
 If Sheets("BD").Cells(linha, 1) = Form_cadastro.Text_NOME.Text Then    '1
Sheets("BD").Cells(linha, 2) = Form_cadastro.Text_DATA.Text      '2
Sheets("BD").Cells(linha, 3) = Form_cadastro.Combo_SEXO.Text      '3
Sheets("BD").Cells(linha, 4) = Form_cadastro.Combo_ESTCIVIL.Text    '4
Sheets("BD").Cells(linha, 5) = Form_cadastro.Text_RG.Text        '5
Sheets("BD").Cells(linha, 6) = Form_cadastro.Text_CPF.Text   '6
Sheets("BD").Cells(linha, 7) = Form_cadastro.Text_DATANASC.Text   '7
Sheets("BD").Cells(linha, 8) = Form_cadastro.Text_ENDEREÇO.Text   '8
Sheets("BD").Cells(linha, 9) = Form_cadastro.Text_NUMERO.Text   '9
Sheets("BD").Cells(linha, 10) = Form_cadastro.Combo_UF.Text   '10
Sheets("BD").Cells(linha, 11) = Form_cadastro.Combo_CIDADE.Text   '11
Sheets("BD").Cells(linha, 12) = Form_cadastro.Text_CEP.Text   '12
Sheets("BD").Cells(linha, 13) = Form_cadastro.Text_TELEFONE.Text  '13
Sheets("BD").Cells(linha, 14) = Form_cadastro.Text_CELULAR.Text   '14
Sheets("BD").Cells(linha, 15) = Form_cadastro.Text_EMAIL.Text   '15
Sheets("BD").Cells(linha, 16) = Form_cadastro.Text_OBS.Text   '16

   
      
     MsgBox ("ALTERADO COM SUCESSO")
     
    limpar_cadastro
     
     End If

linha = linha + 1

Loop
End Sub

Sub excluir()

Dim plan As Worksheet
Set plan = Sheets("BD")

plan.Select
     
     linha = plan.Range("A:A").Find(CODIGO).Row
     plan.Cells(linha, 1).Select

linha = 2
Do Until Sheets("BD").Cells(linha, 1) = ""
If Sheets("BD").Cells(linha, 1) = Form_cadastro.Text_NOME.Text Then
resposta = MsgBox("deseja realmente excluir cliente", 3, "excluir")
    If resposta = vbYes Then
    Cells(linha, 1).Select
    ActiveCell.EntireRow.Delete
    'Sheets("bcdclientes").Cells(linha, 1) = "excluido"
    
    
   
    End If
    End If
  linha = linha + 1
  Loop
  

 

Form_cadastro.Text_NOME.Text = ""
Form_cadastro.Text_DATA.Text = ""
Form_cadastro.Combo_SEXO.Text = ""
Form_cadastro.Combo_ESTCIVIL.Text = ""
Form_cadastro.Text_RG.Text = ""
Form_cadastro.Text_CPF.Text = ""
Form_cadastro.Text_DATANASC.Text = ""
Form_cadastro.Text_ENDEREÇO.Text = ""
Form_cadastro.Text_NUMERO.Text = ""
Form_cadastro.Combo_UF.Text = ""
Form_cadastro.Combo_CIDADE.Text = ""
Form_cadastro.Text_CEP.Text = ""
Form_cadastro.Text_TELEFONE.Text = ""
Form_cadastro.Text_CELULAR.Text = ""
Form_cadastro.Text_EMAIL.Text = ""
Form_cadastro.Text_OBS.Text = ""
             
             
             MsgBox ("Registro excluído com sucesso!!!")
        
         
       

End Sub

Sub abrir_cadastro()
Form_cadastro.Show
End Sub

Sub abrir_pesquisa()
Form_pesquisa.Show
End Sub

 

[Erik Wesley]

Se o problema for apenas o cadastro, tenho sua solução. 

 

Sub SALVAR_cadastro()

Sheets("BD").Activate
Range("A1").Select 'Ponha aqui a 1º referencia. A celular respectiva do nome onde o BD começa.

'------------------------------- Verifica quais celulas estão preenchidas e segue as linhas até encontrar uma celula vazia.
if ActiveCell.value <> Empty Then 
ActiveCell.Offset(0,1).Select
End if

ActiveCell.Value = Text_NOME.Text
ActiveCell.Offset(0,1) = Text_DATA.Text
ActiveCell.Offset(0,2) = Combo_SEXO.Text
ActiveCell.Offset(0,3) = Combo_ESTCIVIL.Text
ActiveCell.Offset(0,4) = Combo_RG.Text
ActiveCell.Offset(0,5) = Combo_CPF.Text
ActiveCell.Offset(0,6) = Combo_DATANASC.Text
ActiveCell.Offset(0,7) = Combo_ENDEREÇO.Text
ActiveCell.Offset(0,8) = Combo_NUMERO.Text
ActiveCell.Offset(0,9) = Combo_UF.Text
ActiveCell.Offset(0,10) = Combo_CIDADE.Text
ActiveCell.Offset(0,11) = Combo_CEP.Text
ActiveCell.Offset(0,12) = Combo_TELEFONE.Text
ActiveCell.Offset(0,13) = Combo_CELULAR.Text
ActiveCell.Offset(0,14) = Combo_EMAIL.Text
ActiveCell.Offset(0,15) = Combo_OBS.Text

End Sub

Ponha este código no seu botão "SALVAR".

Caso queira deixar o cadastro de TODAS as opção obrigatório só avisar que eu faço uma linha extra.