Selecionados do ListBox p/ planilha
Enviado: Sex Mai 24, 2013 1:07 pm
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
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