selecionar todos os itens da combobox

[cleitoncoelho]

Pessoal Boa Tarde!

Tem como eu selecionar todos os valores de uma list box?

Private Sub CommandButton1_Click()
Dim numlinha As Double
Dim numlinha2 As Double
Dim numcoluna As Double


numlinha = 2
numlinha2 = 10

Plan3.Cells.Range("A10:G1000") = ""
'Limpa toda a planilha entes de executar.

Do While Plan1.Cells(numlinha, 3) <> ""
    
    If Plan1.Cells(numlinha, 3) = cbotipo.Text Then    ------ seleciono o tipo de equipamento (carregamento ou Transporte)
        If Plan1.Cells(numlinha, 4) = Cbofrota.Text Then  ------ Quero selecionar todos os valores da combobox------ como fazer isso?
            If (Plan1.Cells(numlinha, 1)) >= DTPicker1 And Plan1.Cells(numlinha, 1) <= DTPicker2 Then
                        Plan3.Cells(numlinha2, 1) = Plan1.Cells(numlinha, 1)
                        Plan3.Cells(numlinha2, 2) = Plan1.Cells(numlinha, 2)
                        Plan3.Cells(numlinha2, 3) = Plan1.Cells(numlinha, 3)
                        Plan3.Cells(numlinha2, 4) = Plan1.Cells(numlinha, 4)
                        Plan3.Cells(numlinha2, 5) = Plan1.Cells(numlinha, 5)
                        Plan3.Cells(numlinha2, 6) = Plan1.Cells(numlinha, 6)
                        Plan3.Cells(numlinha2, 7) = Plan1.Cells(numlinha, 7)
                        numlinha2 = numlinha2 + 1
            End If
        End If
    End If
    numlinha = numlinha + 1
Loop

Valeu!

Editado Dezembro 15, 2010 por kuroi
Adicionar tag CODE

[kuroi]

"selecionar" todos os itens?? não deu pra entender direito o q você quer...

e afinal é uma combobox ou uma listbox?? se você quer q todos os itens fiquem selecionados ao mesmo tempo, vai funcionar somente na listbox, é só você setar a propriedade .Selected(indice) como True para cada item (onde, no exemplo, indice é o numero do item, comecando no 0).

agora se o q você quer é, nesse seu codigo comparar o texto de cada item com a celula da planilha, então faca um for q va de 0 até .ListCount - 1, e já comparando a propriedade .List(indice) do combobox.

[cleitoncoelho]

"selecionar" todos os itens?? não deu pra entender direito o q você quer...

e afinal é uma combobox ou uma listbox?? se você quer q todos os itens fiquem selecionados ao mesmo tempo, vai funcionar somente na listbox, é só você setar a propriedade .Selected(indice) como True para cada item (onde, no exemplo, indice é o numero do item, comecando no 0).

agora se o q você quer é, nesse seu codigo comparar o texto de cada item com a celula da planilha, então faca um for q va de 0 até .ListCount - 1, e já comparando a propriedade .List(indice) do combobox.

Fiz assim so que não esta trazendo os valores de acordo com a minha seleção no listbox. Alterei a propriedade para multiselect.

Sera que podem me ajudar??

For lItem = 0 To ListBox1.ListCount - 1

        If ListBox1.Selected(lItem) = True Then

            Plan1.Cells(numlinha, 4) = ListBox1.List(lItem)

            ListBox1.Selected(lItem) = False

        End If

    Next

Editado Dezembro 16, 2010 por kuroi
Adicionar tag CODE

[kuroi]

você quer q todos os itens selecionados do listbox sejam escritos na planilha em linhas diferentes??

o codigo deve ser mais ou menos esse, só q ele esta escrevendo todos na mesma linha, um sobrepondo o outro. no final deve ter só um dos itens escrito na planilha.

você deveria ir somando o numlinha dentro do if.

[cleitoncoelho]

você quer q todos os itens selecionados do listbox sejam escritos na planilha em linhas diferentes??

o codigo deve ser mais ou menos esse, só q ele esta escrevendo todos na mesma linha, um sobrepondo o outro. no final deve ter só um dos itens escrito na planilha.

você deveria ir somando o numlinha dentro do if.

O numlinha é apenas para ele começar apartir da linha2 que é onde começa os meus valores que preciso mostrar.

Preciso que eles sejam escritos em linhas diferentes.

Obrigado!

[kuroi]

mas se o numlinha for sempre 2, ele vai escrever sempre na linha 2, ue.

ainda é aquilo q falei no post de cima.