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