ubicacion puntero

Hola KL, la macro es la siguiente
Sub Macro2()
'
' Macro1 Macro
' Macro recorded 03/06/2006 by Juan Carlos Ondarts
'
lugarfila = [i3]
lugarcolumna = [h3]

Sheets("Ingreso").Select
Cells(lugarfila, lugarcolumna).Select

End Sub





El combobox esta en una hoja llamada "Principal" y esta vinculada con la
celda G3 de esa misma hoja.

En funcion de esa celda G3, en H3 e I3 localizo de una tabla
"ListaPacientes" la ubicacion de la esquina superior en donde esta el ingreso
de los datos (de la hoja Ingreso)

=+BUSCARV(G3;ListaPacientes;3;FALSO) < esto esta en H3
=+BUSCARV(G3;ListaPacientes;3;FALSO) < esto esta en I3

Estos dos valores ques estan en H3 y en I3 son los que usa la macro para
saber donde tiene que posicionar el cursor.


GRACIAS
JC






"KL" escribió:

Hola Juan Carlos,

Quedan algunas variables todavia. Has olvidado de exponer el macro (o aquella parte suya que realiza la activacion de rangos) asociado al combobox, ese codigo contiene la informacion que necesito.

Saludos,
KL

-
"puntero ubicacion" wrote in message news:
> Hola KL, disculpa por favor las imprecisiones.
>
> Es un Combox de los controles Formularios y ese Combox tiene asociada una
> macro.
> Cuando se selecciona alguna de las opciones una celda determina cual es la
> direccion de la hoja "Ingreso" a la que se debe dirigir el puntero.
> Se ejecuta la macro que consiste en cambiar de hoja e ir a la direccion
> correspondiente.
> El problema es que yo quiero que ese celda esté en la esuqina superior
> izquierda de la pantalla para que todos los datos a ingresar estén a la vista.
> Espero haber si claro.
> Muchas gracias KL
> Saludos
> JC
>
> "KL" escribió:
>
>> Hola Juan Carlos,
>>
>> Seria +/- la misma instruccion, pero ligeramente modificada y asociada a otro evento.
>>
>> Me hubieras ahorrado trabajo al exponer lo siguiente:
>> 1) el codigo que hace lo que dices: "...segun lo elegido va a la hoja "Ingreso" y a la esquina superior izquierda del rango elegido..."
>> 2) que es lo que llamas "menu desplegable"
>> - una regla de validacion en celda
>> - un ComboBox del cuadro de controles Visual Basic
>> - un ComboBox del cuadro de controles Formularios
>> 3) que valores exactamente contiene tu menu desplegable y como estan relacionados con los rangos a activar
>>
>> Saludos,
>> KL
>>
>>
>> "puntero ubicacion" wrote in message news:
>> > Hola, empiezo diciendo que me llamo Juan Carlos y paso a explicar mi problema
>> > un poco mejor.
>> > Tengo una hoja ("Ingreso") que tiene diferentes zonas de ingreso de datos,
>> > por ejemplo, entre AK1021 y AT1200.
>> > En otra hoja hay un menu desplegable que selecciona opciones y segun lo
>> > elegido va a la hoja "Ingreso" y a la esquina superior izquierda del rango
>> > elegido.
>> > Ahora bien, lo que necesito es que siempre, al ir a la hoja "Ingreso" la
>> > posicion se como la de A1.
>> > Lo que me sugirió KL funciona perfecto para acceder a la hoja pero si me
>> > muevo de celda, continua ubicando el cursor en la esquina superior izquierda
>> > (como si estuviera scroll locked)
>> >
>> > En resumen, hay forma de anular la macro indicada :
>> >
>> > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>> > Application.Goto ActiveCell, True
>> > End Sub
>> >
>> >
>> > una vez que se haya accedido a la planilla "ingreso" ???
>> >
>> > Gracias de nuevo
>> > Juan Carlos
>> >
>> >
>> >
>> > "KL" escribió:
>> >
>> >> Hola anonim@,
>> >>
>> >> Prueba hacer lo siguiente:
>> >>
>> >> con la hoja en cuestion activada...
>> >> 1) haz clic derecho sobre la pestana con el nombre de la hoja en la parte de abajo de la ventana de Excel
>> >> 2) elige la opcion 'Ver Codigo' para abrir el Editor VBA
>> >> 3) una vez en el Editor VBA, pega el siguiente codigo en la ventana mas grande a la derecha:
>> >> 'Inicio codigo
>> >> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>> >> Application.Goto ActiveCell, True
>> >> End Sub
>> >> 'Fin codigo
>> >> 4) pulsa Alt+F11 para volver a la hoja
>> >> 5) guarda los cambios y haz pruebas.
>> >>
>> >> Saludos,
>> >> KL
>> >>
>> >>
>> >> "puntero ubicacion" <puntero wrote in message news:
>> >> > Hola, quiero que me ayuden con lo siguiente.
>> >> > Como hago para que cuando el puntero debe ir a una celda determinada de una
>> >> > planilla, esta celda se encuentre siempre en la posiccion de arriba a la
>> >> > izquierda (como si fuera la A1).
>> >> > Actualmente me sucede que la celda en cuestion aparece en medio de la
>> >> > pantalla y no me sirve.
>> >> > Espero que hayan entendido mi situacion.
>> >> > Gracias a todos de antemano
>> >>
>>

