Quisiera, que cuando digite en un textbox, cierta información, me aparezcan otra información ya registrada Ejemplo: cuando digite el # de Cedula, me aparezca nombre, Fnacimiento, Fingreso, # de hijos, teléfono etc. Pero que me aparezca en el mismo userform Muchas gracias
En mi sitio de descargas encontrarás un ejemplo llamado Interactuando con Userforms. Allí hay varios modelos pero el Userform1 te servirá. Si te encontrás con alguna dificultad para adaptarlo a tu libro, escribime nuevamente. Saludos Elsa http://es.geocities.com/lacibelesdepunilla/descargas
Ya tengo el userform y me aparecen los datos de lo que yo quiero, pero tengo otro problema, cuando doy un checkbox quisiera que apareciera otra ventana y que me mostrara alguna información del userform. La otra es que tengo este código, pero no me elimina la información Private Sub ecbAceptar_Click() Sheets("Empleado").Select Range(ubica).EntireRow.Delete MsgBox "Has Eliminado el Empleado", vbInformation, "Eliminacion de Empleado" Worksheets("Inicio").Activate End Sub Private Sub ecbCancelar_Click() Unload Me End Sub Private Sub aCedulaNueva_AfterUpdate() Sheets("Empleado").Select filalibre = Range("A1").End(xlDown).Offset(1, 0).Row 'la variable filalibre guarda el nro. de la primer celda vacía. dato = aCedulaNueva rango = "A2:A" & filalibre Set midato = ActiveSheet.Range(rango).Find(dato, LookIn:=xlValues, LookAt:=xlWhole) If Not (midato) Is Nothing Then ubica = midato.Address(False, False) aNombreCompleto.Value = Range(ubica).Offset(0, 1).Value aFNacimiento.Value = Range(ubica).Offset(0, 2).Value aEstadoCivil.Value = Range(ubica).Offset(0, 3).Value aEditHijos.Value = Range(ubica).Offset(0, 4).Value aTelefono.Value = Range(ubica).Offset(0, 5).Value aCelular.Value = Range(ubica).Offset(0, 6).Value aFIngreso.Value = Range(ubica).Offset(0, 7).Value aSalarioInicial = Range(ubica).Offset(0, 8).Value aDepartamento = Range(ubica).Offset(0, 9).Value aPuesto = Range(ubica).Offset(0, 10).Value Else End If End Sub Como hago para que me puede eliminar la información, lo que me dice es que como que la información esta vacía...
Imagino que la rutina que no te está funcionando bien es la del botón ecbAceptar. Fíjate que hace mención a una variable 'ubica' Esta variable viene de otro proceso, por lo que no debes olvidar de llamarla pública (en algún módulo la encontrarás)
Public ubica Pruébalo nuevamente y comentame si ahora funciona. Con respecto a una rutina para un checkbox, podes utilizar esto, ajustando el mensaje que solo se mostrará cuando lo actives: Private Sub CheckBox1_Click() If CheckBox1.Value = True Then 'cualquier acción que quieras ejecutar con el checkbox activado MsgBox "El control quedó activado" End If End Sub
Muchas gracias por lo de eliminar me sirvió muy bien sigo con lo de checkbox, yo tango un userform que le doy el # de cedula y me muestra nombre, dirección, teléfono, fecha de nacimiento etc, pero quiro que cuando le checkbox me pueda generar otro userform y que me pueda mostrar el nombre del primer userform(donde digite el numero de cedula). otra consulta, como hago para que en el textbox, pueda darle un formato ejemplo(#-####-####) y tambien con la fecha pero solo que el usuario digite consecutivamente la informacion que no tenga que separarla. Como hago para dar colores o letras dentro de visual basic muchas gracias de ante mano
Lamento ser descortés pero en este foro vamos respondiendo de a 1 por usuario... La primera ya quedó solucionada... sigo con la 2da porque ya la iniciamos, pero luego finalizá esta y dejá el resto en una nueva consulta en el tablón. No me queda claro si al dar clic en el checkbox el userform1 debe cerrarse o no. Consideraré que solo lo ocultamos mientras seguís trabajando en el userform2. Private Sub CheckBox1_Click() If CheckBox1.Value = True Then 'cualquier acción que quieras ejecutar con el checkbox activado me.hide userform2.show End If End Sub El userform2 puede hacer uso del contenido del UF1 de esta manera. por ej;: Textbox2.value = Userform1.textbox1.value Saludos Elsa Todo lo que necesitas saber acerca del uso de Userforms lo encontrarás en mi Manual: Creando Formularios (Userforms y algo más). Podes descargar la demo gratuita desde: http://es.geocities.com/lacibelesdepunilla/manuales http://es.geocities.com/lacibelesdepunilla/manuales