Autocompletar datos en textbox si existe en hoja
Tengo una hoja que la uso como formulario para registrar nombres de personas, el detalle es que quisiera saber si es posbiel que al insertar un numero de documento de identidad llene por defecto los textbox de la hoja ya que los nombres pueden repetirse constantemente y como ya existe en la BD seria innecesario estar digitando a cada rato los mismos datos, algo similar como el BUSCARV pero que haga el recorrido por medio de macros:
Dejo una sintaxis para que se puede entender la consulta:
txt_documento = numero de documento 'dato principal
txt_tipodoc = tipo de documento
txt_nombre = nombre de persona
txt_sexo = sexo
txt_fechanacimiento = fecha de nacimiento
Son los campos que se repiten constantemente
Ahora el detalle seria llenarlos al insertar el numero de documento de identidad en el txt_documento y que se autocompleten los demás, quedaría llenar los otros txt independientemente ya que esos si varían constantemente.
2 Respuestas
H o l a
Te paso la macro, te faltó indicar como está organizado tus datos.
Este código le pones en el evento Exit del Txtdocumento y también actualiza el nombre de la hoja.
Private Sub txt_documento_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Por Aortiz
If TextBox1 = "" Then Exit Sub
Set h = Sheets("hoja1") 'nombre de la hoja
Set b = h.Columns("A").Find(txt_documento, lookat:=xlWhole) 'Busca en la columna A
If Not b Is Nothing Then 'Si lo encuentra
txt_tipodoc = h.Cells(b.Row, "B").Value
txt_nombre = h.Cells(b.Row, "C").Value
txt_sexo = h.Cells(b.Row, "D").Value
txt_fechanacimiento = h.Cells(b.Row, "E").Value
Else
MsgBox "El dato no existe" 'si no existe
End If
End Subsi tienes problemas muestra una imagen de la hoja y del formulario.
Si es suficiente valora la respuesta para finalizar saludos!
Este ejemplo
http://www.programarexcel.com/2014/12/combobox-depende-otro-combobox-carga.html
En http://www.programarexcel.com/p/userform.html tienes cientos de ejemplos que puedes descargar y te servirán para tu proyecto