Foro Excel

Saludos everytodos.

Mi inquietud es la siguiente.

Tengo un problema con filtrar algunos datos que están en una base de datos ejemplo:

De esta forma no funcina

Sub Macro1()


Dim Celda As Long

Celda = Sheets("Sheet1").Cells(1,
Set qtQtrResults = _
Sheets("Sheet1").QueryTables(1)
With qtQtrResults
.CommandType = xlCmdSql
.CommandText = _
"Select * From Prueba where ID='Celda' order by TIPO"
.Refresh
End With

End Sub

De esta forma si funciona

Sub Macro1()

Set qtQtrResults = _
Sheets("Sheet1").QueryTables(1)
With qtQtrResults
.CommandType = xlCmdSql
.CommandText = _
"Select * From Prueba where ID='1972' order by TIPO"
.Refresh
End With

End Sub

Nota: He notado que cuando pongo el valor directo de la variabble Celda,osea, el valor 1972 me funciona perfectamente, pero, cuando utilizo la varoable Celda no me filtra o no funiona el Query.

No se si me he explicado bien, pero he intentado muchas maneras y no me funciona,aunque voy a tratar de seguir investiganfo sólo quiero que ustedes me den una manita.

Gracias y Saludos.

Ramón(Monchy).

Disculpen se me olvida tengo que aclarar lo siguiente:

"Celda" es un valor que le doy a una celda,osea, no es parte de la base dato y tambieé lo siguiente y es para corregir la siguiente lí­nea
Celda = Sheets("Sheet1").Cells(1,

Gracias y Saludos.

Ramón(Monchy).

Nunca probé esto, pero me parece que así­ podrí­a funcionar, ahora voy a ver de que se trata esto, nunca la habí­a visto.
Saludos



Sub Macro1()

Dim Celda As Long

Celda = Sheets("Sheet1").Cells(1,
Set qtQtrResults = _
Sheets("Sheet1").QueryTables(1)

With qtQtrResults
.CommandType = xlCmdSql
.CommandText = _
"Select * From Prueba where ID='" & Celda & "' order by TIPO"
.Refresh
End With

End Sub

Perdonen pero por que sustituye "8)" por una carita
"Celda = Sheets("Sheet1").Cells(1, "

Excusenme.

Ramón(Monchy).

creo que si pones un espacio en el medio no sale la carita
Celda = Sheets("Sheet1").Cells(1, 8 )

Okay p@li, te aviso más tarde

Gracias hermano.

Ramón(Monchy).

de casualidad no eres el senador electo ramon almonte borja?

No, Soy de Rep. Dominicana, mi nombre es Ramon Almonte Torres

Saludos.

hola p@li, no he dado todavia con el problema, he modificado la senetencia con lo siguiente, pero no me sale, en este caso si modifico la linea :
qt.Sql = "SELECT * FROM prueba WHERE (ID=?)"
por
qt.Sql = "SELECT * FROM prueba " ----> asi funciona

quizas me puede ayudar,le puede poner una base de datos cualquiera lo unico que quiero es saber como corregir el codigo


sub macro1 ()

Set qt = Sheets("sheet1").QueryTables(1)
qt.Sql = "SELECT * FROM prueba WHERE (ID=?)"
Set param1 = qt.Parameters.Add("ID Parameter", _
xlParamTypeVarChar)
param1.SetParam xlRange, Range("sheet2!h1")
qt.Refresh

end sub

Gracias y Saludos

Ramon(Monchy).

Hola Ramon,

No sera que usas la sintaxis incorrecta con una cadena de texto? Tal vez algo asi:

Código: Seleccionar todo

Sub macro1()
    Set qt = Sheets("sheet1").QueryTables(1)
    qt.Sql = "SELECT * FROM prueba WHERE ID='?'"
    Set param1 = qt.Parameters.Add("ID Parameter", _
    xlParamTypeVarChar)
    param1.SetParam xlRange, Range("sheet2!h1")
    qt.Refresh
End Sub

Hola KL, voy a intertarlo

Gracias y un abraso.

Ramon(Monchy)