Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Exportar dados listbox para planilha
Exportar dados listbox para planilha
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.
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.
Re: Exportar dados listbox para planilha
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
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
-
- Acabou de chegar
- Mensagens: 3
- Registrado em: Qua Jan 02, 2013 9:00 am
Re: Exportar dados listbox para planilha
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
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
- Mauro Coutinho
- 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
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 :
É só fazer a adaptação em sua rotina antes de lançar na aba.
[]s
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
Exportar dados listbox para word
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 (51.47 KiB) Exibido 7743 vezes
-
- Colaborador
- Mensagens: 62
- Registrado em: Sáb Fev 27, 2016 7:31 pm