Página 1 de 1

Exigir que InputBox seja inserido

Enviado: 23 Set 2017 às 23:31
por GladstoneD
Boa noite, pessoas!!

Seguinte, tenho essa planilha de conferencia de caixa. Eu preciso que sempre que algum usuário for conferir, a inputbox solicite o nome do usuário. Esse inputbox é criado no evento inicialize do userform. Até aqui foi tudo bem. O problema é que, se o usuário não digitar nada e der ok, ou clicar em "Cancel", o userform carrega.

A pergunta é. Tem como fazer com que o interronpa o carregamento do userform caso o inputbox esteja vazio ou cliquem em "Cancel"? Se sim, tem como inserir uma mensagem informando o motivo de não prosseguir a conferencia?

Segue o codigo

Código: Selecionar todos
Public Conferente As String
---------------------------------------------------------------------------------
Private Sub UserForm_Initialize()

Conferente = InputBox("Insira o seu nome", "Conferente")

End Sub
A variável Conferente tem que ser publica, pois é utilizada em outros momentos

Desde já agradeço pelo suporte!!!

[/size]

Re: Exigir que InputBox seja inserido

Enviado: 24 Set 2017 às 09:15
por osvaldomp
Experimente acrescentando a segunda linha abaixo.
Código: Selecionar todos
Conferente = InputBox("Insira o seu nome", "Conferente")
If Conferente = "" Then Exit Sub

Re: Exigir que InputBox seja inserido

Enviado: 24 Set 2017 às 09:58
por GladstoneD
osvaldomp escreveu:Experimente acrescentando a segunda linha abaixo.
Código: Selecionar todos
Conferente = InputBox("Insira o seu nome", "Conferente")
If Conferente = "" Then Exit Sub
Não deu certo. Continua carregando o userform. Obrigado

Re: Exigir que InputBox seja inserido

Enviado: 24 Set 2017 às 10:09
por osvaldomp
Disponibilize uma amostra do seu arquivo Excel.

Re: Exigir que InputBox seja inserido

Enviado: 24 Set 2017 às 10:33
por GladstoneD
osvaldomp escreveu:Disponibilize uma amostra do seu arquivo Excel.
Segue o link do arquivo

https://drive.google.com/file/d/0Byw7P9 ... sp=sharing

Obrigado!!

Re: Exigir que InputBox seja inserido

Enviado: 24 Set 2017 às 11:00
por osvaldomp
Apague o comando que eu sugeri e que foi colocado no código Initialize e coloque-o no código do botão, conforme abaixo.
Código: Selecionar todos
Private Sub CommandButton1_Click()
 Conferente = InputBox("Insira o seu nome", "Conferente")
 If Conferente = "" Then Exit Sub
 frmConfere.Show
End Sub
sugestão - nas próximas carregue o arquivo diretamente aqui no fórum e não no Google drive ou em outro

Re: Exigir que InputBox seja inserido

Enviado: 24 Set 2017 às 12:44
por GladstoneD
osvaldomp escreveu:Apague o comando que eu sugeri e que foi colocado no código Initialize e coloque-o no código do botão, conforme abaixo.
Código: Selecionar todos
Private Sub CommandButton1_Click()
 Conferente = InputBox("Insira o seu nome", "Conferente")
 If Conferente = "" Then Exit Sub
 frmConfere.Show
End Sub
sugestão - nas próximas carregue o arquivo diretamente aqui no fórum e não no Google drive ou em outro
Deu certo, amigo. Muito obrigado!!!