Notifications
Clear all

Login Botao Cadastrar

25 Posts
1 Usuários
0 Reactions
2,402 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Oi pessoal,

Venho mais uma vez solicitar ajuda. Estou construindo por conta uma tela de login a partir do que venho aprendendo. É um projeto simples. São 4 botões Ocultar planilha, exibir planilha, cadastrar e sair. Os dois primeiros botões estão funcionais felizmente. Entretanto o botão cadastrar não funcionou. Não consigo identificar o erro. Gostaria que quem tem mais experiência que eu pudesse me auxiliar, vou enviar as fotos na sequencia pra poder ajudar no que estou falando.

A primeira imagem será da própria tela de usuário e ID

A segunda da mensagem com o erro correspondente

E a terceira do erro após depuração.

Agradeço desde já a boa vontade de quem puder me auxiliar.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/11/2012 5:44 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Clique em Depurar, copie a linha destacada em amarelo e posta aqui.

Ou então, se possível, anexa o arquivo sem dados.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/11/2012 5:48 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Segunda Imagem

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/11/2012 5:48 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Oi Edson, tentei trocar o nome , nao deu certo. verifiquei , linha a linha , não consegui identificar nada. Voltei no botão, não sei o que possa ser.

Se precisar de mais alguma coisa estou a disposição, quero aprender. Agradeço o interesse. Obrigado.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/11/2012 5:53 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


André,

realmente se você postar o arquivo fica mais fácil identificar.

Mas se não puder, dá um print dessa mesma tela, com a tela completa do VBAProject, onde aparecem as Planilhas, Formulários(abertos) e Módulos.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/11/2012 5:57 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Essa terceira imagem , coloco preocupado pra que fique mais claro o que quero e como foi construído. Pra auxiliar na ajuda. Se for preciso mais algum esclarecimento, basta solicitar.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/11/2012 6:00 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ahh o arquivo, beleza, postarei, desculpa a demora.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/11/2012 6:07 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Edson desde já agradeço teu tempo e interesse.

Obrigado mesmo.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/11/2012 6:08 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Aqui ele tenta selecionar uma guia que não existe:

Sheets("CADASTRAR USERS").Select ' seleciona a planilha de cadastro

Se for a correta, modifique para "Cadastro".

E, atenção: há um 'espaço' no final do nome da guia Cadastro. Corrija para que sejam coincidentes.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/11/2012 6:14 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Edson fiz as correções sugeridas mas o erro persiste

vou postar novamente o arquivo modificado com tuas sugestões

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/11/2012 6:22 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Não era para modificar o nome do UserForm2. Mantenha.

Removi o espaço após a palavra Cadastro, tanto no código quando do nome da planilha.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/11/2012 6:25 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

A parte abaixo destacada, não influencia no que esta ocorrendo?

Private Sub UserForm_Initialize()
Sheets("Cadastro").Select ' seleciona a planilha de cadastro
Dim Linha As Integer
Linha = 5

Do While Range("C" & Linha) <> "" ' sempre antes do While usa-se "do" , ficando "do while".Quando for diferente de ""(vazio), o ID ele irá adiciona os usuários da célula ao lado na combox, toda vez que o formulário iniciar
Linha = Linha + 1
ID = ID + 1

CBLista.AddItem (Range("D" & Linha))
Loop
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/11/2012 6:28 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Andre, o erro se da porque a Aba "Cadastro" está OCULTA, desta forma a instrução : Sheets("Cadastro ").Select dá erro pois não é possivel selecionar uma aba que não aparece, troque pela instrução : Sheets("Cadastro ").Activate.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/11/2012 6:30 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Andre, faça a alteração que sugeri, e tambem faça o que o Edson comentou, tire o espaço que está no final do nome da Aba "Cadastro", tanto na Aba como nas Rotinas, eu fiz os testes e funcionou corretamente.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/11/2012 6:39 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Obrigado Mauro

Vou tentar aqui e dou retorno.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/11/2012 6:44 pm
Página 1 / 2