Página 1 de 1
cadastro de cliente com codigo automatico
Enviado: 27 Mar 2017 às 11:43
por vilc
bom dia, tenho uma planilha de cadastro com formulario, queria colocar o codigo automatico e quando for cadastar um novo verificar se ja existe no banco de dados... quem poder dar um help....
Re: cadastro de cliente com codigo automatico
Enviado: 27 Mar 2017 às 23:42
por babdallas
Anexe a planilha. Assim fica mais fácil te ajudar.
Re: cadastro de cliente com codigo automatico
Enviado: 28 Mar 2017 às 06:01
por Ryujin
Código: Selecionar todosPublic Sub InserirDados
Dim ultimalinha As Long
Dim Ws1 As Worksheet
Set Ws1 = Worksheets("NOME DA PLANILHA ONDE QUER INSERIR")
'Encontrar a Ultima Linha Preenchida'
ultimalinha = Cells(Rows.Count, 1).End(xlUp).Row + 1
'nao mecha em ultimalinha , esse codigo ira fazer com que o sistema detete a ultima linha mechida ;)
'Inserir Dados Na Base de Dados Excel'
Ws1.Range("COLUNAS EX ABAIXO" & ultimalinha).Value = UserForm3.TextBox1
Ws1.Range("C" & ultimalinha).Value = UserForm3.TextBox2
Ws1.Range("E" & ultimalinha).Value = UserForm3.ComboBox1
Ws1.Range("D" & ultimalinha).Value = UserForm3.TextBox3
Ws1.Range("G" & ultimalinha).Value = UserForm3.ComboBox2
Ws1.Range("H" & ultimalinha).Value = UserForm3.ComboBox3
ultimalinha = Cells(Rows.Count, 1).End(xlUp).Row + 1
Set Ws1 = Worksheets("Util_Reg")
Ws1.Range("A" & ultimalinha).Value = x
MsgBox "Registado Com Sucesso!"
End If
End Sub
Aconcelho a fazer em um modulo e depois chamar para dentro do botao .
Para chamar para o botao use a seguinte funçao
Call NomeDoModulo.InserirDados (Neste caso é inserirdados porque o nome do da sub é esse)
Qualquer duvida diga ^^
cadastro de cliente com codigo automatico
Enviado: 28 Mar 2017 às 06:03
por Ryujin
Onde diz Util_Reg é o nome da sua planilha onde deseja que va inserir
Qualquer coisa digame o nome da planilha que façolhe rapidamente ...
Vou é precisar de saber os campos que precisa por exemplo nome etc etc
Força nisso
cadastro de cliente com codigo automatico
Enviado: 28 Mar 2017 às 11:50
por vilc
segue a planilha Ryujin , se poder me ajudar
Re: cadastro de cliente com codigo automatico
Enviado: 28 Mar 2017 às 13:33
por Ryujin
Aqui esta penso que seja isto ! Qualquer coisa diga
)
cadastro de cliente com codigo automatico
Enviado: 28 Mar 2017 às 14:14
por vilc
Ryujin, não esta funcionado, nao tem nada na planilha
Re: cadastro de cliente com codigo automatico
Enviado: 28 Mar 2017 às 16:43
por osvaldomp
Seguem opções que inserem o código automaticamente e por isso dispensam a verificação se o código já existe.
opção1 - não utiliza a TxtCodigo
coloque o número 1 na célula 'A2' e na célula 'A3' coloque
=SE(B3="";"";A2+1) e arraste para baixo
opção2 - não utiliza a TxtCodigo
na
Sub InserirDados substitua esta linha
Código: Selecionar todosWs1.Range("A" & ultimalinha).Value = FrmProdutos.TxtCodigo
por esta
Código: Selecionar todos Ws1.Range("A" & ultimalinha).Value = Ws1.Range("A" & ultimalinha - 1).Value + 1
opção3 - carrega o código seguinte na TxtCodigo ao abrir o Form: acrescente o código abaixo no módulo do Form
Código: Selecionar todosPrivate Sub UserForm_Initialize()
TxtCodigo.Text = Application.Max([A:A]) + 1
End Sub
Re: cadastro de cliente com codigo automatico
Enviado: 29 Mar 2017 às 05:04
por Ryujin
vilc escreveu:Ryujin, não esta funcionado, nao tem nada na planilha
No meu está Funcionando ... Testei aqui ://