Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Tony - Recife PE

cadastro de clientes com VBA

Por , em Visual Basic

Recommended Posts

Tony - Recife PE    0

Tony - Recife PE
Postado

Bem gente gostaria de pedir a ajuda de vocês!!!

 

Estou criando um banco de dados no ecxel utilizando o VBA que basicamente ocorem 4 atividades:

 

1º Cadastramento de clientes;

2º Pesquisa de clientes já cadastrados;

3º Alteração de dados já cadastrados;

4º Inserção de dados em celulas pertencente a mesma linha conforme cliente selecionado por nome ou CPF/CNPJ.

 

Peço a ajuda de vocês pois entou iniciando no VB e só consegui desenvolver o primeiro comando, entretanto os demais estou com grande dificuldade, pois ambos possuiem a mesma condicional de localizar.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Claudio Neto    3

Claudio Neto
Postado

O tópico foi dividido pois não apresenta nenhuma semelhança de assunto com o tópico que você havia postado.

Por favor, para novos assuntos, abra novos tópicos, após pesquisar no fórum e não encontrar resposta para o que precisa.

 

Poste a parte do código que já conseguiu desenvolver, mas te digo que já está começando errado. Se precisa de um sistema para controle de banco de dados, não deveria usar o excel. Excel não é banco de dados, é uma planilha, acho que terá um melhor resultado se desenvolver sua aplicação com Access.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Tony - Recife PE    0

Tony - Recife PE
Postado

Claudio Neto,

 

Peço desculpas pela gaf. de não ter abrto um novo tópico, pois sou marinheiro de primeira viagem postamdo em forúns. Te agradeço a recomendação, entretanto trata-se na verdade de um gerenciamento de carteira de clientes para re-agendamento automático, após ser dado baixa o resultado da visitação. A enpresa a qual represento não quer investir em novas licenças para a utilização do Access e cada vendedor irá manipular sua própria sistemática através da planilha, com cerca de 400 clientes cada, por este motivo estou utilizando o ecxel para lidar com estes dados.

 

Segue abaixo os códigos utilizados na planilha:

 

1º - O primeiro botão da userfrom (Cadastrar):

 

Private Sub CommandButton1_Click()
Rem inserir uma linha
Selection.EntireRow.Insert
Rem o Empty Limpa os Textbox
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox7 = Empty
TextBox8 = Empty
TextBox9 = Empty
TextBox10 = Empty
TextBox11 = Empty
TextBox12 = Empty
TextBox13 = Empty
TextBox14 = Empty
TextBox15 = Empty
TextBox16 = Empty
TextBox17 = Empty
TextBox18 = Empty
TextBox19 = Empty
TextBox20 = Empty
TextBox21 = Empty
TextBox22 = Empty
TextBox23 = Empty
TextBox24 = Empty
TextBox25 = Empty
TextBox26 = Empty
TextBox27 = Empty
TextBox28 = Empty
TextBox29 = Empty
TextBox30 = Empty
TextBox31 = Empty
Rem A declaração Textbox1.SetFocus Envía o cursor ao Textbox1 para voltar a capturar os dados
TextBox1.SetFocus
End Sub
2º - O segundo botão da userfrom (Confirmar cadastro):

Private Sub CommandButton2_Click()
'
' Botão218_Clique Macro
'

