Saltar al contenido
meduvilla

ingresar fechas en textbox y autocomplete los demas textbox

Recommended Posts

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

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs

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 "

image.png.cfb34df878507b8101488e8ea922c1b2.png

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs

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 ...

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs
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

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs

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

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs
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.

Editado el por rolano
Falto pegar códigos

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs
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 B):D 

Minuta 2018 v4.1.xlsm

Compartir este mensaje


Enlace a mensaje
Compartir con otras webs

Crear una cuenta o conéctate para comentar

Necesitas ser usuario para poder dejar un comentario

Crear una cuenta

Registrarse para una nueva cuenta en nuestra comunidad. ¡Es fácil!

Registrar una nueva cuenta

Conectarse

¿Ya tienes una cuenta? Conéctate aquí.

Conéctate ahora

×

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.