BOTÃO QUE SÓ ATIVA ...
 
Notifications
Clear all

[Resolvido] BOTÃO QUE SÓ ATIVA COM PREENCHIMENTO DA CAIXA DE TEXTO


andregomesmac
Posts: 11
Registered
Topic starter
(@andregomesmac)
Active Member
Entrou: 6 meses atrás

Boa Noite!

Tenho um formulário

com um botão cmbGRAVAR e uma caixa de texto txtCPF, botão cmbGRAVAR e uma caixa de texto txtNOME, botão cmbGRAVAR e uma caixa de texto txtPROFISSAO.

quero tornar a caixa de texto obrigatoria, porem somente pularia para a proxima form somente se o texto tivesse sido digitado e gravado na planilha.

Responder
1 Reply
andregomesmac
Posts: 11
Registered
Topic starter
(@andregomesmac)
Active Member
Entrou: 6 meses atrás

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.

Responder