Hipervinculos

Esto lo puedes hacer por código. Prueba copiar el siguiente macro, y si es
lo que necesitas, lo puedes colocar en tu libro de macros personal, y luego
en un botón de alguna barra...

Sub Desplazar()
Dim CeldaDestino As String
Dim Fila, Columna As Double
CeldaDestino = InputBox(Title:="Desplazar celda actual",
Prompt:="Dirección a la que se desplazará")
Range(CeldaDestino).Select
Fila = Selection.Row
Columna = Selection.Column
Application.Goto Reference:="R1C1"
ActiveWindow.SmallScroll ToRight:=Columna - 1
ActiveWindow.SmallScroll Down:=Fila - 1
Range(CeldaDestino).Select
End Sub

Cordialmente,


"Rafa" escribió:

Buenas tardes y saludos para todo el grupo de Excel.

Mi problema está en el desplazamiento de la hoja de excel. Si digo que se
desplace hasta la celda P5, me gustaria que la primera columna del margen
izquierdo fuese la columna "P"
Siempre se desplaza correctamente a la celda que le indico pero la columna
del margen izquierdo es otra en mi caso la "F". Apareciendo en pantalla las
columnas de la F a la Q ambas inclusive.
¿Es posible el desplazamiento que deseo?
Muchas gracias por vuestra ayuda y paciencia.

Hola David, muchas gracias por tu interes en solucionar mi problema, tal y
como me lo explicas, no tengo ni idea de como se hace eso, en la hoja donde
tengo los hipervinculos, hay un total de 18 posiciones distintas a las que
desplazarme y a las que me gustaria quedaran esas celdas en el angulo
superior izquierdo.
En la macro que me pasas y que debo incluir, leo: Prompt:="Dirección a la
que se desplazará"). supongo que debo poner en ese lugar la celda a la
que yo quiero ir te comento que son 18 segun pulse en sus
correspondientes botones.-
Me resulta bastante complicado entenderlo, si no hay otra forma de hacerlo.
Gracias nuevamente por tu interes.




"David" <sdgm04(QuitaEsto)@hotmail.com> escribió en el mensaje
news:

Esto lo puedes hacer por código. Prueba copiar el siguiente macro, y si

es

lo que necesitas, lo puedes colocar en tu libro de macros personal, y

luego

en un botón de alguna barra...

Sub Desplazar()
Dim CeldaDestino As String
Dim Fila, Columna As Double
CeldaDestino = InputBox(Title:="Desplazar celda actual",
Prompt:="Dirección a la que se desplazará")
Range(CeldaDestino).Select
Fila = Selection.Row
Columna = Selection.Column
Application.Goto Reference:="R1C1"
ActiveWindow.SmallScroll ToRight:=Columna - 1
ActiveWindow.SmallScroll Down:=Fila - 1
Range(CeldaDestino).Select
End Sub

Cordialmente,


"Rafa" escribió:

> Buenas tardes y saludos para todo el grupo de Excel.
>
> Mi problema está en el desplazamiento de la hoja de excel. Si digo que

se

> desplace hasta la celda P5, me gustaria que la primera columna del

margen

> izquierdo fuese la columna "P"
> Siempre se desplaza correctamente a la celda que le indico pero la

columna

> del margen izquierdo es otra en mi caso la "F". Apareciendo en pantalla

las

> columnas de la F a la Q ambas inclusive.
> ¿Es posible el desplazamiento que deseo?
> Muchas gracias por vuestra ayuda y paciencia.
>
>
>
>
>
>

Disculpa, Rafa.

Todos los datos que puedas dar son sumamente valiosos para saber cómo
orientar la respuesta. A falta de ellos, tenemos que suponer, y yo supuse
que conocías de VBA...

Ahora, viendo lo que comentas en tu último post, creo que la mejor solución
para tu caso podría orientarse a la herramienta de "Vistas personalizadas".
Esta herramienta la encuentras en el menú Ver - Vistas personalizadas.

¿Cómo lo usas? Te lo comento rápido y breve, pues en 5 minutos salgo para
un merecido descanso de Semana Santa (bueno, eso de merecido es según mi
criterio personal...).

Primero:
Colocas la pantalla en la forma en que quieres verla. Esto implica que
manualmente haces que la celda P5 (por seguir tu primer ejemplo) coincida en
la esquina superior izquierda de la hoja, y si lo deseas, también puedes
aplicar un zoom, una configuración de pantalla, etc., aún cuando no es
necesario, con que te sitúes en la celda es suficiente.

