copiar do listbox para a planilha

[valdecirr]

Tenho uma linha de comando que segue a baixo, mas não funciona, não mostra erro mas não faz nada.

declarei um nome: Private Const planilhaDestino As String = "Resultado"

depois o comando em um botão para copiar o resultado:

Private Sub btn_copiar_Click()

Call Copiar_ListBox_Para_Planilha("Resultado", Me.ListBoxLista)

End Sub

Em seguida a linha de comando para executar a copia:

Sub Copiar_ListBox_Para_Planilha(ByVal NomePlanilhaDestino As String, ByRef listBoxControl As MSForms.ListBox)

Dim iListCount As Integer, iColCount As Integer, iColListCount As Integer

Dim iRow As Integer

Dim linhaInicial As Integer

Dim planilhaDestino As Worksheet

Set planilhaDestino = ThisWorkbook.Worksheets(NomePlanilhaDestino)

linhaInicial = planilhaDestino.Cells(65536, 2).End(xlUp).Row + 1

If listBoxControl.RowSource <> "" Then

iColListCount = Range(listBoxControl.RowSource).Columns.Count

Else

iColListCount = listBoxControl.ColumnCount - 1

End If

If listBoxControl.ColumnHeads Then

iRow = 1

End If

'faz o loop para todos os itens do ListBox

For iListCount = 0 To listBoxControl.ListCount - 1

If listBoxControl.Selected(iListCount) = True Then 'testa se o item está selecionado

listBoxControl.Selected(iListCount) = False

iRow = iRow + 1

'faz o loop pelas colunas

For iColCount = 0 To iColListCount - 1

'copia os dados do controle para a planilha

planilhaDestino.Cells(iRow, iColCount + 1).Value = listBoxControl.List(iListCount, iColCount)

Next iColCount

End If

Next iListCount

End Sub

[Márcio Rodrigues]

Olá valdecirr

você precisa preencher o .ROWSOURCE.

Alterei o MultiSelect do ListBox para poder selecionar mais de um item.

http://www.sendspace.com/file/w67rzn

Veja se é por aí!!!

Márcio