'
	Range("A9:C9").Select
	Selection.AutoFill Destination:=Range("A9:C1009"), Type:=xlFillDefault
	Range("A9:C1009").Select
	Selection.Borders(xlDiagonalDown).LineStyle = xlNone
	Selection.Borders(xlDiagonalUp).LineStyle = xlNone
	With Selection.Borders(xlEdgeLeft)
		.LineStyle = xlContinuous
		.ColorIndex = 0
		.TintAndShade = 0
		.Weight = xlThin
	End With
	With Selection.Borders(xlEdgeTop)
		.LineStyle = xlContinuous
		.ColorIndex = 0
		.TintAndShade = 0
		.Weight = xlThin
	End With
	With Selection.Borders(xlEdgeBottom)
		.LineStyle = xlContinuous
		.ColorIndex = 0
		.TintAndShade = 0
		.Weight = xlThin
	End With
	With Selection.Borders(xlEdgeRight)
		.LineStyle = xlContinuous
		.ColorIndex = 0
		.TintAndShade = 0
		.Weight = xlThin
	End With
	With Selection.Borders(xlInsideVertical)
		.LineStyle = xlContinuous
		.ColorIndex = 0
		.TintAndShade = 0
		.Weight = xlThin
	End With
	With Selection.Borders(xlInsideHorizontal)
		.LineStyle = xlContinuous
		.ColorIndex = 0
		.TintAndShade = 0
		.Weight = xlThin
	End With
	Range("A9:B1009").Select
	Selection.Borders(xlDiagonalDown).LineStyle = xlNone
	Selection.Borders(xlDiagonalUp).LineStyle = xlNone
	With Selection.Borders(xlEdgeLeft)
		.LineStyle = xlContinuous
		.ColorIndex = 0
		.TintAndShade = 0
		.Weight = xlMedium
	End With
	With Selection.Borders(xlEdgeTop)
		.LineStyle = xlContinuous
		.ColorIndex = 0
		.TintAndShade = 0
		.Weight = xlMedium
	End With
	With Selection.Borders(xlEdgeBottom)
		.LineStyle = xlContinuous
		.ColorIndex = 0
		.TintAndShade = 0
		.Weight = xlMedium
	End With
	With Selection.Borders(xlEdgeRight)
		.LineStyle = xlContinuous
		.ColorIndex = 0
		.TintAndShade = 0
		.Weight = xlMedium
	End With
	With Selection.Borders(xlInsideVertical)
		.LineStyle = xlContinuous
		.ColorIndex = 0
		.TintAndShade = 0
		.Weight = xlThin
	End With
	With Selection.Borders(xlInsideHorizontal)
		.LineStyle = xlContinuous
		.ColorIndex = 0
		.TintAndShade = 0
		.Weight = xlThin
	End With
	Range("A9:A1009").Select
	Selection.Borders(xlDiagonalDown).LineStyle = xlNone
	Selection.Borders(xlDiagonalUp).LineStyle = xlNone
	With Selection.Borders(xlEdgeLeft)
		.LineStyle = xlContinuous
		.ColorIndex = 0
		.TintAndShade = 0
		.Weight = xlMedium
	End With
	With Selection.Borders(xlEdgeTop)
		.LineStyle = xlContinuous
		.ColorIndex = 0
		.TintAndShade = 0
		.Weight = xlMedium
	End With
	With Selection.Borders(xlEdgeBottom)
		.LineStyle = xlContinuous
		.ColorIndex = 0
		.TintAndShade = 0
		.Weight = xlMedium
	End With
	With Selection.Borders(xlEdgeRight)
		.LineStyle = xlContinuous
		.ColorIndex = 0
		.TintAndShade = 0
		.Weight = xlMedium
	End With
	Selection.Borders(xlInsideVertical).LineStyle = xlNone
	With Selection.Borders(xlInsideHorizontal)
		.LineStyle = xlContinuous
		.ColorIndex = 0
		.TintAndShade = 0
		.Weight = xlThin
	End With
	Range("A9:C1009").Select
	Selection.Borders(xlDiagonalDown).LineStyle = xlNone
	Selection.Borders(xlDiagonalUp).LineStyle = xlNone
	With Selection.Borders(xlEdgeLeft)
		.LineStyle = xlContinuous
		.ColorIndex = 0
		.TintAndShade = 0
		.Weight = xlMedium
	End With
	With Selection.Borders(xlEdgeTop)
		.LineStyle = xlContinuous
		.ColorIndex = 0
		.TintAndShade = 0
		.Weight = xlMedium
	End With
	With Selection.Borders(xlEdgeBottom)
		.LineStyle = xlContinuous
		.ColorIndex = 0
		.TintAndShade = 0
		.Weight = xlMedium
	End With
	With Selection.Borders(xlEdgeRight)
		.LineStyle = xlContinuous
		.ColorIndex = 0
		.TintAndShade = 0
		.Weight = xlMedium
	End With
	With Selection.Borders(xlInsideHorizontal)
		.LineStyle = xlContinuous
		.ColorIndex = 0
		.TintAndShade = 0
		.Weight = xlThin
	End With
	Rows("1009:1009").Select
	Selection.Delete Shift:=xlUp
	Range("S9:T9").Select
	Selection.AutoFill Destination:=Range("S9:T1008"), Type:=xlFillDefault
	Range("S9:T1008").Select
	Columns("AM:IV").Select
	Range("IV1").Activate
	Selection.EntireColumn.Hidden = False
	Selection.End(xlToLeft).Select
	Range("AM9:BR9").Select
	Selection.AutoFill Destination:=Range("AM9:BR1008"), Type:=xlFillDefault
	Range("AM9:BR1008").Select
	Range("A5:AM1008").Select
	Range("A1008").Activate
	Selection.Borders(xlDiagonalDown).LineStyle = xlNone
	Selection.Borders(xlDiagonalUp).LineStyle = xlNone
	With Selection.Borders(xlEdgeLeft)
		.LineStyle = xlContinuous
		.ColorIndex = 0
		.TintAndShade = 0
		.Weight = xlMedium
	End With
	With Selection.Borders(xlEdgeTop)
		.LineStyle = xlContinuous
		.ColorIndex = 0
		.TintAndShade = 0
		.Weight = xlMedium
	End With
	With Selection.Borders(xlEdgeBottom)
		.LineStyle = xlContinuous
		.ColorIndex = 0
		.TintAndShade = 0
		.Weight = xlMedium
	End With
	With Selection.Borders(xlEdgeRight)
		.LineStyle = xlContinuous
		.ColorIndex = 0
		.TintAndShade = 0
		.Weight = xlMedium
	End With
	Columns("AN:AN").Select
	Range(Selection, Selection.End(xlToRight)).Select
	Selection.EntireColumn.Hidden = True
	Range("B13").Select
	Range("D11").Select
	Do While ActiveCell <> Empty
	ActiveCell.FormulaR1C1 = UCase(ActiveCell)
	ActiveCell.Offset(1, 0).Select
	Loop
