todas las hojas en A1

On 1 nov, 03:44, Gabriel Raigosa wrote:

Saludos,

Intento hacer una macro que me seleccione todas las hojas de un libro y
deje el puntero de celdas en A1 en cada hoja.

Alguien me puede echar una manito.

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 !

siguiendo el procedimiento que indicas, no he podido reproducir el comportamiento que describes (xl-97 a xl-2007)

- la primera instruccion (worksheets.select) selecciona todas las hojas (visibles) del libro y deja...
- la primer hoja del libro como activa (pero...)
- con el rango seleccionado que "tenia" la hoja que estaba como activa al ejecutar la instruccion

- la seguna instruccion ([a1].select) selecciona la celda [A1] en todo el "grupo" de hojas

- al cambiar de hoja, se cancela el "grupo" pero la celda activa (incluso en pantalla) es [A1] en todas las hojas

comentas (si hubiera) algun detalle en el tintero ?
saludos,
hector.

__ OP __

He abierto un libro nuevo con 3 hojas
En cada una de ellas me ubico en A100 (F5 .. A100) la coloreo de amarillo
voy pasado de la hoja 1 a la 3 y en cada una hago lo mismo
ejecuto la macro (ALT + F8)

Sub IR()
Worksheets.Select
[A1].Select
End Sub

La hoja activa queda en A1, y en el nombre del libro veo [Grupo]
paso a la hoja2 haciendo click o con PgDn, miro el cuadro de nombre y dice A1
pero en la pantalla no veo la celda A1, veo en la pantalla (en mi caso), el rango de filas 77 a la 100.

Hola Hector,

a eso le llamo "Los Fantasmas de Office"

que tal si pudieras ver mi pantalla en acción

¿te paso un video?

http://sites.google.com/site/misiti...=0&d=1

Echale una mirada.

Gabriel




Héctor Miguel escribió:

hola, Gabriel !

siguiendo el procedimiento que indicas, no he podido reproducir el comportamiento que describes (xl-97 a xl-2007)

- la primera instruccion (worksheets.select) selecciona todas las hojas (visibles) del libro y deja...
- la primer hoja del libro como activa (pero...)
- con el rango seleccionado que "tenia" la hoja que estaba como activa al ejecutar la instruccion

- la seguna instruccion ([a1].select) selecciona la celda [A1] en todo el "grupo" de hojas

- al cambiar de hoja, se cancela el "grupo" pero la celda activa (incluso en pantalla) es [A1] en todas las hojas

comentas (si hubiera) algun detalle en el tintero ?
saludos,
hector.

__ OP __

He abierto un libro nuevo con 3 hojas
En cada una de ellas me ubico en A100 (F5 .. A100) la coloreo de amarillo
voy pasado de la hoja 1 a la 3 y en cada una hago lo mismo
ejecuto la macro (ALT + F8)

Sub IR()
Worksheets.Select
[A1].Select
End Sub

La hoja activa queda en A1, y en el nombre del libro veo [Grupo]
paso a la hoja2 haciendo click o con PgDn, miro el cuadro de nombre y dice A1
pero en la pantalla no veo la celda A1, veo en la pantalla (en mi caso), el rango de filas 77 a la 100.

hola, Gabriel !

a eso le llamo "Los Fantasmas de Office"
que tal si pudieras ver mi pantalla en accion
te paso un video?
http://sites.google.com/site/misiti...=0&d=1

Echale una mirada.

lo siento... poco uso los videos y el que descargo, WM me dice que se comprimio con codecs que no dispongo :-((

saludos,
hector.

el video es WMV microsoft


;)


Héctor Miguel escribió:

hola, Gabriel !

a eso le llamo "Los Fantasmas de Office"
que tal si pudieras ver mi pantalla en accion
te paso un video?
http://sites.google.com/site/misiti...=0&d=1

Echale una mirada.

lo siento... poco uso los videos y el que descargo, WM me dice que se comprimio con codecs que no dispongo :-((

saludos,
hector.