psycho99killer
Visitantes recientes del perfil
psycho99killer's Achievements
-
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.
-
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 BooleanPrivate 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 SubPrivate Sub CommandButton1_Click()
GUARDA_LIBRO = True: filtrar
Unload Me
End SubPrivate Sub CommandButton2_Click()
Unload Me
End SubPrivate 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 " & filtrosSql = "SELECT * FROM" & Rango_Datos
rs.Open Sql, cn
rs.Filter = Left(filtros, Len(filtros) - 4)
Me.ListBox1.Clear
Me.ListBox1.Column = rs.GetRows
rs.CloseIf 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 WithEnd IfEnd Subcuando 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
- Mostrar comentarios previos %s más
-
-
.thumb.jpg.ae86858be3c9f9c88ec51f9082efda27.jpg)
@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.
-
-
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 Subsi 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.
-
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.
-
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.
-
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.
