Página 1 de 1

"Unselect" não funciona na ListBox

Enviado: 24 Abr 2017 às 09:41
por JCabral
Boa tarde

Mais uma vez pedindo ajuda com um código em VBA.

Tenho uma planilha que para um determinado empreendimento tenho que fazer a afetação de meios.
Para tal tenho uma UserForm "FTEForm" aonde classifico cada empreendimento e no final fruto dessa classificação tenho uma afetação de DF e FO.

A FTEform é esta:
Imagem

Assim depois de escolher o empreendimento e escolher a "Tipificação" vou escolher uma "Afetações Primárias" e depois os respetivos "Fatores de Correções - Ki's", e aqui é que começa o meu problema, que passo a explicar:
1) Eu só posso escolher os Ki's depois de ter escolhido em primeiro lugar as "Afetações Primárias";
2) Quando eu escolho em primeiro lugar os Ki's aparece-me uma mensagem a dizer "É necessário definir primeiro as afetações primárias" e faço o unselect (Select(i)= False) na respetiva Listbox;
3) O problema é que ele faz o unselect mas o item na listBox continua "selecionado" ou seja continua azul; Como faço para que o item deixe de ficar azul?
4) Não sei porque razão a mensagem que refiro em cima aparece sempre duas vezes, ou seja a subrotina é chamada duas vezes. Como resolvo este problema?

Obrigado
Jorge Cabral

NOTA: Eu sei que poderia resolver este problema de outra maneira nomeadamente colocando todas as ListBox como "Enable=False" e só as ir libertando depois de preencher as anteriores, mas de momento não pretendo implementar essa solução até porque precisava de resolver este problema para outra situação que tenho.

Também aqui: http://www.tomasvasquez.com.br/forum/vi ... =20&t=5361 e http://www.planilhando.com.br/forum/vie ... 78#p123078

Re: "Unselect" não funciona na ListBox

Enviado: 10 Mai 2017 às 10:34
por JCabral
Alguma sugestão?

Jorge Cabral