Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Erro tempo de execução ao utilizar listbox

Dúvidas gerais sobre Excel
nilson rafael
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Qui Jan 23, 2014 9:22 pm

Erro tempo de execução ao utilizar listbox

Mensagem por nilson rafael »

Prezados, preciso de uma ajuda.

Estou montando um userform o qual possui duas listbox, onde pretendo que ao selecionar um item da listbox1 e clicar em um botão, ele transfira o valor selecionado para a listbox2 e apague da listbox1.
Parece simples mas quando executo esta macro aparece o seguinte erro "-2147024809 Erro em tempo de execução (80070057)".
Segue o codigo que estou usando:

Private sub Image1_click ()
listbox2.additem (listbox1.value)
listbox1.removeitem (listbox1.listindex)
end sub

Quando ocorre o erro a linha do "removeitem" fica selecionada. Eu removi esta linha e o a parte de adicionar está funcionando, o problema está em excluir da listbox1 mesmo.
OBS: Estou utilizando o Excel 2007, não sei se isso interfere.

Se alguém puder ajudar, agradeco.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Marciel Silva
Colaborador
Colaborador
Mensagens: 98
Registrado em: Qui Nov 01, 2012 2:37 pm

Re: Erro tempo de execução ao utilizar listbox

Mensagem por Marciel Silva »

nilson rafael,

bom dia!

Para ficar mais fácil lhe ajudar, compacte seu exemplo aqui e tentaremos resolver o seu problema!!!

Att,


nilson rafael
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Qui Jan 23, 2014 9:22 pm

Re: Erro tempo de execução ao utilizar listbox

Mensagem por nilson rafael »

olá, obrigado pela atenção...

então, minha planilha está no meu serviço, e la não tenho acesso ao site (é bloqueado), mas vou salvá-la e segunda mando aqui.

Obrigado..


nilson rafael
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Qui Jan 23, 2014 9:22 pm

Re: Erro tempo de execução ao utilizar listbox

Mensagem por nilson rafael »

Amigos, segue planilha.

Caso o erro não apareça para voces eu colei as imagens no corpo da planilha.
Esta não é a planilha que eu estou fazendo o codigo, mas o erro é o mesmo.

Se alguém puder ajudar, agradeço!

Ahh....aproveitando, se souberem preciso de ajuda para mais dois comandos:

* codigo para quando adicionar os valores na listbox2, eles ficarem em ordem alfabética, ou numérica.
* E uma caixa de busca....na planilha original, minha listbox1 tem mais de 4 mil itens, e fica dificil ficar procurando tudo.

Se conseguirem agradeço muitoo!
Anexos
Outlook (2).zip
repassar valores de listbox
(169.43 KiB) Baixado 248 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Marciel Silva
Colaborador
Colaborador
Mensagens: 98
Registrado em: Qui Nov 01, 2012 2:37 pm

Re: Erro tempo de execução ao utilizar listbox

Mensagem por Marciel Silva »

nilson rafael,

bom dia!

Segue um exemplo mais completo para você estudar!

Att,
Anexos
ListBox_30_01_14.zip
(26.2 KiB) Baixado 279 vezes


nilson rafael
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Qui Jan 23, 2014 9:22 pm

Re: Erro tempo de execução ao utilizar listbox

Mensagem por nilson rafael »

Marciel Silva, obrigado pela ajuda.

Mas eu não entendo muito (ou quase nada de VBA), e não consegui adaptar para o que preciso.
Eu encontrei um outro codigo, vou ver se da certo.
Se não der, eu peço ajuda de vcs aqui de novo.

Mas obrigado mesmo pela ajuda.

vlw


Avatar do usuário
joseA
Jedi
Jedi
Mensagens: 1048
Registrado em: Qui Out 22, 2009 7:22 am
Localização: Cel. Fabriciano - MG

Re: Erro tempo de execução ao utilizar listbox

Mensagem por joseA »

Código: Selecionar todos

Private Sub CommandButton1_Click()
ListBox2.AddItem (ListBox1.ListIndex + 1)
'ListBox1.RemoveItem (ListBox1.ListIndex)

End Sub
Private Sub CommandButton2_Click()
'ListBox1.AddItem (ListBox2.ListIndex)
ListBox2.RemoveItem (ListBox2.ListIndex)
End Sub


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder