Erro ao transferir ...
 
Notifications
Clear all

[Resolvido] Erro ao transferir os dados para a tabela


OrlandoS
(@orlandos)
Trusted Member Registered
Entrou: 5 anos atrás
Posts: 90
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! :]


ResponderCitar (Quote)
Tags do Tópico
EdsonBR
(@edsonbr)
Prominent Member Moderator
Entrou: 5 anos atrás
Posts: 750
 

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?


OrlandoS curtiu
ResponderCitar (Quote)
OrlandoS
(@orlandos)
Trusted Member Registered
Entrou: 5 anos atrás
Posts: 90
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! :]


EdsonBR curtiu
ResponderCitar (Quote)