Consulta sobre Userform

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

1 respuesta

Respuesta
1
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas