En este grupo En todos

Foro de Excel



Pregunta de matrices en VBA

Alejandro
Abogacia universidad de moron
Escrito por Alejandro Izura Duvigneau
el 09/09/2011

Hola Sres. Del foro
Estoy haciendo un procedimiento en VBA para que actualice los datos de todas las hojas (la informacion proviene de una base de Access) de mi libro. Pero mi problema es que siempre actualiza la hoja actual. Que me faltaría ingresar en la progrmación para que ello suceda? Dejo aquí lo que estoy haciendo:

Sub sh()
On Error GoTo Abajo
Dim hoja As Worksheet

For Each hoja In Worksheets
Range("A1"). Activate
ActiveCell.CurrentRegion.Select
Selection.ListObject.QueryTable. Refresh
Range("A2"). Select
Next

Abajo:
If Err. Number = 1004 Then
MsgBox ("Termino")
Exit Sub
End If
Resume

End Sub


Gracias por la atención
Alejandro

Cacho Rodríguez
Ingeniería electrónica universidad nac...
Escrito por Cacho Rodríguez
el 09/09/2011

Hola! Alejandro. Intenta, por ejemplo, con:
_________________

Sub sh()
Dim hoja As Worksheet
On Error GoTo Abajo

For Each hoja In Worksheets
hoja. [a1]. CurrentRegion.ListObject.QueryTable. Refresh
Next
Exit Sub

Abajo:
MsgBox "Termino"
End Sub
_________________

Saludos, Cacho R.

Alejandro Izura Duvigneau
Abogacia universidad de moron
Escrito por Alejandro Izura Duvigneau
el 09/09/2011

Grande Cacho. Anduvo barbaro. Lo dejé tal cual me indicaste.
Entendí el arreglo.
Saludos y Gracias!

Alejandro

Cacho Rodríguez
Ingeniería electrónica universidad nac...
Escrito por Cacho Rodríguez
el 09/09/2011

¡Milagro exceliano en el Foro!....
(jajajajajajaja)

Me alegra que así sea, y hasta la próxima.
Saludos, Cacho R.