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
