Agregar un item a un listbox
Saludos tengo, este código que cargar unos item a un listbox como le agrego un item a un listbox que diga (Todos). Sin tener que escribirlo en la hoja de excel.
If Weekday(Date) = vbSunday And Time < 0.745138888888889 Then
For Each celda In Range("N11:N18") If celda <> Empty Then ComboBox1.AddItem celda.Value
Next End IfGracias de Antemano
1 Respuesta
No has explicado el problema que tienes no pones el código completo, lugar donde está la macro, si es un Combobox de formulario o incrustado en la hoja, etc.
Yo he hecho esta macro y funciona
Sub macro()
If Weekday(Date) = vbThursday And Time < 24.7451388888889 Then
For Each celda In Range("N11:N18")
If celda <> Empty Then Worksheets("hoja1").ComboBox1.AddItem celda.Value
Next
End If
End SubLa macro está en un módulo y el combobox es un control ActiveX incrustado en la Hoja1.
Prueba a ver si te sirve. He cambiado el dia y hora para que pudiera funcionar hoy, pero tu pones los que necesites una vez lo hayas probado. Si las condiciones son otras explícamelas o manda el fichero a
Poniendo como asunto el título de la pregunta.
Ok, pero como le agrego un item que diga “Todos”, sin tener que escribirlo en la hoja de excel
Siguiendo con el ejemplo que puse, si lo quieres el último sería:
Sub macro()
If Weekday(Date) = vbThursday And Time < 24.7451388888889 Then
For Each celda In Range("N11:N18")
If celda <> Empty Then Worksheets("hoja1").ComboBox1.AddItem celda.Value
Next
Worksheets("hoja1").ComboBox1.AddItem "Todos"
End If
End SubAunque puedes ponerlo en cualquier lugar.
Y eso es todo.
