Página 1 de 1

Selecionados do ListBox p/ planilha

Enviado: Sex Mai 24, 2013 1:07 pm
por betoacunha
Olá pessoal...

Uso o código abaixo para enviar os dados para a planilha. Na propriedade do listbox optei pela multiseleção. Não tô conseguindo adaptar este código para enviar somente os ítens que selecionei para esta planilha.

Private Sub cmdEnviar_Click()

Dim Lin As Integer

Dim Cont As Integer

Sheets("Horario").Range("A2:C1000").ClearContents

Lin = 2

For Cont = 1 To Me.lbxTurmas.ListCount - 1

Worksheets("Horario").Range("A" & Lin) = Me.lbxTurmas.List(Cont, 1)
Worksheets("Horario").Range("B" & Lin) = Me.lbxTurmas.List(Cont, 2)
Worksheets("Horario").Range("C" & Lin) = Me.lbxTurmas.List(Cont, 3)

Lin = Lin + 1
Next
End Sub

Abs e Ajuda!!!

Beto

Re: Selecionados do ListBox p/ planilha

Enviado: Seg Mai 27, 2013 11:56 am
por Mauro Coutinho
Troque sua rotina pela a abixo e veja se é sito :

Código: Selecionar todos

Private Sub cmdEnviar_Click()
    Dim rStartCell As Range
    Dim iListCount As Integer, iColCount As Integer
    
    Sheets("Horario").Range("A2:C1000").ClearContents
    
    Set rStartCell = Sheets("Horario").Range("A65536").End(xlUp).Offset(1, 0)
    
        For iListCount = 0 To lbxTurmas.ListCount - 1
            If lbxTurmas.Selected(iListCount) = True Then  'User has selected
                lbxTurmas.Selected(iListCount) = False
                iRow = iRow + 1
                
                For iColCount = 0 To Range("MyRange").Columns.Count - 1
                    rStartCell.Cells(iRow, iColCount + 1).Value = _
                    lbxTurmas.List(iListCount, iColCount)
                Next iColCount
            End If
        Next iListCount
    
    Set rStartCell = Nothing

End Sub

Re: Selecionados do ListBox p/ planilha

Enviado: Seg Mai 27, 2013 12:30 pm
por betoacunha
È isto aí ...

Ficou perfeito, só troquei o segundo For por:

For iColCount = 1 To Me.lbxTurmas.ListCount - 1

Brigadão Mauro

Beto Cunha