Enviar alguns dados do ListBox para Planilha

[Adonias]

CAros,
Qual o código permitiria enviar apenas os daods de algumas colunas do List para aa planilha
A busca é realizada e apresentada no Listbox as dez colunas conforme tabela.
Entretanto, quero que apenas 6 dessas colunas seja enviadas para outra planilha.

Como defino isto?


Agradeço

[Rafael]

Adonias,

uma alternativa seria você programar a macro exportar para excluir as informações da coluna que você desejar. Inclua o código na ultima linha da macro exportar para você ver o exemplo:

Código: Selecionar todos

Range ("g1:l100") = ""

[Adonias]

Rafael, não é tão fácil quanto parece
Deixe-me fazer entender melhor
No list as informações são aparesentadas em várias linhas e várias colunas assim

CNPJ RAZAO DATA Nº PROCESSO TIPO SITUACAO


Quero que vá para planilha apenas as colunas

CNPJ Razao Situação

Endetede?

Aguardo

[Rafael]

Adonias,

Entendi sim. Me envie uma cópia do seu projeto para que eu possa dar uma olhada.

Abs.

[Adonias]

Rafael, click na aba "Relatórios" e em seguida em "Histórico por Processos"

digite 134337200582010

repare que aparecerá o list preenchido com os dados da planilha "Processos"
Selecione quaisquer itens da lista e dê um duplo click que o botão gerar relatorio aparecerá
Bem, eese botão está sem código. Eu só consigo fazer com que todas as colunas do list seja lançadas na planilha Historico
Entretanto, eu quero que apenas as colunas que constam da planilha Historcio sejam enviado para ela

Se conseguir agradeço muito
Adonias

[Adonias]

esqueci de anexa

[Adonias]

só acrescentando mais uma informação:
Preciso enviar apenas algumas colunas do list para a planilha e que apareça na planilha em colunas seguidas mesmo estando em colunas separadas no list.

Exemplo:

no list: cnpj razao protocolo data cod. situação
na planilha: cnpj razao cod situação


Ok?

Alguém poderia me dar uma dica?

[joseA]

Grande Adonias,

Penso que as linhas abaixo irão direcioná-lo:

Código: Selecionar todos

Dim iRow As Integer
Dim i, w, lastRow As Integer
Dim lItem As Double

Dim rStartCell As Range
Sheet1.Range("A1:E30").Value = ""
Set rStartCell = Sheet1.Range("A65536").End(xlUp).Offset(0, 0)
For lItem = 0 To ListBox1.ListCount - 1
iRow = iRow + 1
rStartCell.Cells(iRow, 1).Value = ListBox1.List(lItem, 0)
rStartCell.Cells(iRow, 2).Value = ListBox1.List(lItem, 1)
rStartCell.Cells(iRow, 3).Value = ListBox1.List(lItem, 2)
rStartCell.Cells(iRow, 4).Value = ListBox1.List(lItem, 5)
Next

Anúncios