Notifications
Clear all

Cadastro de clientes diferencial não haja repetição de dados

4 Posts
3 Usuários
0 Reactions
1,094 Visualizações
(@dolfino)
Posts: 31
Trusted Member
Topic starter
 

Olá planilhando,

Quero fazer uma planilha de cadastro com os seguintes campos (nome,rg ou cpf, email , sexo e tel), o diferencial é que avise quando digitar um dado de qualquer dos campos avise que o cliente já está cadastrado.

Manjo pouco de excel, mas minha chefe me passou o prazo até terça-feira 24/11, preciso de uma ajuda para fazer a base e o restante faço!
Quero também compartilha ela em rede com 3 PC para cadastro.

Obrigado desde de já à ajuda.

 
Postado : 22/11/2015 8:35 am
(@mprudencio)
Posts: 0
New Member
 

Fazer isso de forma que vc possa identificar que esta inserindo um dado duplicado é relativamente simples, basta usar a Formatação Condicional para identificar o duplicado, através do CPF por exemplo.

Agora compartilhar em Rede, meu caro, para quem ja tem conhecimento avançado é algo que é muito complicado, vive dando pau, tranvando, entrando em conflito, enfim so problemas, imagina se vc não tem muito conhecimento do assunto.

Sugiro nao compartilhar em rede

Se quer usar em rede que funcione muito bem sugiro usar o Acess, excel para rede é decepcionante.

 
Postado : 22/11/2015 10:01 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Em nossa base a exemplos sobre isso, use a pesquisa.

Quanto a sua dúvida, considerando que vc tem UserForm com 3 campos e uma guia chamada BaseDados e que o campo CPF está na coluna B, então..

Private Sub btSalvar_Click()
    Dim iRow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("BaseDados")
    'Encontra a primeira linha vazia na BaseDados
    iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    'Verifica se há dados duplicados
    If WorksheetFunction.CountIf(ws.Range("A2", ws.Cells(iRow, 2)), Me.txtCPF.Value) > 0 Then
        MsgBox "Esse cliente já foi cadastrado!", vbCritical
        Exit Sub
    End If
    'Verifica se txtCPF contém dados digitado (Neste caso não verificado se é número, favor usar a pesquisa do fórum)
    If Trim(Me.txtCPF.Value) = "" Then
        Me.txtCPF.SetFocus
        MsgBox "favor digitar o CPF"
    End If
    'Copia os dados do formulário para dentro da guia BaseDados
    ws.Cells(iRow, 1).Value = Me.txtNome.Value
    ws.Cells(iRow, 2).Value = Me.txtCPF.Value
    ws.Cells(iRow, 3).Value = Me.txtEmail.Value
    '...faça a adaptação para os campos restantes
    'Limpa os campos após salva
    Me.txtNome.Value = ""
    Me.txtCPF.Value = ""
    Me.txtEmail.Value = ""
End Sub

Att

 
Postado : 22/11/2015 10:38 am
(@dolfino)
Posts: 31
Trusted Member
Topic starter
 

Olá pessoal eu peço ajuda de vocês, que no momento eu me encontro com muito trabalho. Será que alguém poderia desenvolver a planilha pra mim e deixa aqui para download.
Sei que a planilha e simples, mas realmente tem dia que não conseguimos nem calcula 2+2.

Agradecido de mais qualquer ajuda.

 
Postado : 23/11/2015 7:34 am