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

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 »

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: 1048
Registrado em: Qui Out 22, 2009 7:22 am
Localização: Cel. Fabriciano - MG

Re: Exportar dados listbox para planilha

Mensagem por joseA »

Salve Neri,

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


Neri

Re: Exportar dados listbox para planilha

Mensagem por Neri »

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: 1048
Registrado em: Qui Out 22, 2009 7:22 am
Localização: Cel. Fabriciano - MG

Re: Exportar dados listbox para planilha

Mensagem por joseA »

Vlw Neri, ;)

Estando ao alcance...


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 »

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: 1561
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 »

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


lima.luiz
Colaborador
Colaborador
Mensagens: 14
Registrado em: Ter Jun 12, 2018 10:08 pm

Re: Exportar dados listbox para planilha

Mensagem por lima.luiz »

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


lima.luiz
Colaborador
Colaborador
Mensagens: 14
Registrado em: Ter Jun 12, 2018 10:08 pm

Exportar dados listbox para word

Mensagem por lima.luiz »

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 7743 vezes


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

Re: Exportar dados listbox para planilha

Mensagem por NERI INACIO »

Amigo já conseguiu resolver a questão?


lima.luiz
Colaborador
Colaborador
Mensagens: 14
Registrado em: Ter Jun 12, 2018 10:08 pm

Re: Exportar dados listbox para planilha

Mensagem por lima.luiz »

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