Como actualizar un combobox cambiando la selección de un OptionButton
"para Dante Amor"
Tengo el combobox5 que se alimenta de la información que tiene la columna A de la hoja BBDD, y tengo unos 12 OptionButton con los meses del año que tienen una macro que coloca los días del mes la columna A, para que se llene el combobox5 con esta selección, pero resulta que cuando de inicia el formulario, se carga con lo que esta en la columna A, previamente.
Debo colocar un código al form o al optionbutton para que este actulice el combobox 5.
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Para cargar la fecha según el mes:
Private Sub OptionButton1_Click() Call CargaMes(1) 'Enero End Sub Private Sub OptionButton2_Click() Call CargaMes(2) 'Febrero End Sub Private Sub OptionButton3_Click() Call CargaMes(3) 'Marzo End Sub Private Sub OptionButton4_Click() Call CargaMes(4) 'Abril End Sub Private Sub OptionButton5_Click() Call CargaMes(5) 'Mayo End Sub Private Sub OptionButton6_Click() Call CargaMes(6) 'Junio End Sub Private Sub OptionButton7_Click() Call CargaMes(7) 'JULIO End Sub Private Sub OptionButton8_Click() Call CargaMes(8) 'AGOSTO End Sub Private Sub OptionButton9_Click() Call CargaMes(9) 'SEPTIEMBRE End Sub Private Sub OptionButton10_Click() Call CargaMes(10) 'OCTUBRE End Sub Private Sub OptionButton11_Click() Call CargaMes(11) 'NOVIEMBRE End Sub Private Sub OptionButton12_Click() Call CargaMes(12) 'DICIEMBRE End Sub Sub CargaMes(m) ComboBox5.Clear dia = Day(DateSerial(Year(Date), m + 1, 1) - 1) For i = 1 To dia fecha = DateSerial(Year(Date), m, i) ComboBox5.AddItem fecha Next End Sub
[code]':)
'Saludos. Dante Amor. Recuerda valorar la respuesta.
