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

Siga el debate

11 respuestas

Tengo una respuesta

Preguntas similare

todas las hojas en A1

Leer las respuestas

#6 ORFAO

03/11/2009 - 18:23 | Informe spam

Hola Gabriel !

Tal vaz no entienda tu pregunta y... no lo he probado aún, Pero se me
ocurre que
podria ser por el hecho de que el grafico de que hablas este
seleccionado y en ese caso creo que con ejecutar
algo asi como
Ativecell.Acivate o Range("A1").activate
previo a
Application.Goto Reference:=h.Range("a1"), Scroll:=True

Deberia resolver el problem.

Es cuestion de probar..!

De no ser asi, Por favor, hazmelo saber..

Saludos !

Responder a este mensaje

#7 Gabriel Raigosa

03/11/2009 - 18:50 | Informe spam

Hola,

Es un Hoja "Gráfico1", la que hay en el libro y al correr la macro da un
error, imagino por que intenta buscar celdas en la hoja y no existen
celdas, solo un gráfico, asi es que las hojas con gráficos se deberían
ignorar.

Gabriel

ORFAO escribió:

Hola Gabriel !

Tal vaz no entienda tu pregunta y... no lo he probado aún, Pero se me
ocurre que
podria ser por el hecho de que el grafico de que hablas este
seleccionado y en ese caso creo que con ejecutar
algo asi como
Ativecell.Acivate o Range("A1").activate
previo a
Application.Goto Reference:=h.Range("a1"), Scroll:=True

Deberia resolver el problem.

Es cuestion de probar..!

De no ser asi, Por favor, hazmelo saber..

Saludos !

Responder a este mensaje

#8 ORFAO

04/11/2009 - 00:31 | Informe spam

Hola;
En ese caso por que no usar una instruccion

on error resume next
previo a
Application.Goto Reference:=h.Range("a1"), Scroll:=True

y listo ! Por ahora...

Saludos

Responder a este mensaje

#9 Gabriel Raigosa

04/11/2009 - 03:41 | Informe spam

Gracias a todos por la ayuda,

Ahora su funciona bien

Quedo en definitiva así;
Sub IrACeldaA1()

Application.ScreenUpdating = False
x = ActiveSheet.Name
For Each h In ThisWorkbook.Sheets
flag = False
If Not h.Visible Then h.Visible = True: flag = True
on error resume next
Application.Goto Reference:=h.Range("a1"), _
Scroll:=True
If flag Then h.Visible = False
Next
Sheets(x).Activate
Application.ScreenUpdating = True

End Sub

ORFAO escribió:

Hola;
En ese caso por que no usar una instruccion

on error resume next
previo a
Application.Goto Reference:=h.Range("a1"), Scroll:=True

y listo ! Por ahora...

Saludos

Responder a este mensaje

#10 Héctor Miguel

04/11/2009 - 06:06 | Informe spam

hola, chicos !

(solo por lo que pudiera valer...)

la coleccion "Sheets" es la que incluye todo tipo de hojas (calculo, graficos, macros, ...)

si quieres restringir la aplicacion de tu macro a SOLO hojas de calculo (SIN control de errores)
cambia de la coleccion "Sheets" por la coleccion "Worksheets"

saludos,
hector.

Responder a este mensaje

Ads by Google

Hacer una preguntaSiguiente

Tengo una respuesta

1 2 3

Busqueda sugerida