Jump to content

[SOLUCIONADO]busqueda en combo box


esbira

Recommended Posts

Hola a todos! me he inscrito en este foro porque me parece muy interesante y todos son muy acertados en sus respuestas. Mi problema es el siguiente: Tengo una hoja con toda la lista de mis clientes y sus respectivos datos y en otra hoja tengo el formato de mi factura. Cuando yo selecciono del combo box el cliente me paparece en automatico su respectiva informacion (direccion, rfc, etc)

Ahora, lo que quiero hacer es tener una forma de buscar el cliente, quiza anotando el primer nombre, pues de otra forma tengo que ir recorreindo el scroll hasta que lo encuentre y pues pierdo tiempo porque son muchossss.

Espero su respuesta. Muchisimas gracias.

Esbira.:o

pruebas.zip

Link to comment
Share on other sites

Re: busqueda en combo box

Hola, he modificado un poco tu archivo y este es el resultado:

http://www.multiupload.com/IGRN9S0SXJ

Escribe primero (si primero) POR EJEMPLO el nombre Chimal en la celda B1 de la hoja Factura y despues elige la opcion de tu agrado en la flechita despegable de validacion.

Espero te sirva y te sea de utilidad.

Prueba/Intenta con otros nombres y ve lo que sucede

Recuerda activar las macros.

Debes escribir el nombre correctamente en la celda B1 tal cual esta en tu base de datos, es decir Hernández y no Hernandez, sin el acento.

Puedes inclusive cortar las palabras, asi, si escribes por ejemplo en B1 Herna no funciona, pero si escribes Herná si funcionara, ya que asi esta Herná... ndez en tu base de datos.

Y claro como dicen/decimos aqui, ¡ bienvenido/a al foro!

Saludos.

Link to comment
Share on other sites

Re: busqueda en combo box

Hola a todos! me he inscrito en este foro porque me parece muy interesante y todos son muy acertados en sus respuestas. Mi problema es el siguiente: Tengo una hoja con toda la lista de mis clientes y sus respectivos datos y en otra hoja tengo el formato de mi factura. Cuando yo selecciono del combo box el cliente me paparece en automatico su respectiva informacion (direccion, rfc, etc)

Ahora, lo que quiero hacer es tener una forma de buscar el cliente, quiza anotando el primer nombre, pues de otra forma tengo que ir recorreindo el scroll hasta que lo encuentre y pues pierdo tiempo porque son muchossss.

Espero su respuesta. Muchisimas gracias.

Esbira.:o

prueba con esto http://rapidshare.com/files/368558822/pruebas.xls

Link to comment
Share on other sites

  • 2 weeks later...
Guest
This topic is now closed to further replies.
  • Crear macros Excel

  • Posts

    • A ver que tal, prueba y comenta Facturación 26082021JSD.xlsm
    • Hola, Yo no me entero muy bien; en el ejemplo que has puesto de  Puedes usar =IZQUIERDA(A1;4)/100 (suponiendo que el numero esta en A1). Seguro que no te refieres a eso porque es muy simple, pon mas ejemplos.
    • Hola a todos, soy nueva por aquí     Tengo una duda de una exportación de una tabla SQL, donde los precios de los productos, en lugar de exportarlos en formato moneda con decimales, me los exporta en el siguiente formato: "00.000.000" está en formato "número", pero no sé como hacer para pasarlo a un formato de moneda, ya que los últimos tres "0" me sobran y me suma los 8 dígitos, cuando los 3 últimos no valen.    Por ejemplo:  10.123.001 (Es un producto que vale 10,12€ Como puedo hacer para eliminar el resto de dígitos? No encuentro la manera y claro, tampoco puedo realizar operaciones en excel puesto que me suma todos los dígitos...   No sé si me he explicado bien...   Gracias!!  
    • Buenas , soy nuevo en esto de Macros , pero investigando he dado esta solución , El macro funciona con el directorio "C:\Excel\"  la llamada al Macro es " Analizar_archivos" desde Libro.xlsm Option Explicit Dim ArchivoAbrir As Excel.Workbook Sub Analizar_Archivos() Dim Dir, Carpeta, Archivo As Object Dim Ruta As String Dim Listado() As Variant Set Dir = CreateObject("Scripting.FileSystemObject") Ruta = "C:\Excel\" ' ruta donde mirar On Error GoTo Error Set Carpeta = Dir.GetFolder(Ruta) For Each Archivo In Carpeta.Files ' recorremos los archivos de la carpeta If InStr(1, Archivo.Name, "~$") = 0 And _ InStr(1, Archivo.Name, "xlsm") = 0 And _ Archivo.Name <> "C:\Excel\Libro.xlsm" Then ' exclusiones AbrirarchivoExterno (Ruta & Archivo.Name) ' abrimos el archivo End If Next Exit Sub Error: MsgBox "Ruta inexistente", vbCritical End Sub Sub AbrirarchivoExterno(Archivo) On Error Resume Next If Len(Archivo) > 0 Then Set ArchivoAbrir = Workbooks.Open(Archivo) Workbooks.Open(Archivo).Application.Visible = False ' abrimos el archivo en modo invisible Comprueba ' comprobamos el archivo abierto Cerrar (Archivo) ' cerramos el archivo abierto End If End Sub Sub Cerrar(Archivo) Set ArchivoAbrir = Workbooks.Open(Archivo) ArchivoAbrir.Save ArchivoAbrir.Close End Sub Sub Comprueba() Dim Texto As String Texto = Range("Bc30").Value Select Case Texto Case Is = "hogares" Range("bc30").Value = "infiernos" Case Is = "alquileres" Range("bc30").Value = "placeres" Case Is = "compartir" Range("bc30").Value = "genesis" Case "infiernos", "placeres", "genesis" Case Else Range("Bc30").Value = "" End Select End Sub    suerte.
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy