Ayuda con Actualizacion de hojas ocultas :(

04/10/2006 - 23:28 por Poderosin | Informe spam
Hola Grupo que tal...
Les cuento mi problema.-


Resulta que tengo una planilla en excel la cual toma datos de un
servidor sql externo al pc mio a lo cual esta hoja es filtrada y
mostrada en orden por otra hoja aparte como tabla dinamica ... ahora el

problema empiesa en que necesito por medio de un boton actualizar la
hoja que se conecta a la base de datos ya que el mismo excel trae un
sistema de tiempo pero nada mas lo necesitaria actualizar en ciertos
momentos ya que se lentaliza mucho el equipo al estar conectarndose
constantemente a la base de datos y ocupa muchos recursos...


hace unas semanas atras les pedi una solucion similar a esta pero esta
vez la hoja de la base de datos esta oculta para que no modificar ni
alterar los datos obtenidos por el SQL ahora si bien...


sera posible hacer que el mismo boton que actualiza la hoja dinamica me

actualize primero la base de datos y despues actualize la hoja dinamica

"todo con el mismo boton"


Espero que me puedan ayudar..


Espero sus respuestas positivas y gracias...
 

Leer las respuestas

#1 JJGarcia
04/10/2006 - 23:49 | Informe spam
Ok, seria algo mas o menos asi

Sub Actulizar datos()
'Para evitar que se vea el cursor como loco en pantalla
Application.ScreenUpdating = False
'Muestras la hoja que tienes oculta
Sheets("[nombre de la hoja oculta]").Visible = True
'Activas la hoja
ThisWorkbook.Worksheets("[nombre de la hoja oculta]").Activate
'Te pocisionas dentro del rango para poder realizar la actualizacion de
la consulta a SQL
'Esto es para actualizar los datos de la hoja oculta
ThisWorkbook.Worksheets("[nombre de la hoja
oculta]").Range("A2").Select
Selection.QueryTable.Refresh BackgroundQuery:=False

'Ocultas de nuevo la hoja, para que este como al principio
Sheets("[nombre de la hoja oculta]").Visible = False

'Activas la hoja que contiene la tabla dinamica
ThisWorkbook.Worksheets([numero de la hoja o nombre de la
hoja]).Activate
'Te pocisionas dentro de la tabla dinamica
ThisWorkbook.Worksheets([numero de la hoja o nombre de la
hoja]).Range("A8").Select
'Actualizas la tabla dinamica con los datos de origen
ActiveSheet.PivotTables("[Nombre de la tabla
dinamica]").PivotCache.Refresh

'Mensaje final que notifique de la finalizacion del proceso
MsgBox "Pivot Table actualizado", vbOKOnly, "Mensaje de Notificacion"

End Sub

Checa que en algunos casos hago referencia al nombre de la hoja asi
como en otros al indice de la hoja, es opcional, solo que si alguien
mas usa la hoja conviene que hagas referencia al indice de la hoja para
evitar problemas por si el usuario cambia algun nombre o de repente
quiere personalizar la hoja.

Espero que te haya servido de algo la info. cualquier duda avisas,
saludos, JJGarcia


Poderosin wrote:
Hola Grupo que tal...
Les cuento mi problema.-


Resulta que tengo una planilla en excel la cual toma datos de un
servidor sql externo al pc mio a lo cual esta hoja es filtrada y
mostrada en orden por otra hoja aparte como tabla dinamica ... ahora el

problema empiesa en que necesito por medio de un boton actualizar la
hoja que se conecta a la base de datos ya que el mismo excel trae un
sistema de tiempo pero nada mas lo necesitaria actualizar en ciertos
momentos ya que se lentaliza mucho el equipo al estar conectarndose
constantemente a la base de datos y ocupa muchos recursos...


hace unas semanas atras les pedi una solucion similar a esta pero esta
vez la hoja de la base de datos esta oculta para que no modificar ni
alterar los datos obtenidos por el SQL ahora si bien...


sera posible hacer que el mismo boton que actualiza la hoja dinamica me

actualize primero la base de datos y despues actualize la hoja dinamica

"todo con el mismo boton"


Espero que me puedan ayudar..


Espero sus respuestas positivas y gracias...

Preguntas similares