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.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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.