Combobox con mes y fecha Excel vba
Tengo un userform con dos combobox, cuál sería el código para que en el primer combobox1, me salga los meses del año actual, y al seleccionar cualquier mes del combobox1 me cargue en el segundo comboBox 2, la fecha de ese mes.
2 respuestas
Respuesta de Mario Rodríguez
3
:)
.
Pon lo siguiente en el módulo de tu UserForm:
Private Sub UserForm_Initialize() Dim i% For i = 0 To 11 ComboBox1.AddItem StrConv(Format(DateSerial(Year(Date), 1 + i, 1), "mmmm"), 3) Next End Sub Private Sub ComboBox1_Click() Dim iDate As Date ComboBox2.Clear iDate = DateSerial(Year(Date), 1 + ComboBox1.ListIndex, 1) Do ComboBox2.AddItem iDate iDate = 1 + iDate Loop Until Day(iDate) = 1 End Sub
Saludos, Mario R.
:)
.
¡Gracias!
Excelente muchas gracias y lo mejor es que no tiene mucho código!
Saludos, willian
:)
:)
Gracias por avisar.
:)
.
:)
Dicho sea de paso, también puedes cargar el ComboBox1 así:
Private Sub UserForm_Initialize() Dim i% For i = 1 To 12 ComboBox1.AddItem StrConv(MonthName(i), 3) Next End Sub
Saludos y hasta la próxima.
:)
.
Respuesta de Programar Excel
1
