ingresar fechas en textbox y autocomplete los demas textbox

[meduvilla]

hola.. buenas tardes a todos los master del Excel

por esta Milton nuevamente solicitando ayuda (para facilitar mi laburo)

bueno les informo que estoy intentando (sin resultado)  formulario de las colaciones del personal (es mensual) y la idea es :

que al ingresar la Fecha en un Textbox complete los demas textbox segun el menu de la fecha ingresada (imagino que es con funcion buscar)

si me pudieran ayudar con esto, agradecido ..

atte 

Milton Villarroel

Minuta 2018 v2.xlsm

[Leopoldo Blancas]

Prueba y comentas...

 

 

Saludos

Minuta 2018 v2.xlsm

[meduvilla]

Leopoldo , gracias Master ...cumple lo que necesito sorrry pero voy solicitando por parte debido a que voy intentando entender y aprender este lenguaje . espero tu comprencion estimado Leopoldo..

como segunda solicitud es posible que al momento de selecionar cualquiera de los 5 Menu con OptionButton,  lleve lo leccionado a la hoja "Datos"

como "1 Menu - Asado a la Olla c/Pure Mixto  -  Jugo "

[Leopoldo Blancas]

Hace 14 horas, meduvilla dijo:

cumple lo que necesito sorrry pero voy solicitando por parte debido a que voy intentando entender y aprender este lenguaje . espero tu comprencion estimado Leopoldo..

Me gustaría "Oír" que entiendes y que no de lo que facilite.

Saludos.

[meduvilla]

Leopoldo tu ayuda mira ...si el formulario se posiciona en cualquiera de las otras hojas .. que no sea MENU al ingresar fecha No carga los demas Textbox 

y otra consulta   ¿como puedo pasar la glosa de los Option Button a otra hoja excel?  

gracias Master estas ayudas ...

[Leopoldo Blancas]

Solo me falto poner un Punto . antes de la palabra Range en:

Private Sub TextBox2_Exit....

Abre otro Post, para que alguien mas te ayude.

Saludos.

[rolano]

Sub DatosDeHoja(hoja, Fecha, Nombre, Opcion, TipoAlmuerzo, TipoMenu)
hoja.Select

LastRow = hoja.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
Cells(LastRow, 2) = Fecha
Cells(LastRow, 3) = Nombre
Cells(LastRow, 4) = Opcion
Cells(LastRow, 5) = TipoAlmuerzo
Cells(LastRow, 6) = TipoMenu

End Sub

Hola a todos, prueba con el archivo adjunto,

Saludos

Minuta 2018 v2.1.c.xlsm

[meduvilla]

Hola estimado , gracias muchas gracias por toda la gran ayuda que nos brindan..

me falta los un datos mas para terminar este formulario

Es posible que al momento de consultar el Nombre cargue tambien en la Labels 26 las letras N o CF que estan en la hoja NOMBRE de la columna D.. con eso ya deberia cerra el formulario

espero esa ayuda por favor y gracia a todos por apoyar en las solicitudes

 

atte

Milton Villarroel

 

Minuta 2018 v4.1.xlsm

[Leopoldo Blancas]

No cabe duda que cuando no se quiere no se puede...

Saludos.

[rolano]

Private Sub TextBox1_Change()
Sheets("nombres").Select

Me.ListBox1.Clear
    For i = 3 To 70
        If LCase(Range("C" & i).Value) Like LCase(TextBox1.Text) & "*" Then
        Me.ListBox1.Visible = True
        
            ListBox1.ColumnWidths = "150 pt;01 pt"
            ListBox1.ColumnCount = 2
            Z = ListBox1.ListCount
            ListBox1.AddItem Range("C" & i).Value
            ListBox1.List(Z, 1) = Range("D" & i).Value
        
        End If
    
    Next i

End Sub

Private Sub ListBox1_Click()
TextBox1.Text = ListBox1.List(ListBox1.ListIndex)
Label26 = ListBox1.List(Z, 1)
Me.ListBox1.Visible = False
End Sub

Hola, cambia el código de Textbox1_Change y en el ListBox1_Click  por estos códigos.

[meduvilla]

GRACIAS ESTIMADO ROLANO..

SI EFECTIVAMENTE RESULTO ... PUEDE SER LA ULTIMA AYUDA POR FAVOR

SOLO ME FALTA LLEVAR EL LABEL26 A LA HOJA DATOS COLUMNA G

CON ESO YA NO TE QUITARIA MAS TIEMPO ..ESTIMADO  

ATTE

MILTON VILLARROEL

[rolano]

DatosDeHoja Hoja4, TextBox2, TextBox1, Boton2, Boton, Boton1, Label26

Sub DatosDeHoja(hoja, Fecha, Nombre, Opcion, TipoAlmuerzo, Tipoliquido, colocacion)
hoja.Select

LastRow = hoja.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
Cells(LastRow, 2) = Fecha
Cells(LastRow, 3) = Nombre
Cells(LastRow, 4) = Opcion
Cells(LastRow, 5) = TipoAlmuerzo
Cells(LastRow, 6) = Tipoliquido
Cells(LastRow, 7) = colocacion

End Sub

Hola, revisa el adjunto.

PD. espero que conozca el botón de me gusta  

Minuta 2018 v4.1.xlsm

[meduvilla]

bueeenaaa... master ..te pasates... este formulario me aliviano N" la recarga de trabajo.....

muy agradecido de todos Uds. que nos ayudan en esto ...on estos

una ayudita mas... donde encuentro el Boton??

atte

Milton Villarroel

[rolano]

Hola, con esto damos por cerrado el tema

[meduvilla]

si gracias Master..

tema cerrado...

atte

Milton Villarroel