Saludos Sr. @Héctor Miguel agradecido por sus comentarios.
Un poco de contexto, el resultado, que pretendo obtener en la Celda "E11" dependiendo de las horas introducidas en en la Celda "D11" me permite obtener los descansos obligatorios por Ley para periodos de tiempo determinados de alli que estoy tomando los cuatro casos más comunes, por tal motivo la Celda "D11" solo podrá adquirir valores comprendidos entre las 0 Horas y las 28 Horas mientas que la Celda "E11" exclusivamente podrá reflejar como resultado cuatro valores 0, 1, 2 y 3, ya que siendo un requisito legal no existe la posibilidad de obtener otro resultado si los valores de la Celda "D11" están comprendidos entre 0 Horas y 28 Horas, para acotar más el resultado y no dejar intervalos abiertos modifique la última fórmula:
=SI(Y($D8>=21;$D8<29);3;0)
Adjunto nuevamente el archivo con las correcciones mencionadas así como con los resultados esperados conforme me solicitó.
Libro1_110914.xlsx
Por
jues, · publicado
Hola amigos, tengo varios un combobox en un formulario dentro de excel, en un caso tengo cargado mediante el siguiente codigo:
Sub UserForm_Initialize()Plan_inver.List = Array("FERUM", "PLANREP", "PMD", "FRYPMA")
Arrastre.List = Array("FERUM 2010", "FERUM 2011", "PLANREP 2010", "PLANREP 2011", "PMD 2010", "PMD 2011")
Prog_ant.List = Array("FERUM 2010", "FERUM 2011", "PLANREP 2010", "PLANREP 2011", "PMD 2010", "PMD 2011")
Prioridad.List = Array("1 ALTA", "2 MEDIA", "3 BAJA", "REQUERIDO")
End Sub
en el otro caso estoy cargando los valores mediante la utilidad RowSource.
El inconveniente que tengo es que cuando envío los valores seleccionados en el combobox, no funciona y se carga siempre el primer valor.
Por favor si me podrían ayudar a solucionar, el codigo que estoy usando es:
Private Sub CommandButton8_Click()
Dim Datume, Zone, List_parr As String
Range("B3").Value = Nom_proy.Text
Range("C3").Value = Plan_inver.List
Range("D3").Value = Arrastre.List
Range("E3").Value = Prog_ant.List
Range("F3").Value = Prioridad.List
Range("G3").Value = Provincia.List
Range("H3").Value = Canton.RowSource
List_parr = Parroquias.RowSource
Range("I3").Value = List_parr
Range("J3").Value = Coord_x.Text
Range("K3").Value = Coord_y.Text
Datume = Datum1.RowSource
Range("L3").Value = Datume
Zone = Zona1.RowSource
Range("M3").Value = Zone
End Sub