Orden de Ejecución de Macros

21/06/2006 - 02:21 por Gustavo Echenique | Informe spam
Hola Foro!

Tengo un problema con un archivo mediante el cual ejecuto una consulta vía
SQL a un motor de datos Informix, y al que luego de devueltos los datos
quiero SubTotalizar.
El problema reside en que la macro que agrega los subtotales se me ejecuta
antes de que la consulta devuelva los datos; a pesar de haberla puesto luego
de la sentencia de la consulta SQL.

¿Alguien me puede orientar para evitar esto?

Copio parte del código:

'Con esta sentencia traigo los datos desde el motor Informix
With ActiveSheet.QueryTables.Add(Connection:=connstring,
Destination:=Range("A2"), Sql:=sqlfinal)
.AdjustColumnWidth = False
.PreserveFormatting = False
.FieldNames = False
.Refresh BackgroundQuery = False
End With

PonerTitulos 'Acá titulo las columnas de datos

ActiveSheet.Range("A1:R1").Columns.AutoFit
ActiveSheet.Columns("A:R").AutoFit

AgregarSubTotales 'Acá agrego los subtotales mediante una macro

Saludos a Todos!
Gustavo Echenique

Preguntas similare

Leer las respuestas

#1 Ignacio Perez
21/06/2006 - 12:30 | Informe spam
Hola Gustavo:
Una solucion, creo que la mas facil, seria que tu macro ejecutara la
consulta SQL y ponerle el resto de la macro al evento de Worksheet_Change de
modo que al guardar la consulta en tu hoja se lanzara el resto de la macro,
mas o menos asi:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(a1, Target) = True Then
Tu macro
End If
'Siendo a1 la celda que recoge tu consulta SQL
End Sub

Si tienes dudas consulta seguro que hay alguien dispuesto a seguir el hilo
de esta conversacion..

Un saludo a todos

"Gustavo Echenique" escribió:

Hola Foro!

Tengo un problema con un archivo mediante el cual ejecuto una consulta vía
SQL a un motor de datos Informix, y al que luego de devueltos los datos
quiero SubTotalizar.
El problema reside en que la macro que agrega los subtotales se me ejecuta
antes de que la consulta devuelva los datos; a pesar de haberla puesto luego
de la sentencia de la consulta SQL.

¿Alguien me puede orientar para evitar esto?

Copio parte del código:

'Con esta sentencia traigo los datos desde el motor Informix
With ActiveSheet.QueryTables.Add(Connection:=connstring,
Destination:=Range("A2"), Sql:=sqlfinal)
.AdjustColumnWidth = False
.PreserveFormatting = False
.FieldNames = False
.Refresh BackgroundQuery = False
End With

PonerTitulos 'Acá titulo las columnas de datos

ActiveSheet.Range("A1:R1").Columns.AutoFit
ActiveSheet.Columns("A:R").AutoFit

AgregarSubTotales 'Acá agrego los subtotales mediante una macro

Saludos a Todos!
Gustavo Echenique



email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida