Userform o macro para buscar todos los datos de un cliente solo con el numero de CI, que están almacenados en una base de datos.

Cuando tienes el libro abierto en la hoja que necesitas llamas a una macro... No sabemos que hace esa macro: MACRO _BUSCAR_REGCLIENTE, deja también las instrucciones para ajustarla o me comentas si necesitas las instrucciones de búsqueda

Ahora, lo que sigue no es el modo más correcto de pasar datos a los controles.

Imaginemos que encuentras los datos en la fila 'filx'

El pase a los controles seria:

Textbox2 = Range("B" & filx)

Textbox3 = Range("D" & filx)

Comentame sobre tu MACRO... para completar el proceso.

Hola, mira la macro es esta:

Sub MACRO _BUSCAR_REGCLIENTE()
'
' PARTE1 Macro
'
buscar = Range("A1")

Cells.Find(What:=buscar, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Selection.EntireRow.Select
Selection.Copy
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B3").Select
'
End Sub

Lo que sucede es que cuando ejecuto el userform siempre me copia el primer cliente de la lista y no el que le pido que me busque.

Te dejo las instrucciones para realizar la búsqueda y colocar los campos en el formulario.

Private Sub BOTON_BUSCAR_Click()'ajustada x Elsamatilde'definimos rutas y archivos como variablesrutabaseDatos = "C:\Sistema base de datos\"baseDatos = "EWA BASE DE DATOS.xlsm"direccionbaseDatos = rutabaseDatos & baseDatos'damos la orden de abrir la base de datos y pegue el numero de CI en la celda A1Application.ScreenUpdating = FalseWorkbooks.Open Filename:=direccionbaseDatosWorksheets("REG.CLIENTES").ActivateRange("B7").Select'hasta aquí ya estamos posicionados en la hoja Base'para pegar el valor de CI en A1 es así pero no hace falta para la búsqueda:    'Range("A1") = textbox1     'TextBox1 = Range("A1")'Esta macro solo busca el registro y lo pega en fila 3, no se entiende su finalidad    'MACRO_BUSCAR_REGCLIENTE'comienza la búsqueda del dato y devolución del resto del registro en el formularioDim buscoDim filx As LongSet busco = ActiveSheet.Range("A:A").Find(textbox1, LookIn:=xlValues, lookat:=xlWhole)'si encuentra el dato en col A copia el resto de los campos en los controles del formularioIf Not busco Is Nothing Then    'guardo la fila encontrada    filx = busco.Row    textbox2 = Range("B" & filx)    textbox3 = Range("C" & filx)    textbox4 = Range("D" & filx)    textbox5 = Range("E" & filx)Else    'si no encuentra datos deja los controles limpios    textbox2 = "": textbox3 = "": textbox4 = "": textbox5 = ""End If'opcional: posicionarse en el primer controltextbox2.setfocustextbox5.SetFocus'cierra el libroWorkbooks(baseDatos).Close savechanges:=FalseApplication.ScreenUpdating = TrueEnd Sub

No indicas qué tipo de dato es CI: si es numérico la línea del Set sería así:

Set busco = ActiveSheet.Range("A:A").Find(Val(textbox1), LookIn:=xlValues, lookat:=xlWhole)

PD) No debes dejar tus agregados como 'nueva respuesta' sino como 'aclaraciones'

Probala y comentame. Si te surge algún error dejame imagen de la hoja de datos de tu libro base con los encabezados y algunas filas de datos.

Sdos

Elsa

Hola, muchas gracias por tu ayuda.

Mira esta es la base de datos, intente con las instrucciones que me dejaste pero me queda rojo desde donde dice dim

Te detallo lo que necesito; cuando se muestre el formulario en el Texboxt1 debo ingresar el numero de cédula de la persona que deseo buscar y que automáticamente los demás datos se muestren en el formulario.

La fila donde se encuentran los números de cedula es la C

El nombre esta en la fila B y debe ir en el textbox2

La dirección esta en la fila DE y debe ir en el textbox3

El teléfono esta en la fila E y debe ir en el textbox4

El email esta en la fila F y debe ir en el textbox5

Espero que me puedas ayudar muchísimas gracias.