Excel vba error '6' en tiempo de ejecución
Admirado Valero: Seguidor de sus respuestas, estoy seguro que Vd. Me puede ayudar. La cuestión es la siguiente:
CB_DA_2 es un combobox cuya RowSource tiene 40 celdas en una sola columna y el formato de sus datos es horas y minutos, por ejemplo : 04:30
La macro del combobox es:
Private Sub CB_DA_2_Change()
Me.CB_DA_2.Value=Format(CB_DA_2.value, "hh:mm")
End sub
Y al ejecutar el combobox aparece el mensaje de error.
Gracias anticipadas por su ayuda.
Saludos cordiales
1 Respuesta
No se exactamente como es tu libro, si acaso me lo mandas a:
Poniendo como asunto el título de la pregunta.
Entretanto he hecho pruebas con el combobox, un textbox donde meto los datos y un botón que los introduce en el combobox. Conforme se introducen les doy el formato. Esta es la macro.
Private Sub CB_DA2_Change() Me.CB_DA2.List(ListIndex) = Format(Me.CB_DA2.List(ListIndex), "hh:mm") End Sub Private Sub CommandButton1_Click() Me.CB_DA2.AddItem (TextBox1.Value) Me.CB_DA2.ListIndex = Me.CB_DA2.ListCount - 1 End Sub
Si no te sirve eso mándame el libro para ver qué sucede.
Muchas gracias, Valero!
Tu solución me va a venir muy bien para otra parte del proyecto. Cierro esta consulta y tan pronto pueda te envío el fichero y abro una nueva consulta.
Con gratitud,
Paco