End Sub
3º - Os codigos para cada TextBox:

rivate Sub TextBox1_Change()
Range("D10").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub

Private Sub TextBox10_Change()
Range("R10").Select
ActiveCell.FormulaR1C1 = TextBox10
End Sub

Private Sub TextBox11_Change()
Range("L10").Select
ActiveCell.FormulaR1C1 = TextBox11
End Sub

Private Sub TextBox12_Change()
Range("M10").Select
ActiveCell.FormulaR1C1 = TextBox12
End Sub

Private Sub TextBox13_Change()
Range("N10").Select
ActiveCell.FormulaR1C1 = TextBox13
End Sub

Private Sub TextBox14_Change()
Range("O10").Select
ActiveCell.FormulaR1C1 = TextBox14
End Sub

Private Sub TextBox15_Change()
Range("P10").Select
ActiveCell.FormulaR1C1 = TextBox15
End Sub

Private Sub TextBox16_Change()
Range("U10").Select
ActiveCell.FormulaR1C1 = TextBox16
End Sub

Private Sub TextBox17_Change()
Range("V10").Select
ActiveCell.FormulaR1C1 = TextBox17
End Sub

Private Sub TextBox18_Change()
Range("W10").Select
ActiveCell.FormulaR1C1 = TextBox18
End Sub

Private Sub TextBox19_Change()
Range("X10").Select
ActiveCell.FormulaR1C1 = TextBox19
End Sub

Private Sub TextBox2_Change()
Range("E10").Select
ActiveCell.FormulaR1C1 = TextBox2
End Sub

Private Sub TextBox20_Change()
Range("Y10").Select
ActiveCell.FormulaR1C1 = TextBox20
End Sub

Private Sub TextBox21_Change()
Range("Z10").Select
ActiveCell.FormulaR1C1 = TextBox21
End Sub

Private Sub TextBox22_Change()
Range("AA10").Select
ActiveCell.FormulaR1C1 = TextBox22
End Sub

Private Sub TextBox23_Change()
Range("AB10").Select
ActiveCell.FormulaR1C1 = TextBox23
End Sub

Private Sub TextBox231_Change()
Range("AJ10").Select
ActiveCell.FormulaR1C1 = TextBox31
End Sub

Private Sub TextBox24_Change()
Range("AC10").Select
ActiveCell.FormulaR1C1 = TextBox24
End Sub

Private Sub TextBox25_Change()
Range("AD10").Select
ActiveCell.FormulaR1C1 = TextBox25
End Sub

Private Sub TextBox26_Change()
Range("AE10").Select
ActiveCell.FormulaR1C1 = TextBox26
End Sub

Private Sub TextBox27_Change()
Range("AF10").Select
ActiveCell.FormulaR1C1 = TextBox27
End Sub

Private Sub TextBox28_Change()
Range("AG10").Select
ActiveCell.FormulaR1C1 = TextBox28
End Sub

Private Sub TextBox29_Change()
Range("AH10").Select
ActiveCell.FormulaR1C1 = TextBox29
End Sub

Private Sub TextBox3_Change()
Range("F10").Select
ActiveCell.FormulaR1C1 = TextBox3
End Sub

Private Sub TextBox30_Change()
Range("AI10").Select
ActiveCell.FormulaR1C1 = TextBox30
End Sub

Private Sub TextBox4_Change()
Range("G10").Select
ActiveCell.FormulaR1C1 = TextBox4
End Sub

Private Sub TextBox5_Change()
Range("H10").Select
ActiveCell.FormulaR1C1 = TextBox5
End Sub

Private Sub TextBox6_Change()
Range("I10").Select
ActiveCell.FormulaR1C1 = TextBox6
End Sub

Private Sub TextBox7_Change()
Range("J10").Select
ActiveCell.FormulaR1C1 = TextBox7
End Sub

Private Sub TextBox8_Change()
Range("K10").Select
ActiveCell.FormulaR1C1 = TextBox8
End Sub

Private Sub TextBox9_Change()
Range("Q10").Select
ActiveCell.FormulaR1C1 = TextBox9
End Sub
Minhas dúvidas na verdade são:

 

1º - Como devo desenvolver o botão para pesquisar pelo nome do cliente ou pelo CPF e alterar os dados cadastrados na linha em que o cliente foi localizado, como endereço, nome dos contatos, etc.

 

2º - Como devo desenvolver o botão para pesquisar pelo nome do cliente ou pelo CPF e inserir os dados na linha em que o cliente foi localizado, como endereço, nome dos contatos, etc.

 

Desde já agradeço vossa atenção

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos Visual Basic
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito