Fóruns
Microsoft Excel - 2...
Formulários
formulario de cadas...
 
Notifications
Clear all

formulario de cadastro em VBA (erro de Compilação)

 
Formulários
Post Recente por Leo Schorr 7 anos atrás
8 Posts
3 Usuários
0 Reactions
2,127 Visualizações
RSS
 Leo Schorr
(@leo-schorr)
Posts: 4
New Member
Topic starter
 

Olá tenho pouco conhecimento em (Quase nenhum ) rs em VBA e gostaria de aprender um pouco , estou criando uma p´lanilha porem quando tento colocar em vba aparece seguinte erro "ERRO DE COMPILAÇÃO, MÉTODO OU MEMBRO DE DADOS NÃO ENCONTRADO " Colocarei a seguir o código que estou usando :

Private Sub bt_Cadastrar_Click()

linha = Sheets("BASE").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row

Plan1.Cells(linha, 1).Value = Me.txt_Aluno.Value
Plan1.Cells(linha, 2).Value = Me.txt_Série.Value
Plan1.Cells(linha, 3).Value = Me.txt_Idade.Value
Plan1.Cells(linha, 4).Value = Me.txt_Contato.Value
Plan1.Cells(linha, 5).Value = Me.txt_Escola.Value
Plan1.Cells(linha, 6).Value = Me.txt_Turno.Value
Plan1.Cells(linha, 7).Value = Me.txt_End.Value
Plan1.Cells(linha, 8).Value = Me.txt_Lote.Value
Plan1.Cells(linha, 9).Value = Me.txt_Rota.Value

Me.txt_Aluno.Value = Null


mensagem = MsgBox("Dados cadastrados com sucesso", vbInformation, ":: Cadastro ::")


End Sub

Aguardo muito Ajuda de vcs Obrigado !
***Para tua segurança, não é permitido postar dados pessoais aqui no fórum.

 
Postado : 11/01/2018 2:17 pm
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Tente isso :
Mude

linha = Sheets("BASE").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Row

para:

linha = Sheets("BASE").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row

Não sei se está certo pois não vi funcinando, seria melhor ver sua planilha.. Abrç!

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 11/01/2018 2:27 pm
 Leo Schorr
(@leo-schorr)
Posts: 4
New Member
Topic starter
 

Quando mando cadastrar aparece conforme print de tela enviado em anexo :D :

 
Postado : 12/01/2018 5:24 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Pela mensagem e a imagem, o erro se deve pelo textbox "txt_Aluno" ou não existir ou estar com nome diferente, verifique se não tem nenhum espaço no nome, quanto a instrução que conta a qde de linhas, está correta, e a que o colega xlArruda indicou tambem, a diferença é que em uma utilizamos a propriedade CELLS e a outra referenciamos o Objeto RANGE.

Uma outra obs, apesar de não gerar erro, só por questão de entendimento, é que na rotina estamos contando a qde de linhas em uma aba de nome "BASE" e lançando em outra aba de nome "Plan1", então se a intenção é lançar na última linha vazia da Plan1 a contagem deveria ser por esta aba.

[]s

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

 
Postado : 12/01/2018 6:01 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Se tivesse postado seu modelo/arquivo, muito provavelmente já teria uma resposta satisfatória.
Não é possível apenas pela rotina entender/antever o erro, pois o mesmo pode ter outra(s) causa(s) que não essa.
Sugiro excluir seu anexo, pois em uma das telas pode-se ver dados de alunos

Poste seu arquivo com poucos registros, altere dados para fictícios, assim poderá ter uma ajuda mais eficaz

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

 
Postado : 12/01/2018 6:09 am
 Leo Schorr
(@leo-schorr)
Posts: 4
New Member
Topic starter
 

Estou com Varios problemas entaõ resolvi postar o arquivo que estou montando o vba , como sou novo no assunto espero compreensão de todos er muito obrigado pela ajuda , segue em anexo a planilha

 
Postado : 12/01/2018 6:30 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Vendo rapidamente seu modelo temos:
Txt_Aluno, apesar da denominação refere-se ao Label "Aluno", seu TextBox esta nomeado como TextBox1; bem como txt_Série refere-se ao Label Série e o Texbox correspondente está nomeado como TextBox2, e os demais tambem não batem a descrição no programa com os nomes do Formulario.
Altere/compatibilize essas descrições constantes nessa rotia (tambem nas demais) devem fazer referencia/apontar para os respectivos Textbox do formulario

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

 
Postado : 12/01/2018 9:15 am
 Leo Schorr
(@leo-schorr)
Posts: 4
New Member
Topic starter
 

Reinaldo

Obrigado deu certo! porem agora precisaria criar um botao de pesquisar "por qualquer campo " pois a planilha são 1200 alunos em media !

gostaria de colocar um botão de pesquisa qual seria o codigo ? alguem pode me ajudar estou começando aprender agora e gostando muito!

segue anexo planilha vba que estou montando é minha primeira !

 
Postado : 12/01/2018 2:09 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico