Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Exportar dados listbox para planilha

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Neri

Exportar dados listbox para planilha

Mensagem por Neri » Seg Jul 23, 2012 4:35 pm

Boa tarde
Preciso um comando para exportar o listbox para uma planilha. Finalidade: Após isto quero imprimir.

Obs.: Não sei quantos lancamentos tem, pois é uma variável que depende de um filtro.

Agradeço a ajuda e atenção.



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.


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

Re: Exportar dados listbox para planilha

Mensagem por joseA » Seg Jul 23, 2012 10:14 pm

Salve Neri,

Penso que esse tópico viewtopic.php?f=20&t=2018 irá ajudá-lo.


Se o post lhe agradou clique no sinal de positivo (ao lado de citar).

Neri

Re: Exportar dados listbox para planilha

Mensagem por Neri » Ter Jul 24, 2012 7:32 am

Bom dia José
Sempre ajudando os outros, muito obrigado, abração.

consegui o comando que coloco abaixo, é semelhante, mas alguém pode precisar...
'cria varíavel para contagem da linha a ser preenchida
Dim Nlin
'cria uma variável para contar as linhas da lstlista
Dim Cont

'limpa a região com dados anteriores
Plan5.Range("A1:j1000").ClearContents

'linha inicial da planilha que carregará os dados
Nlin = 5
'preenche a 1ª com a data
'Plan5.Range("A" & Nlin) = Me.lstLista.List(Cont, 0)

'preenche as outras linhas até o fim da lstlista
For Cont = 0 To Me.lstLista.ListCount - 1
Plan5.Range("A" & Nlin + 1) = Me.lstLista.List(Cont, 1)
Plan5.Range("B" & Nlin + 1) = Me.lstLista.List(Cont, 2)
Plan5.Range("c" & Nlin + 1) = Me.lstLista.List(Cont, 3)
Plan5.Range("d" & Nlin + 1) = Me.lstLista.List(Cont, 4)
Plan5.Range("e" & Nlin + 1) = Me.lstLista.List(Cont, 5)
Plan5.Range("f" & Nlin + 1) = Me.lstLista.List(Cont, 6)
Plan5.Range("g" & Nlin + 1) = Me.lstLista.List(Cont, 7)
Plan5.Range("h" & Nlin + 1) = Me.lstLista.List(Cont, 8)
Nlin = Nlin + 1
Next


vlw



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

Re: Exportar dados listbox para planilha

Mensagem por joseA » Ter Jul 24, 2012 9:16 am

Vlw Neri, ;)

Estando ao alcance...


Se o post lhe agradou clique no sinal de positivo (ao lado de citar).

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.


fabio.pinheiro
Acabou de chegar
Acabou de chegar
Mensagens: 3
Registrado em: Qua Jan 02, 2013 9:00 am

Re: Exportar dados listbox para planilha

Mensagem por fabio.pinheiro » Sex Jan 04, 2013 8:40 am

Bom dia,

desculpe me meter no forum de vocês,

mas acredito que vocês possam me ajudar,

Utilizei a macro postada aqui, conforme abaixo, o problema é que toda vez que eu clico no botão a informação anterior é substituida,
eu gostaria que ela fosse acrescentada no final da Plan4, sera que vocês podem me ajudar??

Dim Nlin
Dim Cont

Nlin = 2 'Linha inicial que carregara os dados'
For Cont = 0 To Me.ListBox1.ListCount - 1
Plan4.Range("A" & Nlin + 1).End(xlUp) = Me.ListBox1.List(Cont, 0) 'Preenche as outras linha até o fim da lista'
Plan4.Range("B" & Nlin + 1) = Me.ListBox1.List(Cont, 1)
Plan4.Range("K" & Nlin + 1) = TextBox13.Value
Nlin = Nlin + 1
Next



Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1559
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Re: Exportar dados listbox para planilha

Mensagem por Mauro Coutinho » Sex Jan 04, 2013 8:30 pm

Fabio, acontece que esta rotina foi para um caso especifico, e realmente substitui os dados anteriores que é para impressão.

Isto está definido na Variavel : Nlin = 2 'Linha inicial que carregara os dados' ou seja sempre Iniciara na Linha 2 + 1.

Se entendi corretamente sua intensão é sempre adicionar logo abaixo da última linha preenchida, se for isto terá de adicionar instrução para contar antes aqde de registros existentes na coluna e aba em questão e depois alimentar a váriavel Nlin.

Exemplificando, a rotina abaixo conta as linhas preenchidas na Coluna "A" da Aba Plan4 :

Código: Selecionar todos

Sub UltimaLinhaPreenchida()
    
    Dim oSht As Worksheet
    Dim lastRow As Long
    
    Set oSht = Sheets("Plan4")
    
    lastRow = oSht.Range("A" & Rows.Count).End(xlUp).Row
    
    MsgBox lastRow
    
End Sub
É só fazer a adaptação em sua rotina antes de lançar na aba.

[]s


Mauro Coutinho - Exemplos Somente em Office 2003
São José dos Pinhais - Pr
Se sua Duvida foi solucionada . . . .Acrescente [RESOLVIDO] ao título.
Ficou satisfeito com o FORUM ? Divulgue, indicando-o aos colegas !

lima.luiz
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Ter Jun 12, 2018 10:08 pm

Re: Exportar dados listbox para planilha

Mensagem por lima.luiz » Ter Jun 12, 2018 10:13 pm

Boa noite. Qual seria a forma de exportar para word??



lima.luiz
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Ter Jun 12, 2018 10:08 pm

Exportar dados listbox para word

Mensagem por lima.luiz » Seg Jun 18, 2018 12:20 am

boa noite pessoal....estou precisando de uma ajuda. Preciso exportar os dados da listbox selecionado para word com um texto pré-definido. Tipo cabeçalho. Veja print do meu listbox exemplo.
Anexos
Capturar.PNG
Capturar.PNG (51.47 KiB) Exibido 432 vezes



NERI INACIO
Colaborador
Colaborador
Mensagens: 51
Registrado em: Sáb Fev 27, 2016 7:31 pm

Re: Exportar dados listbox para planilha

Mensagem por NERI INACIO » Seg Jun 18, 2018 7:20 am

Amigo já conseguiu resolver a questão?



lima.luiz
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Ter Jun 12, 2018 10:08 pm

Re: Exportar dados listbox para planilha

Mensagem por lima.luiz » Seg Jun 18, 2018 9:22 am

Ainda não amigo....poderia ajudar?



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