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