NAVEGAR POR DETERMINADAS CELDAS

estimado AnSanVal,

muchas gracias por tu pronta respuesta\ funciona perfectamente el codigo que
me has enviado, en cuanto a que no permite la selección de ninguna otra
celda que no sea la del rango especificado\ el problema es que tal vez no me
expresé correctamente para dar a entender lo que necesito, disculpas por
ello\

lo que hace esta perfecto, pero lo que necesitaría es que el usuario pueda
"navegar" libremente por las celdas mencionadas, es decir, con la solución
que me has pasado solo paso de la celda A12 a la E12 si, y solo si,
introduje un dato en A12 y tal vez no haya datos que introducir para esa
celda, y si le doy al enter no se mueve; así con todas :((

la idea seria que con cada pulsacion de 'enter' pasara de una celda a otra
(T9, A12, E12, AB12 ...) introdujese datos o no; incluso cuando haya llegado
a la B14, la última de las 'celdas habilitadas' al darle 'enter' pasara a la
T9 .. y así ...

espero haberme explicado un poco mejor :))

muchas gracias anticipadamente por tu ayuda

dorian+







"AnSanVal" escribió en el mensaje
news:

Hola Dorian.

Perdóname, haciendo pruebas (y para poder moverme por la hoja) puse una
línea de más de modo provicional y por despiste la dejé y te envie el
código con ella. Lo que hace que el código no funcione como debe.
Borra la linea ...
Sheets(1).ScrollArea = ""
... (penúltima), que lo que hace es permitir moverte por toda la hoja, y
de esa forma no se moverá la selección al pulsar Intro en una celda vacia.

El código final debe quedar asi:

En el módulo ThisWorkbook:
Private Sub Workbook_Open()
Sheets("Hoja1").ScrollArea = "T9"
End Sub

En el módulo Hoja1:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "" Then Exit Sub
Select Case Target.Address
Case "$T$9"
Sheets("Hoja1").ScrollArea = "A12"
Case "$A$12"
Sheets("Hoja1").ScrollArea = "E12"
Case "$E$12"
Sheets("Hoja1").ScrollArea = "AB12"
Case "$AB$12"
Sheets("Hoja1").ScrollArea = "I13"
Case "$I$13"
Sheets("Hoja1").ScrollArea = "B14"
Case "$B$14"
Sheets("Hoja1").ScrollArea = "T9"
End Select
End Sub


Saludos desde Tenerife (España)
******************************

"Dorian" <flacopado(ESTONOVA)@yahoo.fr> escribió en el mensaje
news:%23Ui%

hola héctor, AnSanVal

muchas gracias a ambos por sus respuestas\

héctor: de hecho la planilla esta protegida y solamente estan
desprotegidas las celdas mencionadas que son las "habilitadas" para
introducir datos; lo cual no impide a los usuarios seleccionar otra
celda, no podrán editarla ni ver su contenido pero si seleccionarla, que
es lo que tampoco quiero :(((

AnSanVal: gracias por tu código\ funciona pero siempre y cuando
introduzca algun dato en la celda seleccionada\
es decir, cuando se abre el libro se selecciona la celda T9 y, como
quiero, no permite seleccionar ninguna otra con el mouse; si introduzco
un dato pasa a la celda A12, y si aqui introduzco un dato pasa a la E12 y
así sucesivamente, va pasando a la que le sigue\

pero si en la celda A12 le doy enter sin introducir ningun dato, pasa a
la A13 en vez de ir a la E12 que es la que le sigue en el orden de
tabulacion :((

me podríais dar una mano con esto??

nuevamente muchas gracias a ambos :))

saludos,

dorian+







"Dorian" <flacopado(ESTONOVA)@yahoo.fr> escribió en el mensaje
news:

hola grupo !!

una vez mas acudo aquí en busca de ayuda :))

el problema sería el siguiente:

al abrirse el libro debe seleccionarse la celda T9, pero el usuario sólo
puede escribir datos en las siguientes celdas (la T9 (seleccionada al
comienzo), A12, E12, AB12, I13 y B14) como puedo hacer para que con cada
pulsación solo pueda moverse ("navegar") por éstas celdas y no pueda
seleccionar ninguna otra de la hoja de cálculo ?

alguien me pude dar una mano?

desde ya muchas gracias

saludos

dorian+

perfecto !!!

muchas gracias, como siempre, por tu ayuda

saludos,

dorian+




"Héctor Miguel" escribió en el mensaje
news:%23f%

hola, Dorian !

... de hecho la planilla esta protegida y solamente estan desprotegidas
las celdas mencionadas
que son las "habilitadas" para introducir datos; lo cual no impide a los
usuarios seleccionar otra celda
no podran editarla ni ver su contenido pero si seleccionarla, que es lo
que tampoco quiero :(((

si las celdas modificables ya estan desbloqueadas... prueba con las
siguientes lineas en el evento '_open' del libro:

Private Sub Workbook_Open()
Worksheets("hoja1").EnableSelection = xlUnlockedCells
End Sub

saludos,
hector.

estiamdo AnSanVal,

como el libro está protegido, excepto, las celdas indicadas que son en las
que el usuario debe introducir los datos, funciona perfectamente el código
de héctor miguel y me puedo ir moviendo por esas celdas introduzca o no
datos en ellas

quiero agradecerte enormemente tambien el tiempo que le dedicaste a resolver
mi consulta :))

un abrazo

dorian+








"AnSanVal" escribió en el mensaje
news:

Hola Dorian.

Perdóname, haciendo pruebas (y para poder moverme por la hoja) puse una
línea de más de modo provicional y por despiste la dejé y te envie el
código con ella. Lo que hace que el código no funcione como debe.
Borra la linea ...
Sheets(1).ScrollArea = ""
... (penúltima), que lo que hace es permitir moverte por toda la hoja, y
de esa forma no se moverá la selección al pulsar Intro en una celda vacia.

El código final debe quedar asi:

En el módulo ThisWorkbook:
Private Sub Workbook_Open()
Sheets("Hoja1").ScrollArea = "T9"
End Sub

En el módulo Hoja1:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "" Then Exit Sub
Select Case Target.Address
Case "$T$9"
Sheets("Hoja1").ScrollArea = "A12"
Case "$A$12"
Sheets("Hoja1").ScrollArea = "E12"
Case "$E$12"
Sheets("Hoja1").ScrollArea = "AB12"
Case "$AB$12"
Sheets("Hoja1").ScrollArea = "I13"
Case "$I$13"
Sheets("Hoja1").ScrollArea = "B14"
Case "$B$14"
Sheets("Hoja1").ScrollArea = "T9"
End Select
End Sub


Saludos desde Tenerife (España)
******************************

"Dorian" <flacopado(ESTONOVA)@yahoo.fr> escribió en el mensaje
news:%23Ui%

hola héctor, AnSanVal

muchas gracias a ambos por sus respuestas\

héctor: de hecho la planilla esta protegida y solamente estan
desprotegidas las celdas mencionadas que son las "habilitadas" para
introducir datos; lo cual no impide a los usuarios seleccionar otra
celda, no podrán editarla ni ver su contenido pero si seleccionarla, que
es lo que tampoco quiero :(((

AnSanVal: gracias por tu código\ funciona pero siempre y cuando
introduzca algun dato en la celda seleccionada\
es decir, cuando se abre el libro se selecciona la celda T9 y, como
quiero, no permite seleccionar ninguna otra con el mouse; si introduzco
un dato pasa a la celda A12, y si aqui introduzco un dato pasa a la E12 y
así sucesivamente, va pasando a la que le sigue\

pero si en la celda A12 le doy enter sin introducir ningun dato, pasa a
la A13 en vez de ir a la E12 que es la que le sigue en el orden de
tabulacion :((

me podríais dar una mano con esto??

nuevamente muchas gracias a ambos :))

saludos,

dorian+







"Dorian" <flacopado(ESTONOVA)@yahoo.fr> escribió en el mensaje
news:

hola grupo !!

una vez mas acudo aquí en busca de ayuda :))

el problema sería el siguiente:

al abrirse el libro debe seleccionarse la celda T9, pero el usuario sólo
puede escribir datos en las siguientes celdas (la T9 (seleccionada al
comienzo), A12, E12, AB12, I13 y B14) como puedo hacer para que con cada
pulsación solo pueda moverse ("navegar") por éstas celdas y no pueda
seleccionar ninguna otra de la hoja de cálculo ?

alguien me pude dar una mano?

desde ya muchas gracias

saludos

dorian+

Hola Dorian.

Pensé que querias obligar a rellenar todos los campos. :-(
Para que al pulsar Intro en una celda vacia, cambie de selección es
suficiente con quitar la línea...
If Target.Value = "" Then Exit Sub
... pero esta solución no te permite seleccionar otra celda con el ratón.
Para que esto último sea posible; la última solución de Héctor (
Worksheets("hoja1").EnableSelection = xlUnlockedCells ) es perfecta.

Saludos desde Tenerife.
**************************
"Dorian" <flacopado(ESTONOVA)@yahoo.fr> escribió en el mensaje
news:

estiamdo AnSanVal,

como el libro está protegido, excepto, las celdas indicadas que son en las
que el usuario debe introducir los datos, funciona perfectamente el código
de héctor miguel y me puedo ir moviendo por esas celdas introduzca o no
datos en ellas

quiero agradecerte enormemente tambien el tiempo que le dedicaste a
resolver mi consulta :))

un abrazo

dorian+








"AnSanVal" escribió en el mensaje
news:

Hola Dorian.

Perdóname, haciendo pruebas (y para poder moverme por la hoja) puse una
línea de más de modo provicional y por despiste la dejé y te envie el
código con ella. Lo que hace que el código no funcione como debe.
Borra la linea ...
Sheets(1).ScrollArea = ""
... (penúltima), que lo que hace es permitir moverte por toda la hoja,
y de esa forma no se moverá la selección al pulsar Intro en una celda
vacia.

El código final debe quedar asi:

En el módulo ThisWorkbook:
Private Sub Workbook_Open()
Sheets("Hoja1").ScrollArea = "T9"
End Sub

En el módulo Hoja1:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "" Then Exit Sub
Select Case Target.Address
Case "$T$9"
Sheets("Hoja1").ScrollArea = "A12"
Case "$A$12"
Sheets("Hoja1").ScrollArea = "E12"
Case "$E$12"
Sheets("Hoja1").ScrollArea = "AB12"
Case "$AB$12"
Sheets("Hoja1").ScrollArea = "I13"
Case "$I$13"
Sheets("Hoja1").ScrollArea = "B14"
Case "$B$14"
Sheets("Hoja1").ScrollArea = "T9"
End Select
End Sub


Saludos desde Tenerife (España)
******************************

"Dorian" <flacopado(ESTONOVA)@yahoo.fr> escribió en el mensaje
news:%23Ui%

hola héctor, AnSanVal

muchas gracias a ambos por sus respuestas\

héctor: de hecho la planilla esta protegida y solamente estan
desprotegidas las celdas mencionadas que son las "habilitadas" para
introducir datos; lo cual no impide a los usuarios seleccionar otra
celda, no podrán editarla ni ver su contenido pero si seleccionarla, que
es lo que tampoco quiero :(((

AnSanVal: gracias por tu código\ funciona pero siempre y cuando
introduzca algun dato en la celda seleccionada\
es decir, cuando se abre el libro se selecciona la celda T9 y, como
quiero, no permite seleccionar ninguna otra con el mouse; si introduzco
un dato pasa a la celda A12, y si aqui introduzco un dato pasa a la E12
y así sucesivamente, va pasando a la que le sigue\

pero si en la celda A12 le doy enter sin introducir ningun dato, pasa a
la A13 en vez de ir a la E12 que es la que le sigue en el orden de
tabulacion :((

me podríais dar una mano con esto??

nuevamente muchas gracias a ambos :))

saludos,

dorian+







"Dorian" <flacopado(ESTONOVA)@yahoo.fr> escribió en el mensaje
news:

hola grupo !!

una vez mas acudo aquí en busca de ayuda :))

el problema sería el siguiente:

al abrirse el libro debe seleccionarse la celda T9, pero el usuario
sólo puede escribir datos en las siguientes celdas (la T9 (seleccionada
al comienzo), A12, E12, AB12, I13 y B14) como puedo hacer para que con
cada pulsación solo pueda moverse ("navegar") por éstas celdas y no
pueda seleccionar ninguna otra de la hoja de cálculo ?

alguien me pude dar una mano?

desde ya muchas gracias

saludos

dorian+

Hola AnSAnVal,

gracias por tu respuesta, de hecho, no para esta cosulta puntual, pero si
para otra aplicación en la que es necesario completar todos los campos de un
registro he empelado tu solución ;)

muchas gracias de nuevo,

saludos,

dorian+





"AnSanVal" escribió en el mensaje
news:%

Hola Dorian.

Pensé que querias obligar a rellenar todos los campos. :-(
Para que al pulsar Intro en una celda vacia, cambie de selección es
suficiente con quitar la línea...
If Target.Value = "" Then Exit Sub
... pero esta solución no te permite seleccionar otra celda con el ratón.
Para que esto último sea posible; la última solución de Héctor (
Worksheets("hoja1").EnableSelection = xlUnlockedCells ) es perfecta.

Saludos desde Tenerife.
**************************
"Dorian" <flacopado(ESTONOVA)@yahoo.fr> escribió en el mensaje
news:

estiamdo AnSanVal,

como el libro está protegido, excepto, las celdas indicadas que son en
las que el usuario debe introducir los datos, funciona perfectamente el
código de héctor miguel y me puedo ir moviendo por esas celdas introduzca
o no datos en ellas

quiero agradecerte enormemente tambien el tiempo que le dedicaste a
resolver mi consulta :))

un abrazo

dorian+








"AnSanVal" escribió en el mensaje
news:

Hola Dorian.

Perdóname, haciendo pruebas (y para poder moverme por la hoja) puse una
línea de más de modo provicional y por despiste la dejé y te envie el
código con ella. Lo que hace que el código no funcione como debe.
Borra la linea ...
Sheets(1).ScrollArea = ""
... (penúltima), que lo que hace es permitir moverte por toda la hoja,
y de esa forma no se moverá la selección al pulsar Intro en una celda
vacia.

El código final debe quedar asi:

En el módulo ThisWorkbook:
Private Sub Workbook_Open()
Sheets("Hoja1").ScrollArea = "T9"
End Sub

En el módulo Hoja1:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "" Then Exit Sub
Select Case Target.Address
Case "$T$9"
Sheets("Hoja1").ScrollArea = "A12"
Case "$A$12"
Sheets("Hoja1").ScrollArea = "E12"
Case "$E$12"
Sheets("Hoja1").ScrollArea = "AB12"
Case "$AB$12"
Sheets("Hoja1").ScrollArea = "I13"
Case "$I$13"
Sheets("Hoja1").ScrollArea = "B14"
Case "$B$14"
Sheets("Hoja1").ScrollArea = "T9"
End Select
End Sub


Saludos desde Tenerife (España)
******************************

"Dorian" <flacopado(ESTONOVA)@yahoo.fr> escribió en el mensaje
news:%23Ui%

hola héctor, AnSanVal

muchas gracias a ambos por sus respuestas\

héctor: de hecho la planilla esta protegida y solamente estan
desprotegidas las celdas mencionadas que son las "habilitadas" para
introducir datos; lo cual no impide a los usuarios seleccionar otra
celda, no podrán editarla ni ver su contenido pero si seleccionarla,
que es lo que tampoco quiero :(((

AnSanVal: gracias por tu código\ funciona pero siempre y cuando
introduzca algun dato en la celda seleccionada\
es decir, cuando se abre el libro se selecciona la celda T9 y, como
quiero, no permite seleccionar ninguna otra con el mouse; si introduzco
un dato pasa a la celda A12, y si aqui introduzco un dato pasa a la E12
y así sucesivamente, va pasando a la que le sigue\

pero si en la celda A12 le doy enter sin introducir ningun dato, pasa a
la A13 en vez de ir a la E12 que es la que le sigue en el orden de
tabulacion :((

me podríais dar una mano con esto??

nuevamente muchas gracias a ambos :))

saludos,

dorian+







"Dorian" <flacopado(ESTONOVA)@yahoo.fr> escribió en el mensaje
news:

hola grupo !!

una vez mas acudo aquí en busca de ayuda :))

el problema sería el siguiente:

al abrirse el libro debe seleccionarse la celda T9, pero el usuario
sólo puede escribir datos en las siguientes celdas (la T9
(seleccionada al comienzo), A12, E12, AB12, I13 y B14) como puedo
hacer para que con cada pulsación solo pueda moverse ("navegar") por
éstas celdas y no pueda seleccionar ninguna otra de la hoja de cálculo
?

alguien me pude dar una mano?

desde ya muchas gracias

saludos

dorian+