Foros del Web » Soporte técnico » Ofimática »

Pregunta simple, ojala sea asi la respuesta

Estas en el tema de Pregunta simple, ojala sea asi la respuesta en el foro de Ofimática en Foros del Web. Simplemente tengo una hoja de calculo que es muy extensa y contiene las fechas, me gustaria que al abrir el archivo la visualizacion de la ...
  #1 (permalink)  
Antiguo 06/06/2006, 23:27
Avatar de Pablus00  
Fecha de Ingreso: diciembre-2003
Ubicación: A un click de distancia
Mensajes: 1.044
Antigüedad: 20 años, 11 meses
Puntos: 11
Pregunta simple, ojala sea asi la respuesta

Simplemente tengo una hoja de calculo que es muy extensa y contiene las fechas, me gustaria que al abrir el archivo la visualizacion de la pagina se situe en determinado lugar, ej: en la fecha actual, y no tenga que bajar con el scroll hasta encontrarla, existe esto?
cualquier info es bienvenida, asi exploro el tema. Gracias
__________________
-- Nunca te des por vencido, aún vencido -- Web
  #2 (permalink)  
Antiguo 07/06/2006, 04:27
Avatar de 3pies
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Desde una destilería
Mensajes: 2.584
Antigüedad: 20 años, 11 meses
Puntos: 144
Prueba con este macro (debe llamarse Auto_open, para que se ejecute al abrir el fichero de excel):

Código:
Sub Auto_open()
'Ocultamos el proceso
Application.ScreenUpdating = False
'Siempre que abramos el fichero, nos aparecerá
'en la hoja1 (da igual como se llame la hoja, porque "Hoja1"
'es el nombre que aparece en el módulo de VBA y corresponde a la
'primera hoja del libro, aunque le puedes cambiar el nombre desde VBA)
Hoja1.Select
'Pasamos la fecha de hoy, a una variable llamada "FechaDeHoy"
FechaDeHoy = Date
'Si la fecha de hoy (del sistema), no está en la lista de excel, nos daría
'un error, pero lo solucionamos con esta línea siguiente
On Error Resume Next
'Estas líneas siguientes las hemos obtenido con la grabadora de macros.
'Simplemente hemos sustituido la palabra (o dato) a buscar, por la fecha
'que hemos pasado a una variable.
Cells.Find(What:=FechaDeHoy, After:=ActiveCell, LookIn:=xlFormulas, _
      LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
      MatchCase:=False, SearchFormat:=False).Activate
'Mostramos el proceso
Application.ScreenUpdating = True
End Sub
Salu2
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 22:07.