Todas las hojas en A1 y la pantalla visualizando desde A1

02/11/2009 - 16:33 por Gabriel Raigosa | Informe spam
Hola Orfao,

La macro propuesta cumple su objetivo, note por casualidad que da error
cuando existen hojas ocultas.

Como evito ese error.

Gabriel



Realmente no creo que sea esto lo que buscas pero te coloca como selda
actina la a1 en todas las hojas del libro
y vuelve a la hoja donde se ejecuto la instruccion
en este caso coloque un commandbuttom ern a1 y le asigno lo siguiente

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
x = ActiveSheet.Name
For Each h In ThisWorkbook.Sheets

Application.Goto Reference:=h.Range("a1"), _
Scroll:=True
Next
Sheets(x).Activate
Application.ScreenUpdating = True
End Sub
 

Leer las respuestas

#1 Gabriel Raigosa
02/11/2009 - 16:39 | Informe spam
No puedo seguir el hilo anterior ya que por error en el programa que uso
como lector (Thuderbir) presione bloquear conversación.

Gabriel


Gabriel Raigosa escribió:
Hola Orfao,

La macro propuesta cumple su objetivo, note por casualidad que da error
cuando existen hojas ocultas.

Como evito ese error.

Gabriel



Realmente no creo que sea esto lo que buscas pero te coloca como selda
actina la a1 en todas las hojas del libro
y vuelve a la hoja donde se ejecuto la instruccion
en este caso coloque un commandbuttom ern a1 y le asigno lo siguiente

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
x = ActiveSheet.Name
For Each h In ThisWorkbook.Sheets

Application.Goto Reference:=h.Range("a1"), _
Scroll:=True
Next
Sheets(x).Activate
Application.ScreenUpdating = True
End Sub

Preguntas similares