Ir para conteúdo
Fórum Script Brasil

Agatha Liss

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Tudo que Agatha Liss postou

  1. 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
×
×
  • Criar Novo...