cargar listbox dependiendo valor de celda

[Wrongdoer]

buenas tardes, quiero cargar un listbox dependiendo el valor de la celda, me funciona como lo hice pero queria saber si hay una forma mas resumida de hacerlo.

asi es como lo hice

Private Sub CommandButton1_Click()

Range("a1").Select

Do Until ActiveCell.Value = ""

If ActiveCell.Value = Range("c1").Value Or ActiveCell.Value = Range("c2").Value Or ActiveCell.Value = Range("c3").Value Then

ListBox1.AddItem ActiveCell.Value

End If

ActiveCell.Offset(1, 0).Select

Loop

End Sub

pero enves de eso me pregunto si se podra hacer de esta manera o algo parecido

Private Sub CommandButton1_Click()

Range("a1").Select

Do Until ActiveCell.Value = ""

If ActiveCell.Value = Range("c1:c3").Value Then

ListBox1.AddItem ActiveCell.Value

End If

ActiveCell.Offset(1, 0).Select

Loop

End Sub

muchas gracias.

[Antoni]

Hola:

La segunda opción no funcciona, ya que Range("c1:c3").Value lo toma como un array de valores, por lo que no se cumplirá nunca la condición, y además supongo que daría un error 13 en tiempo de ejecución.

Yo no le veo ningún problema a la primera opción.

Saludos

[nachobm]

Hola,

prueba con esto, creo que el queda un poco más limpio

Private Sub CommandButton1_Click()
Dim cel As Variant
Range("a1").Select
With ActiveCell
    For Each cel In Range("c1:c3").Cells
        If .Value = cel.Value Then ListBox1.AddItem .Value
    Next
    .Offset(1, 0).Select
End With
End Sub
[/PHP]

Un Saludo

[Wrongdoer]

listo gracias por las dos respuestas, aunque la segunda no me funciono, el primer ejemplo que puse lo queria reemplazar porque si tuviera muchas condiciones me queria evitar el OR