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

rafai

[x] Listbox com 2 colunas

1 mensagem neste tópico

Olá amigos boa noite!

Tenho uma listbox com duas colunas e preciso de enviar o conteúdo das duas colunas para uma folha do excel tenho o seguinte código:

Worksheets("mesa1").Activate

yy = 0

For linha = 1 To 50

    If Cells(linha, 1) <> "" Then

        yy = yy + 1

    End If

   

Next linha

     

Worksheets("mesa1").Activate

For xx = 1 To ListBox2.ListCount

valor = ListBox2.List(xx - 1, 0)

Cells(yy + xx, 1) = valor

Next xx

o que este código faz é levar a informação da listbox para a folha do excel e vai sempre adicionando registos mesmo depois de fechar o programa.  :P

O problema é que só regista uma coluna da listbox.

como posso levar as 2 colunas para o excel?

brigados :wallbash:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora