Jump to content

psycho99killer

Members
  • Content Count

    122
  • Joined

  • Last visited

About psycho99killer

  • Rank
    Advanced Member
  • Birthday 07/02/1985

Profile information

  • Gender
    Hombre
  • Interests
    El buen anime 90´s 80s, el rock. y los tradicionales juegos de arcade uno por excelencia KOF. de los 90s

Converted

  • Campos
    ,

Recent Profile Visitors

1,024 profile views
  1. Hola que tal.sr.riddle una consulta. Usted me hizo un formulario con filtro que me lo desarrollo muy bien. La pregunta es la siguiente: para que funcione el formulario de busqueda tengo que tener activado :microsoft activex data objects 6.1 library. Bueno no tuve problema porque en mi laptop tengo office 2016 y estaba en las opciones. El problema fue cuando me fui a otra pc y esta tenia office 2010 y no tenia :microsoft activex data objects 6.1 library y me salia error. Que me recomienda que pueda hacer ? Tener siempre en mi usb: microsoft activex data objects 6.1 library para instalarlo? Bueno no se si es compatible con office 2010 o hay alguna otra solucion?

    Bueno a la espera de su amable ayuda. 

    Me despido.

    Gracias.

     

     

  2. Hola amigo , estaba pasando lo desarrollado por usted en mi libro de trabajo, pero sale error al ejecutarlo

    Public cn As ADODB.Connection, Rango_Datos As String-----------------lo puse en rojo lo que me sale sombreado
    Dim GUARDA_LIBRO As Boolean

    Private Sub TextBox1_Change(): filtrar: End Sub
    Private Sub TextBox2_Change(): filtrar: End Sub
    Private Sub TextBox3_Change(): filtrar: End Sub
    Private Sub TextBox4_Change(): filtrar: End Sub
    Private Sub CommandButton1_Click()
    GUARDA_LIBRO = True: filtrar
    Unload Me
    End Sub
    Private Sub CommandButton2_Click()
    Unload Me
    End Sub
    Private Sub filtrar(): On Error Resume Next
    Dim rs As ADODB.Recordset
    Dim rango As String
    Set cn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    Base_Datos = ThisWorkbook.FullName
    Rango_Datos = "[" & [Tabla2].ListObject.Range.Address(0, 0) & "]"
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Base_Datos _
    & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"
    filtros = ""
    If Not Me.TextBox1 = "" Then filtros = "CLIENTE LIKE '%" & Me.TextBox1 & "%'" & " and " & filtros
    If Not Me.TextBox2 = "" Then filtros = "FECHA= '" & Me.TextBox2 & "' and " & filtros
    If Not Me.TextBox3 = "" Then filtros = "ARTICULO= '" & Me.TextBox3 & "' and " & filtros
    If Not Me.TextBox4 = "" Then filtros = "OPERACIÓN= '" & Me.TextBox4 & "' and " & filtros
    Sql = "SELECT * FROM" & Rango_Datos
       
    rs.Open Sql, cn
    rs.Filter = Left(filtros, Len(filtros) - 4)
    Me.ListBox1.Clear
    Me.ListBox1.Column = rs.GetRows
    rs.Close
    If GUARDA_LIBRO = True Then
     rs.Open Sql, cn
     rs.Filter = Left(filtros, Len(filtros) - 4)
        Set NewBook = Workbooks.Add
        With NewBook
        .SaveAs Filename:="Export " & Format(Now, "dd-mm-yyyy  hhmm")
       
        With .Sheets(3)
                 
            For Each Field In rs.Fields
            I = I + 1
            .Cells(1, I) = Field.Name
            Next Field
            .Range(.Cells(2, 1), .Cells(Me.ListBox1.ListCount + 1, I)) = Application.Transpose(rs.GetRows)
        End With
       
        End With
    End If
    End Sub

    cuando ejecuto me dice "error de compilación :" no se ha definido el tipo definido por el usuario"

    a que se debe?

    le puse en amarillo lo que me sale sombreado en mi libro

    he copiado todo como esta en la hoja que desarrolaste

    1. Show previous comments  4 more
    2. psycho99killer

      psycho99killer

      Amigo buenas, perdone la ignorancia con el tema de programacion. Me podria decir donde puedo modificar para que me filtre en la hoja que necesito?

      Por el momento el filtro me busca en otra hoja. 

      Seria tan amable de ayudarme por favor.

    3. AlexanderS

      AlexanderS

      @psycho99killer realiza la consulta en el tema que tenias y si puedes sube tu archivo, en este momento estoy en el trabajo por lo que no se si pueda verlo, pero tal vez algún otro de los expertos te pueda ayudar.

      Saludos.

       

       

    4. psycho99killer

      psycho99killer

      Ok. Gracias. Lo subire. Es que m e gusta el buscador que me creaste. Muchas gracias. Lo subire.

  3. hola amigo una consulta hoy estaba modificando lo que resolviste del form que se agrego el label para búsqueda de stock. Pero hay un error cuando pongo en el casillero código a buscar un código por ejemplo ponía 0 y me aparecia todo los códigos que contiene 0 bueno eso hace hasta ahí todo ok. pero de toda la lista que sale ya no me permite seleccionar un código con click para que aparezca en el texbox código.

    serias tan amable de modificar el código?

    Private Sub ListBox1_Click()
     With Hoja3
         With ListBox1
          'TxtCodigo = .List(.ListIndex, 0)-------------Esto era el código anterior
          Label13.Caption = ListBox1.List(.ListIndex, 1)-----------este es tu codigo
        End With
      
        End With
    End Sub

    si borro tu código ya no me hace la búsqueda de stock

    pero si borro el código anterior ya no se puede seleccionar el código buscado con click

    puedes probar boorando tu código y al hacer la busqqueda  se puede seleccionar lo buscado en la lista haciendo click.

    CONSULTA_01rRESUELTO FINAL.xlsm

    1. Show previous comments  7 more
    2. smart27
    3. psycho99killer

      psycho99killer

      LAGRIMAS DE FELICIDAD!!!

      AHORA QUEDO AL 100%

      GRACIASSSSSS

      :)

    4. smart27

      smart27

      Que bien!!!

      bye

  4. Hola enigma25. para molestarte de nuevo con un pequeño problema que tuve con mi inventario físico bimestral. lo que pasa es que todo estuvo ok. pero los problemas pasaron que en oficina no les cuadraba su inventario que tenían en su ERP . a mi todo ok en físico y mi Excel. lo que pasa que para corroborar los desfases tuve que buscar los registros de ingresos y salidas por clientes con código o fechas. bueno lo tengo en tabla pero es tedioso estar buscando con el cursor o digitando y quitando checks para los filtros y me puse a buscar en inter un método de búsqueda con filtro con texbox . Amigo para mi los códigos de programación lo veo como jeroglificos y me interesa mucho los macros para adecuarlo a las necesidas y me esta gustando y me veo para ir aprendiendo pero por ahora estoy en fase de aprendizaje . Lo que quisiera es que me ayudes en presentar un listbox en hoja R-SALIDAS que busque CLIENTE , FECHA,ARTICULO Y OPERACION . Creo que seria como un form con los títulos de búsqueda (listbox) Bueno tu siempre lo haces mejor a lo que explico siempre.

    te adjunto mi archivo y el archivo de inter.

    para que lo adecues. el archivo de inter busca en otra hoja. pero lo que quisiera es que en mi hoja R-SALIDAS salga un form y mediante los listbox serian 4 (CLIENTE, FECHA, ARTICULO Y OPERACION ) Para ingresar en en cualquiera de esos texbox y que me haga el filtro.

    en el ejemplo de inter solo tienen dos opciones de búsqueda yo quisiera 4 para filtrar.

    a la espera de amable ayuda. espero haber explicado bien aunque siempre lo haces mejor y quedo sorprendido.

     

    HOJA PARA DESARROLLO.xlsm

    filtro con listbox.xlsm

    1. Enigma25

      Enigma25

      Hola

      Por favor crea tu tema en el foro. No siempre estoy activo por lo problemas en Internet que tenemos en mi país.

      Saludos.

    2. psycho99killer

      psycho99killer

      Ok.perdon. lo subire llegando a casa de trabajar para ordenar mis ideas en el archivo. Como estoy con mi movil el excel no se puede ejecutar macros. 

       

       

  5. hola amigo me puedes modificar este formulario? es que no quiero malograr nada . solo es borrar un texbox articulo porque de ahí esta todo bien el formulario lo que hace. gracias.

    para borrar texbox.xlsm

  6. amigo cuando entres me puedes solucionar el problema del formulario? muchas gracias siempre entro para ver si es que alguien puede solucionar. pero nada, solo tu sabes parece.

    1. Enigma25

      Enigma25

      Hola

       

      Perdón por lo demora, pero tuve problemas y aun tengo con el Internet. En cuanto pueda, busco tu tema para hacer los cambios.

      Saludos.

×
×
  • Create New...

Important Information

Privacy Policy