Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Sign in to follow this  
dlemos

Listbox - múltiplas colunas (Resolvido)

Recommended Posts

dlemos

Boas

Necessito de apresentar numa UserForm uma Listbox com 3 colunas, lidas a partir de Worksheets do Excel.

Os conteúdos dessas colunas são do tipo string, double, e double, respectivamente.

Mas não sei como apresentar mais que uma coluna numa Listbox..só consigo fazer ListBox. AddItem ...

Agradeço toda a ajuda, cumps

Share this post


Link to post
Share on other sites
dlemos

Boas

Desde já obrigado pela ajuda.

Estou a tentar adaptar o código ao meu programa e até com algum sucesso.

Para já já tenho a ListBox a funcionar..Vou ver se consigo pôr também os botões de Add e Delete a funcionar e depois digo algo, abraço!

Share this post


Link to post
Share on other sites
dlemos

Só há um problema, é que o range de dados a mostrar na listbox pode variar consoante o nº de linhas preenchidas, e eu queria que o programa ora mostrasse 20 linhas, ora 30, consoante o nº de linhas não nulas da worksheet.

No primeiro ficheiro , tem no module 2 uma função xlLastRow que determina a última linha, é essa que estou a tentar modificar para obter este pormenor, mas sem sucesso  ;)

Não basta colocar Sheet1 (no meu caso) como entrada da função xlLastRow, e modificar o Range da listbox de acordo (refiro-me à secção  "Private Sub UserForm_Initialize()" ) ?

Share this post


Link to post
Share on other sites
dlemos

Afinal já resolvi o problema

Simplesmente mudei os dados para outra worksheet, de resto fiz tudo igual..não cheguei a perceber o problema.

De qualquer forma aquele código deu jeito, obrigado, abraço!

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.