Este fórum está sendo desativado

[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]

[osvaldomp]

Experimente acrescentando a segunda linha abaixo.

Código: Selecionar todos

Conferente = InputBox("Insira o seu nome", "Conferente")
If Conferente = "" Then Exit Sub

[GladstoneD]

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

[osvaldomp]

Disponibilize uma amostra do seu arquivo Excel.

[GladstoneD]

Disponibilize uma amostra do seu arquivo Excel.

Segue o link do arquivo

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

Obrigado!!

[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

[GladstoneD]

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!!!