todas las hojas en A1

Puedo poner el video en cualquier formato ...

dime cual

gabriel

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.

hola, Gabriel !

Puedo poner el video en cualquier formato ...
dime cual ...

cuando tu video llega a la parte donde "vas a grabar la macro..." es donde se detiene
lo mas probable es que en mi equipo NO estan instalados (todos ?) los codecs necesarios...
aun siendo *.wmv (de microsoft), como te decia: (yo ?) poco uso de los videos y (probablemente)
no importaria si lo pones en otro formato ya que tambien probe con videos de realplayer y... lo mismo :-((

(dejame probar si algo tiene que ver el que estas usando un "application.goto" al ir a las celdas A100)

saludos,
hector.

hola (de nuevo), Gabriel !

1) las instrucciones de la propuesta original, "hacen" (exactamente) lo que solicitas
(en el asunto de tu consulta y en el texto original de tu primer mensaje)...
el puntero se queda en [A1] de todas las hojas

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

(p.e.)
worksheets.select
[a1].select

2) PERO... no es lo mismo "dejar/poner/..." el puntero en alguna celda en especifico (en varias hojas al mismo tiempo)...
que hacer un "scroll" de fila o columna A TODAS las hojas al mismo tiempo (es decir...)

3) si las varias hojas tienen seleccionada alguna celda (o rango) a diferentes "distancias" (scroll) entre ellas...
lo que hacen las instrucciones de la propuesta original, es "poner" el puntero en la celda [A1]
pero lo que no puede hacer una macro es "scrollear" varias hojas al tiempo y a donde mismo
ya que hacer "scrolls" solo es aplicable a la ventana "activa"
(es lo mismo que usar las barras de desplazamiento SIN mover/cambiar/... la celda "activa", me explico ?)

saludos,
hector.

Hola Orfao,

Gracias por tu ayuda, es lo que estaba buscando.

Gabriel

;)


ORFAO escribió:

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,

Un detalle adicional, como evito que la macro de "Eerror" en el caso de
que exista alguna hoja oculta.

Gabriel


ORFAO escribió:

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