Cargar en un combo los meses de enero a diciembre
Hola experto:
Cómo puedo cargar los meses en un combo y cuando seleccione un mes del combo, en un textbox me ponga la fecha, siempre el primer día del mes y del año actual, por ejemplo, si selecciono junio, que me ponga 01/06/2015 en el textbox.
Gracias por la ayuda.
1 respuesta
Respuesta de Dante Amor
1
Te anexo el código para cargar los meses en el combo y para poner la fecha en el textbox
Private Sub ComboBox1_Change()
'Por.Dante Amor
m = ComboBox1.ListIndex + 1
TextBox1 = "01/" & Format(m, "00") & "/" & Year(Date)
End Sub
'
Private Sub UserForm_Activate()
'Por.Dante Amor
meses = Array("Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", _
"Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre")
For i = 0 To 11
ComboBox1.AddItem meses(i)
Next
End Sub
