Fóruns
Microsoft Excel - 2...
Formulários
Erro ao transferir ...
 
Notifications
Clear all

[Resolvido] Erro ao transferir os dados para a tabela

 
Formulários
Post Recente por OrlandoS 3 anos atrás
3 Posts
2 Usuários
2 Likes
1,724 Visualizações
RSS
OrlandoS
 OrlandoS
(@orlandos)
Posts: 104
Estimable Member
Topic starter
 

Olá, pessoal!

Estou montando um formulário bem simples,
mas quando clico em OK, dá erro em qualquer
uma das linhas de comando abaixo, inscritas no VBA.
Sem transferir os dados do formulário para a planilha.

Cells(linha, 1) = cxtx_Label1.Value
Cells(linha, 2) = cxcb_ComboBox1.Value
Cells(linha, 3) = cxtx_Label3.Value
Cells(linha, 4) = cxtx_Label4.Value
Cells(linha, 5) = cxtx_Label5.Value
Cells(linha, 6) = cxtx_Label6.Value
Cells(linha, 7) = cxtx_Label7.Value
Cells(linha, 8) = cxtx_Label8.Value
Cells(linha, 9) = cxcb_ComboBox2.Value
Cells(linha, 10) = cxcb_ComboBox3.Value

 

Grato pela atenção!
Orlando Souza

🧐

PS: Se a resposta foi útil, clique na "mãozinha positiva" ou em "curtir" na fonte de link informada, agradecendo ao colaborador do código/fórmula. Eu já fiz a minha parte! :]

 
Postado : 02/01/2021 11:32 pm
Tags do Tópico
Excel 2007
EdsonBR
 EdsonBR
(@edsonbr)
Posts: 1057
Noble Member
 

Feliz 2021, @orlandos!

O certo seria vc ter anexado o arquivo excel aqui. Ou pelo menos mostrar o código por inteiro.

Pelo fragmento que vc apresentou, uma hipótese é que o conteúdo da variável linha seja 0.

Acho que vc esqueceu de definir o conteúdo da variável linha imediatamente antes de onde aparece o erro, pois vc só seleciona a célula da última linha mas não faz nada com isso. Se for isso, seria só acrescentar:

linha = Selection.Row

Nesse trecho.

Ou vc se enganou e ao invés de usar a variável ult_linha definida no Initialize do UserForm (que suponho ter sido definida em nível de módulo) usou ao invés disso uma variável inexistente linha? Se vc tivesse usado Option Explicit no início do código esse erro teria aparecido.

Outra observação: por qual motivo vc protege a planilha antes de inserir os novos valores e não depois?

 
Postado : 03/01/2021 9:42 am
OrlandoS reacted
OrlandoS
 OrlandoS
(@orlandos)
Posts: 104
Estimable Member
Topic starter
 

Obrigado, @edsonbr!!

Deu certo! Fiz o que você sugeriu e acrescentei o: linha = Selection.Row

Eu não defini em nível de módulo, mas coloquei todos os códigos do formulário

em Preencher e o código para abrir o formulário em DIARIO.

As células da tabela na planilha estão configuradas para continuar desprotegidas.

 

Um Próspero Ano Novo!!

😎

PS: Se a resposta foi útil, clique na "mãozinha positiva" ou em "curtir" na fonte de link informada, agradecendo ao colaborador do código/fórmula. Eu já fiz a minha parte! :]

 
Postado : 03/01/2021 1:17 pm
EdsonBR reacted
Forum Jump:
  Tópico Anterior
Próximo Tópico  
Tags do Tópico:  Excel 2007 (3) ,