Hola Juan Carlos,

Prueba sustituir tu macro por el siguiente:

Sub Macro2()
Application.Goto Sheets("Ingreso").Cells([i3], [h3]), True
End Sub

o, si la referencia no siempre sera el extremo superior izquierdo de la tabla en cuestion, algo asi:

Sub Macro3()
Application.Goto Sheets("Ingreso").Cells([i3], [h3]). _
CurrentRegion.Cells(1), True
End Sub

Saludos,
KL


"puntero ubicacion" wrote in message news:

Hola KL, la macro es la siguiente.
Sub Macro2()
'
' Macro1 Macro
' Macro recorded 03/06/2006 by Juan Carlos Ondarts
'
lugarfila = [i3]
lugarcolumna = [h3]

Sheets("Ingreso").Select
Cells(lugarfila, lugarcolumna).Select

End Sub





El combobox esta en una hoja llamada "Principal" y esta vinculada con la
celda G3 de esa misma hoja.

En funcion de esa celda G3, en H3 e I3 localizo de una tabla
"ListaPacientes" la ubicacion de la esquina superior en donde esta el ingreso
de los datos (de la hoja Ingreso)

=+BUSCARV(G3;ListaPacientes;3;FALSO) < esto esta en H3
=+BUSCARV(G3;ListaPacientes;3;FALSO) < esto esta en I3

Estos dos valores ques estan en H3 y en I3 son los que usa la macro para
saber donde tiene que posicionar el cursor.


GRACIAS
JC






"KL" escribió:

Hola Juan Carlos,

Quedan algunas variables todavia. Has olvidado de exponer el macro (o aquella parte suya que realiza la activacion de rangos) asociado al combobox, ese codigo contiene la informacion que necesito.

Saludos,
KL

