Notifications
Clear all

Carregar no ListBox dados da planilha

20 Posts
3 Usuários
0 Reactions
2,660 Visualizações
(@joocta)
Posts: 187
Estimable Member
Topic starter
 

Boa noite meus Gurus,
estou querendo fazer uma coisa mas não sei se é possível.
tenho esse projeto de planilha, que seria para carregar cada coluna.
se clicasse no botão "Catalogo e referencia" ele carregaria a ListBox com a coluna, ativaria os tres botões da coluna referente abaixo, onde eu poderia salvar uma referencia nova ou editar uma existente e isso aconteceria em cada botão clicado.
Seria possivel?
att,
Joocta

 
Postado : 15/10/2016 5:03 pm
(@djunqueira)
Posts: 0
New Member
 

Não entendi. :?

 
Postado : 15/10/2016 5:58 pm
(@joocta)
Posts: 187
Estimable Member
Topic starter
 

Vc chegou a ver a planilha e o form?
Quando abrir o form, na parte superior aparece os icones. Clicando em cada um ele habilita tres icones abaixo, e queria que carregasse no listbox o conteudo da planilha da parte correspondente ao icone, onde eu pudesse editar ou simplesmente cadastrar um conteudo novo. sendo que cada icone cadastrasse, editasse, ou excluisse o conteudo da coluna correspondente. Deu para entender?

 
Postado : 15/10/2016 6:05 pm
(@mprudencio)
Posts: 0
New Member
 

Aparentemente vc ja fez o codigo para o primeiro botao, é so replicar o codigo para os outros realizando os ajustes necessarios.

Por exemplo alterando a coluna de dados a serem carregados,, basicamente o codigo é o mesmo.

Uma Informação importante Listbox SO SERVE PARA LEITURA, nao é possivel editar dados em uma listbox, para isso vc precisa carregar a informaçao em uma textbox.

 
Postado : 15/10/2016 7:05 pm
(@joocta)
Posts: 187
Estimable Member
Topic starter
 

tem uma textbox acima da list, mas nao estou conseguindo carregar, tentei de uma maneira, mas da erro. Sou muito fraco na programação.

 
Postado : 15/10/2016 7:19 pm
(@mprudencio)
Posts: 0
New Member
 

Nao testei mas aparentemente vc so tem que ajustar essas duas linhas para carregar os novos dados para cada botao.

Para Catalogo Referencia esse codigo

Range("A2").Select

LinhaFinal = Planilha2.Cells(Rows.Count, 1).End(xlUp).Row

Para Periodo

Troque A2 por B2
e
Planilha2.Cells(Rows.Count, 1).End(xlUp).Row por Planilha2.Cells(Rows.Count, 2).End(xlUp).Row

E dentro do For

For linha = 2 To LinhaFinal
lst_Cadastro.AddItem Planilha2.Cells(linha, 1) ' Troque o 1 por 2
x = x + 1

Next

Isso vai ajusta seu codigo para carregar os dados referente ao periodo.

Ajuste as demais.

 
Postado : 16/10/2016 8:42 am
(@joocta)
Posts: 187
Estimable Member
Topic starter
 

É Marcelo isso eu cheguei a conclusão ontem, mas quando clico em um cadstro na listbox, ele nao troca no Textbox o nome para o que foi selecionado na list.

 
Postado : 16/10/2016 9:37 am
(@mprudencio)
Posts: 0
New Member
 

Ve se isso ajuda

Fiz apenas a ´primeira coluna

 
Postado : 16/10/2016 10:09 am
(@joocta)
Posts: 187
Estimable Member
Topic starter
 

engraçado que esta igual ao meu aqui e no meu nao funciona... O que voce alterou?

 
Postado : 16/10/2016 10:23 am
(@joocta)
Posts: 187
Estimable Member
Topic starter
 

vi que voce alterou o listbox clic.
só que essa listbox é utilizada para todos os botoes.
tem como fazer a programação para todos os campos nela?

 
Postado : 16/10/2016 10:34 am
(@mprudencio)
Posts: 0
New Member
 

Com ajustes no codigo acredito que sim, fiz o primeiro para que vc tenha um modelo a seguir.

 
Postado : 16/10/2016 10:46 am
(@joocta)
Posts: 187
Estimable Member
Topic starter
 

Consegui. No lugar da coluna eu coloquei uma variavel que troca ao mudar o botao.
Agora vou passar para os botoes de salvar, limpar e excluir.
Vamos ver se consigo...

 
Postado : 16/10/2016 10:53 am
(@joocta)
Posts: 187
Estimable Member
Topic starter
 

É Aconteceu o que eu esperava, quando clico na listbox ele carrega o valor no textBox, só que quando mando excluir ele exclui outra, não a que foi carregada no textbox.

 
Postado : 16/10/2016 11:14 am
(@mprudencio)
Posts: 0
New Member
 

Como é o codigo que vc esta usando para excluir

 
Postado : 16/10/2016 2:08 pm
(@joocta)
Posts: 187
Estimable Member
Topic starter
 

Selection.EntireRow.Delete
MsgBox "Registro Excluído com Sucesso!!!", 0 + vbInformation

 
Postado : 16/10/2016 2:16 pm
Página 1 / 2