Todas las hojas en A1 y la pantalla visualizando desde A1

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

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

Hola Gabriel.

Te habia respondido en el otro hilo, que te basta con un condicional:

If h.Visible < 0 Then Application.Goto Reference:=h.Range("A1"), Scroll:=True

Saludos: Antonio.
************************
"Gabriel Raigosa" escribió en el mensaje news:%

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

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

Hola,

Otro detalle, cuando en el libro existe alguna hoja con gráfico la macro
da error.

Como se podría evitar el error.

Sub IrACeldaA1()
Application.ScreenUpdating = False
x = ActiveSheet.Name
For Each h In ThisWorkbook.Sheets
If h.Visible < 0 Then Application.Goto Reference:=h.Range("A1"),
Scroll:=True
Next
Sheets(x).Activate
Application.ScreenUpdating = True
End Sub

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