-
"puntero ubicacion" wrote in message news:
> Hola KL, disculpa por favor las imprecisiones.
>
> Es un Combox de los controles Formularios y ese Combox tiene asociada una
> macro.
> Cuando se selecciona alguna de las opciones una celda determina cual es la
> direccion de la hoja "Ingreso" a la que se debe dirigir el puntero.
> Se ejecuta la macro que consiste en cambiar de hoja e ir a la direccion
> correspondiente.
> El problema es que yo quiero que ese celda esté en la esuqina superior
> izquierda de la pantalla para que todos los datos a ingresar estén a la vista.
> Espero haber si claro.
> Muchas gracias KL
> Saludos
> JC
>
> "KL" escribió:
>
>> Hola Juan Carlos,
>>
>> Seria +/- la misma instruccion, pero ligeramente modificada y asociada a otro evento.
>>
>> Me hubieras ahorrado trabajo al exponer lo siguiente:
>> 1) el codigo que hace lo que dices: "...segun lo elegido va a la hoja "Ingreso" y a la esquina superior izquierda del rango elegido..."
>> 2) que es lo que llamas "menu desplegable"
>> - una regla de validacion en celda
>> - un ComboBox del cuadro de controles Visual Basic
>> - un ComboBox del cuadro de controles Formularios
>> 3) que valores exactamente contiene tu menu desplegable y como estan relacionados con los rangos a activar
>>
>> Saludos,
>> KL
>>
>>
>> "puntero ubicacion" wrote in message news:
>> > Hola, empiezo diciendo que me llamo Juan Carlos y paso a explicar mi problema
>> > un poco mejor.
>> > Tengo una hoja ("Ingreso") que tiene diferentes zonas de ingreso de datos,
>> > por ejemplo, entre AK1021 y AT1200.
>> > En otra hoja hay un menu desplegable que selecciona opciones y segun lo
>> > elegido va a la hoja "Ingreso" y a la esquina superior izquierda del rango
>> > elegido.
>> > Ahora bien, lo que necesito es que siempre, al ir a la hoja "Ingreso" la
>> > posicion se como la de A1.
>> > Lo que me sugirió KL funciona perfecto para acceder a la hoja pero si me
>> > muevo de celda, continua ubicando el cursor en la esquina superior izquierda
>> > (como si estuviera scroll locked)
>> >
>> > En resumen, hay forma de anular la macro indicada :
>> >
>> > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>> > Application.Goto ActiveCell, True
>> > End Sub
>> >
>> >
>> > una vez que se haya accedido a la planilla "ingreso" ???
>> >
>> > Gracias de nuevo
>> > Juan Carlos
>> >
>> >
>> >
>> > "KL" escribió:
>> >
>> >> Hola anonim@,
>> >>
>> >> Prueba hacer lo siguiente:
>> >>
>> >> con la hoja en cuestion activada...
>> >> 1) haz clic derecho sobre la pestana con el nombre de la hoja en la parte de abajo de la ventana de Excel
>> >> 2) elige la opcion 'Ver Codigo' para abrir el Editor VBA
>> >> 3) una vez en el Editor VBA, pega el siguiente codigo en la ventana mas grande a la derecha:
>> >> 'Inicio codigo
>> >> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>> >> Application.Goto ActiveCell, True
>> >> End Sub
>> >> 'Fin codigo
>> >> 4) pulsa Alt+F11 para volver a la hoja
>> >> 5) guarda los cambios y haz pruebas.
>> >>
>> >> Saludos,
>> >> KL
>> >>
>> >>
>> >> "puntero ubicacion" <puntero wrote in message news:
>> >> > Hola, quiero que me ayuden con lo siguiente.
>> >> > Como hago para que cuando el puntero debe ir a una celda determinada de una
>> >> > planilla, esta celda se encuentre siempre en la posiccion de arriba a la
>> >> > izquierda (como si fuera la A1).
>> >> > Actualmente me sucede que la celda en cuestion aparece en medio de la
>> >> > pantalla y no me sirve.
>> >> > Espero que hayan entendido mi situacion.
>> >> > Gracias a todos de antemano
>> >>
>>

Muchisimas gracias KL.
Anduvo perfectamente

JC

"KL" escribió:

Hola Juan Carlos,

Prueba sustituir tu macro por el siguiente:

Sub Macro2()
Application.Goto Sheets("Ingreso").Cells([i3], [h3]), True
End Sub

o, si la referencia no siempre sera el extremo superior izquierdo de la tabla en cuestion, algo asi:

Sub Macro3()
Application.Goto Sheets("Ingreso").Cells([i3], [h3]). _
CurrentRegion.Cells(1), True
End Sub

Saludos,
KL


