.jpg.d80023d73558ccd800fe4631223f9772.jpg)
AlexanderS
-
Contador de contenido
1402 -
Unido
-
Última visita
-
Días con premio
60
Sobre AlexanderS
- Cumpleaños 08/22/1990
Visitantes recientes del perfil
AlexanderS's Achievements
Actualización simple de estatus
Ver todas las actualizaciones por AlexanderS
-
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.
-