Segundo:
Haces clic en Ver - Vistas personalizadas, y presionas el botón "Agregar" (o
algo así, no estoy muy seguro).

Tercero:
Te va a aparecer una ventana en la que se te pide un nombre y se te
presentan algunas casillas de verificación. Escribe un nombre que sea
descriptivo para tí, y deja todas las casillas seleccionadas. Luego aceptas
el cuadro de diálogo.

Cuarto:
Repites los tres pasos anteriores para cada una de las 18 celdas que nos
cuentas.

Cuando estés preparado, sólo tienes que hacer clic en Ver- Vistas
personalizadas, y en la lista haces doble clic en el nombre del rango que
quieres ver. Excel te presentará la pantalla ¡Exactamente igual a como la
dejaste cuando creaste ese elemento!

Cualquier consulta adicional, expónla en el Foro, mejor si en un tema nuevo,
o escríbeme a la dirección de mi perfil... Lo malo, es que te estaré leyendo
posiblemente hasta el 24...

Éxitos!


"Rafa" escribió:

Hola David, muchas gracias por tu interes en solucionar mi problema, tal y
como me lo explicas, no tengo ni idea de como se hace eso, en la hoja donde
tengo los hipervinculos, hay un total de 18 posiciones distintas a las que
desplazarme y a las que me gustaria quedaran esas celdas en el angulo
superior izquierdo.
En la macro que me pasas y que debo incluir, leo: Prompt:="Dirección a la
que se desplazará"). supongo que debo poner en ese lugar la celda a la
que yo quiero ir te comento que son 18 segun pulse en sus
correspondientes botones.-
Me resulta bastante complicado entenderlo, si no hay otra forma de hacerlo.
Gracias nuevamente por tu interes.

.
.

"David" <sdgm04(QuitaEsto)@hotmail.com> escribió en el mensaje
news:
> Esto lo puedes hacer por código. Prueba copiar el siguiente macro, y si
es
> lo que necesitas, lo puedes colocar en tu libro de macros personal, y
luego
> en un botón de alguna barra...
>
> Sub Desplazar()
> Dim CeldaDestino As String
> Dim Fila, Columna As Double
> CeldaDestino = InputBox(Title:="Desplazar celda actual",
> Prompt:="Dirección a la que se desplazará")
> Range(CeldaDestino).Select
> Fila = Selection.Row
> Columna = Selection.Column
> Application.Goto Reference:="R1C1"
> ActiveWindow.SmallScroll ToRight:=Columna - 1
> ActiveWindow.SmallScroll Down:=Fila - 1
> Range(CeldaDestino).Select
> End Sub
>
> Cordialmente,
>
>
> "Rafa" escribió:
>
> > Buenas tardes y saludos para todo el grupo de Excel.
> >
> > Mi problema está en el desplazamiento de la hoja de excel. Si digo que
se
> > desplace hasta la celda P5, me gustaria que la primera columna del
margen
> > izquierdo fuese la columna "P"
> > Siempre se desplaza correctamente a la celda que le indico pero la
columna
> > del margen izquierdo es otra en mi caso la "F". Apareciendo en pantalla
las
> > columnas de la F a la Q ambas inclusive.
> > ¿Es posible el desplazamiento que deseo?
> > Muchas gracias por vuestra ayuda y paciencia.
> >
> >
> >
> >
> >
> >

Disculpa, Rafa.

Todos los datos que puedas dar son sumamente valiosos para saber cómo
orientar la respuesta. A falta de ellos, tenemos que suponer, y yo supuse
que conocías de VBA...

Ahora, viendo lo que comentas en tu último post, creo que la mejor solución
para tu caso podría orientarse a la herramienta de "Vistas personalizadas".
Esta herramienta la encuentras en el menú Ver - Vistas personalizadas.

¿Cómo lo usas? Te lo comento rápido y breve, pues en 5 minutos salgo para
un merecido descanso de Semana Santa (bueno, eso de merecido es según mi
criterio personal...).

Primero:
Colocas la pantalla en la forma en que quieres verla. Esto implica que
manualmente haces que la celda P5 (por seguir tu primer ejemplo) coincida en
la esquina superior izquierda de la hoja, y si lo deseas, también puedes
aplicar un zoom, una configuración de pantalla, etc., aún cuando no es
necesario, con que te sitúes en la celda es suficiente.

Segundo:
Haces clic en Ver - Vistas personalizadas, y presionas el botón "Agregar" (o
algo así, no estoy muy seguro).

Tercero:
Te va a aparecer una ventana en la que se te pide un nombre y se te
presentan algunas casillas de verificación. Escribe un nombre que sea
descriptivo para tí, y deja todas las casillas seleccionadas. Luego aceptas
el cuadro de diálogo.

Cuarto:
Repites los tres pasos anteriores para cada una de las 18 celdas que nos
cuentas.

Cuando estés preparado, sólo tienes que hacer clic en Ver- Vistas
personalizadas, y en la lista haces doble clic en el nombre del rango que
quieres ver. Excel te presentará la pantalla ¡Exactamente igual a como la
dejaste cuando creaste ese elemento!

Cualquier consulta adicional, expónla en el Foro, mejor si en un tema nuevo,
o escríbeme a la dirección de mi perfil... Lo malo, es que te estaré leyendo
posiblemente hasta el 24...

Éxitos!


Cordialmente,


"Rafa" escribió:

Hola David, muchas gracias por tu interes en solucionar mi problema, tal y
como me lo explicas, no tengo ni idea de como se hace eso, en la hoja donde
tengo los hipervinculos, hay un total de 18 posiciones distintas a las que
desplazarme y a las que me gustaria quedaran esas celdas en el angulo
superior izquierdo.
En la macro que me pasas y que debo incluir, leo: Prompt:="Dirección a la
que se desplazará"). supongo que debo poner en ese lugar la celda a la
que yo quiero ir te comento que son 18 segun pulse en sus
correspondientes botones.-
Me resulta bastante complicado entenderlo, si no hay otra forma de hacerlo.
Gracias nuevamente por tu interes.

.
.

"David" <sdgm04(QuitaEsto)@hotmail.com> escribió en el mensaje
news:
> Esto lo puedes hacer por código. Prueba copiar el siguiente macro, y si
es
> lo que necesitas, lo puedes colocar en tu libro de macros personal, y
luego
> en un botón de alguna barra...
>
> Sub Desplazar()
> Dim CeldaDestino As String
> Dim Fila, Columna As Double
> CeldaDestino = InputBox(Title:="Desplazar celda actual",
> Prompt:="Dirección a la que se desplazará")
> Range(CeldaDestino).Select
> Fila = Selection.Row
> Columna = Selection.Column
> Application.Goto Reference:="R1C1"
> ActiveWindow.SmallScroll ToRight:=Columna - 1
> ActiveWindow.SmallScroll Down:=Fila - 1
> Range(CeldaDestino).Select
> End Sub
>
> Cordialmente,
>
>
> "Rafa" escribió:
>
> > Buenas tardes y saludos para todo el grupo de Excel.
> >
> > Mi problema está en el desplazamiento de la hoja de excel. Si digo que
se
> > desplace hasta la celda P5, me gustaria que la primera columna del
margen
> > izquierdo fuese la columna "P"
> > Siempre se desplaza correctamente a la celda que le indico pero la
columna
> > del margen izquierdo es otra en mi caso la "F". Apareciendo en pantalla
las
> > columnas de la F a la Q ambas inclusive.
> > ¿Es posible el desplazamiento que deseo?
> > Muchas gracias por vuestra ayuda y paciencia.
> >
> >
> >
> >
> >
> >

Hola Rafa,
Espero que esto te ayude en algo.
Abre el entorno de VBA, en la mano derecha vas a observar un arbol de
opciones que contiene todas las hojas y libros que actualmente tengas
abiertos, debes escoger aquella hoja en donde deseas aplicar este
codigo. Copia el codigo y pegalo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address(False, False)
Case "P5", "P10", "P15"
Application.ScreenUpdating = False
Target.Parent.Parent.Activate
Target.Parent.Activate
With Application
.Goto reference:=Target.Parent.Cells(Target.Row,
Target.Column), Scroll:=True
End With
Target.Select
Application.ScreenUpdating = True
End Select
End Sub

Como veras en el código, hay un case ("P5","P10","P15") es justo ahi
en donde debes ingresar las referencias de las 18 celdas que
mencionastes.

Saludos cordiales
Julio Herrera