"puntero ubicacion" wrote in message news:
> Hola KL, la macro es la siguiente.
> Sub Macro2()
> '
> ' Macro1 Macro
> ' Macro recorded 03/06/2006 by Juan Carlos Ondarts
> '
> lugarfila = [i3]
> lugarcolumna = [h3]
>
> Sheets("Ingreso").Select
> Cells(lugarfila, lugarcolumna).Select
>
> End Sub
>
>
>
>
>
> El combobox esta en una hoja llamada "Principal" y esta vinculada con la
> celda G3 de esa misma hoja.
>
> En funcion de esa celda G3, en H3 e I3 localizo de una tabla
> "ListaPacientes" la ubicacion de la esquina superior en donde esta el ingreso
> de los datos (de la hoja Ingreso)
>
> =+BUSCARV(G3;ListaPacientes;3;FALSO) < esto esta en H3
> =+BUSCARV(G3;ListaPacientes;3;FALSO) < esto esta en I3
>
> Estos dos valores ques estan en H3 y en I3 son los que usa la macro para
> saber donde tiene que posicionar el cursor.
>
>
> GRACIAS
> JC
>
>
>
>
>
>
> "KL" escribió:
>
>> Hola Juan Carlos,
>>
>> Quedan algunas variables todavia. Has olvidado de exponer el macro (o aquella parte suya que realiza la activacion de rangos) asociado al combobox, ese codigo contiene la informacion que necesito.
>>
>> Saludos,
>> KL
>>
>> -
>> "puntero ubicacion" wrote in message news:
>> > Hola KL, disculpa por favor las imprecisiones.
>> >
>> > Es un Combox de los controles Formularios y ese Combox tiene asociada una
>> > macro.
>> > Cuando se selecciona alguna de las opciones una celda determina cual es la
>> > direccion de la hoja "Ingreso" a la que se debe dirigir el puntero.
>> > Se ejecuta la macro que consiste en cambiar de hoja e ir a la direccion
>> > correspondiente.
>> > El problema es que yo quiero que ese celda esté en la esuqina superior
>> > izquierda de la pantalla para que todos los datos a ingresar estén a la vista.
>> > Espero haber si claro.
>> > Muchas gracias KL
>> > Saludos
>> > JC
>> >
>> > "KL" escribió:
>> >
>> >> Hola Juan Carlos,
>> >>
>> >> Seria +/- la misma instruccion, pero ligeramente modificada y asociada a otro evento.
>> >>
>> >> Me hubieras ahorrado trabajo al exponer lo siguiente:
>> >> 1) el codigo que hace lo que dices: "...segun lo elegido va a la hoja "Ingreso" y a la esquina superior izquierda del rango elegido..."
>> >> 2) que es lo que llamas "menu desplegable"
>> >> - una regla de validacion en celda
>> >> - un ComboBox del cuadro de controles Visual Basic
>> >> - un ComboBox del cuadro de controles Formularios
>> >> 3) que valores exactamente contiene tu menu desplegable y como estan relacionados con los rangos a activar
>> >>
>> >> Saludos,
>> >> KL
>> >>
>> >>
>> >> "puntero ubicacion" wrote in message news:
>> >> > Hola, empiezo diciendo que me llamo Juan Carlos y paso a explicar mi problema
>> >> > un poco mejor.
>> >> > Tengo una hoja ("Ingreso") que tiene diferentes zonas de ingreso de datos,
>> >> > por ejemplo, entre AK1021 y AT1200.
>> >> > En otra hoja hay un menu desplegable que selecciona opciones y segun lo
>> >> > elegido va a la hoja "Ingreso" y a la esquina superior izquierda del rango
>> >> > elegido.
>> >> > Ahora bien, lo que necesito es que siempre, al ir a la hoja "Ingreso" la
>> >> > posicion se como la de A1.
>> >> > Lo que me sugirió KL funciona perfecto para acceder a la hoja pero si me
>> >> > muevo de celda, continua ubicando el cursor en la esquina superior izquierda
>> >> > (como si estuviera scroll locked)
>> >> >
>> >> > En resumen, hay forma de anular la macro indicada :
>> >> >
>> >> > Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>> >> > Application.Goto ActiveCell, True
>> >> > End Sub
>> >> >
>> >> >
>> >> > una vez que se haya accedido a la planilla "ingreso" ???
>> >> >
>> >> > Gracias de nuevo
>> >> > Juan Carlos
>> >> >
>> >> >
>> >> >
>> >> > "KL" escribió:
>> >> >
>> >> >> Hola anonim@,
>> >> >>
>> >> >> Prueba hacer lo siguiente:
>> >> >>
>> >> >> con la hoja en cuestion activada...
>> >> >> 1) haz clic derecho sobre la pestana con el nombre de la hoja en la parte de abajo de la ventana de Excel
>> >> >> 2) elige la opcion 'Ver Codigo' para abrir el Editor VBA
>> >> >> 3) una vez en el Editor VBA, pega el siguiente codigo en la ventana mas grande a la derecha:
>> >> >> 'Inicio codigo
>> >> >> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>> >> >> Application.Goto ActiveCell, True
>> >> >> End Sub
>> >> >> 'Fin codigo
>> >> >> 4) pulsa Alt+F11 para volver a la hoja
>> >> >> 5) guarda los cambios y haz pruebas.
>> >> >>
>> >> >> Saludos,
>> >> >> KL
>> >> >>
>> >> >>
>> >> >> "puntero ubicacion" <puntero wrote in message news:
>> >> >> > Hola, quiero que me ayuden con lo siguiente.
>> >> >> > Como hago para que cuando el puntero debe ir a una celda determinada de una
>> >> >> > planilla, esta celda se encuentre siempre en la posiccion de arriba a la
>> >> >> > izquierda (como si fuera la A1).
>> >> >> > Actualmente me sucede que la celda en cuestion aparece en medio de la
>> >> >> > pantalla y no me sirve.
>> >> >> > Espero que hayan entendido mi situacion.
>> >> >> > Gracias a todos de antemano
>> >> >>
>> >>
>>