Error en fecha combobox
hola expertos buen día, tengo el siguiente código:
Private Sub UserForm_Initialize()
ComboBox2.Value = Format(Date, "YYYY")
End Sub
Private Sub ComboBox1_Change()
FILA = ActiveCell.Row
Range("A" & FILA & "") = Format("01-" & Mid(ComboBox1, 1, 3) & "-" & ComboBox2, MM - DD - YY)
End Sub
tengo el combobox 1 en donde el usuario selecciona el mes y el combobox 2 en donde selecciona el año, pero a la hora de elegir por ejemplo febrero 2013, me arroja febrero 2012 (que es el valor default del combobox2) y cuando cambio la sub al combobox2 no me pone el mes en absoluto me genera 1--2012
Gracias de antemano por la pronta respuesta!!!
1 respuesta
Si no te quedó claro podes solicitar aclaraciones...
Te estaba comentando que según lo que comentas la rutina debe estar en el combo2:
Private Sub ComboBox2_Click()
FILA = ActiveCell.Row
Range("A" & FILA & "") = Format("01-" & Mid(ComboBox1, 1, 3) & "-" & ComboBox2, MM - DD - YY)
End Sub
PD) Uso click en lugar de change para que no se te ejecute cuando haces el cambio en el evento Initialize
Si te queda algo sin resolver con este tema solicita Aclaraciones, sino opta por Finalizar.
Sdos
Elsa
