Notifications
Clear all

DUPLICIDADE DADOS PLANILHA EXCEL

6 Posts
1 Usuários
0 Reactions
1,434 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Estou precisando de uma mão em uma questão. Estou tendo dificuldades em uma "Cadastro de clientes".

Preciso de um código que faça a varredura em uma coluna da planilha para verificar se o nome de cliente a ser cadastrado já não existe. Se existir, emite um msgbox, caso contrário registrar.

Preciso de ajuda pessoal
desde agradeço

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/01/2013 9:07 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Eu lhe recomendo usar a pesquisa do fórum!!
Outra coisa o pessoal vai precisar saber como é a estrutura de sua rotina para tal.

Ex: Dados Fictícios

Private Sub cmdAdd_Click()
    Dim iRow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("SuaPlanilha")
     
     'encontrar a primeira linha vazia no banco de dados
    iRow = ws.Cells(Rows.Count, 1) _
    .End(xlUp).Offset(1, 0).Row
     
    If WorksheetFunction.CountIf(ws.Range("A2", ws.Cells(iRow, 1)), Me.txtPart.Value) > 0 Then
        MsgBox "Codigo duplicado encontrado", vbCritical
        Exit Sub
    End If
     
     'verificar se há uma parte do número
    If Trim(Me.txtPart.Value) = "" Then
        Me.txtPart.SetFocus
        MsgBox "Por favor digite o código"
        Exit Sub
    End If
     
     'Copia os dados para a base
    ws.Cells(iRow, 1).Value = Me.txtPart.Value
    ws.Cells(iRow, 2).Value = Me.txtLoc.Value
    ws.Cells(iRow, 3).Value = Me.txtDate.Value
    ws.Cells(iRow, 4).Value = Me.txtQty.Value
     
     'Limpa os dados
    Me.txtPart.Value = ""
    Me.txtLoc.Value = ""
    Me.txtDate.Value = ""
    Me.txtQty.Value = ""
    Me.txtPart.SetFocus
     
End Sub

Outro exemplo alheio

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  
    If Application.WorksheetFunction.CountIf(Worksheets("Plan1").Range("A1:A10"), TextBox1.Text) > 0 Then
        MsgBox ("Código Duplicado!")
        Cancel = True
    End If
     
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/01/2013 9:32 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite Alexandrevba obrigado pela atenção

Entao eu ja pesquisei e isso ta me tomando um tempo precioso nao consigo descobrir uma formula pra isso, parece simples mas nao encontro é uma planilha de dados e em coluna tem nomes de clientes e irei cadastrar outros nomes mas antes queria achar um jeito de pesquisar pra ver se ja existe. vou continuar insistindo se alguem puder ajudar serei muito grato

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/01/2013 10:44 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Ao memons poste seu arquivo modelo compactado!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/01/2013 10:46 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

alexandrevba

Segue anexo a planilha de dados no qual vou precisar da macro vba

desde ja agradeço pela atenção

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/01/2013 3:59 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite
Segue o exemplo solicitado!

att MarkoSoftware

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 24/01/2013 4:07 pm