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,120 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)

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 :

Postado : 12/01/2018 5:24 am

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

(@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

(@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