CONSEGUI COM ESSES CODIGOS

 

Private Sub cmbgravar_Click()

Dim vlinha As Integer

'VALIDAÇÃO CPF

If txtCPF.Text = "" Then
MsgBox ("CPF É OBRIGATÓRIO!")
txtCPF.SetFocus

Exit Sub
End If

'REGISTRANDO DADOS NA PLANILHA

Sheets("cadastro").Select
Range("a1").Select

vlinha = 1

Do While ActiveCell.Offset(vlinha, 0).Value <> ""
vlinha = vlinha + 1
Loop

ActiveCell.Offset(vlinha, 0).Value = txtCPF.Text

'LIMPANDO CAMPO TXT

txtCPF.Value = Empty

'FECHANDO E ABRINDO FORM

Unload Me
nome.Show

End Sub

 

SE HOUVER UMA FORMA DE MELHORAR ECEITO SUGESTÕES.