cambiar de celda

Hola Franklin,

?Y como quieres indicrle a Excel la celda a donde tiene que ir?

Saludos.
KL

"Franklin Flores" wrote in message
news:

Como puedo hacer para que al dar enter en una celda se direccione a otra
celda? pero a una celda que yo le indique.

Osea lo que quiero hacer es esto digamo tengo 4 columnas y al llegar a la
ultima fila de la primer columna y al precionar enter o de alguna manera
pase automaticamente a la primer celda de la siguiente columna, pero
solamente al llegar al final de la celda de cada columna. Si me explique
bien? espero me entiendas.



"KL" escribió en el mensaje
news:

Hola Franklin,

?Y como quieres indicrle a Excel la celda a donde tiene que ir?

Saludos.
KL

"Franklin Flores" wrote in message
news:
> Como puedo hacer para que al dar enter en una celda se direccione a otra
> celda? pero a una celda que yo le indique.
>
>

Hola Franklin,

Podrias usar el codigo VBA que te pongo a continuacion. Podrias ejecutar uno
de los dos primeros macros tanto manualmente como asignandolo a un evento
(p.ej. ThisWorkbook_Open). El codigo lo tienes que pegar en un modulo
estandar (no de hoja, libro o formulario). Para ello:

1) Con tu libro abierto haz clic-derecho sobre el nombre de tu hoja en una
de las pestañas de 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, ve al menu Insertar>Modulo
4) En la ventana mas grande a la derecha pega el codigo que te pongo a
continuacion (abajo del todo).
5) Dentro del codigo modifica los valores de las siguientes variables segun
tus necesidades (estas variables definen los limites del rango en el que se
tiene que mover):

PrFila = 2: UltFila = 10
PrCol = 2: UltCol = 5

6) Ahora pulsa Alt+F11 para volver a la hoja.
7) Pulsa Alt+F8
8) Haz doble-clic sobre "ModificarEnterNumericKeypad" o "ModificarEnter"
9) Prueba pulsar la tecla Enter correspondiente (mira mis comentarios dentro
del codigo)
10) Para restablecer el funcionamiento normal de ambas teclas Enter repite
los pasos 6-7, pero esta vez haz doble-clic sobre "RestablecerEnter"

Saludos,
KL

'--Inicio Codigo
'Usa este macro si quieres usar la tecla Enter de
'la seccion numerica del teclado (a mano derecha)
Sub ModificarEnterNumericKeypad()
Application.OnKey "{ENTER}", "SeleccionarRangos"
End Sub

'Usa este macro si quieres usar la tecla Enter principal
Sub ModificarEnter()
Application.OnKey "~", "SeleccionarRangos"
End Sub

'Usa este macro para restablecer el funcionamiento
'estrandar de las teclas Enter
Sub RestablecerEnter()
Application.OnKey "{ENTER}"
Application.OnKey "~"
End Sub

Sub SeleccionarRangos()
Dim PrFila As Long, UltFila As Long
Dim PrCol As Integer, UltCol As Integer

PrFila = 2: UltFila = 10
PrCol = 2: UltCol = 5
With ActiveCell
Select Case .Row
Case PrFila To UltFila - 1
Select Case .Column
Case PrCol To UltCol
.Offset(1, 0).Select
Case Else
.Parent.Cells(.Row + 1, PrCol).Select
End Select
Case Else
Select Case .Column
Case PrCol To UltCol - 1
.Parent.Cells(PrFila, .Column + 1).Select
Case Else
.Parent.Cells(PrFila, PrCol).Select
End Select
End Select
End With
End Sub
'--Fin Codigo

Gracias por la ayuda todo funciona bien, solo tengo una duda, cuando no
restablezco el enter me sale un error y me aparece una nuevo libro con unos
datos a que se debe eso???

"KL" escribió en el mensaje
news:

Hola Franklin,

Podrias usar el codigo VBA que te pongo a continuacion. Podrias ejecutar

uno

de los dos primeros macros tanto manualmente como asignandolo a un evento
(p.ej. ThisWorkbook_Open). El codigo lo tienes que pegar en un modulo
estandar (no de hoja, libro o formulario). Para ello:

1) Con tu libro abierto haz clic-derecho sobre el nombre de tu hoja en una
de las pestañas de 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, ve al menu Insertar>Modulo
4) En la ventana mas grande a la derecha pega el codigo que te pongo a
continuacion (abajo del todo).
5) Dentro del codigo modifica los valores de las siguientes variables

segun

tus necesidades (estas variables definen los limites del rango en el que

se

tiene que mover):

PrFila = 2: UltFila = 10
PrCol = 2: UltCol = 5

6) Ahora pulsa Alt+F11 para volver a la hoja.
7) Pulsa Alt+F8
8) Haz doble-clic sobre "ModificarEnterNumericKeypad" o "ModificarEnter"
9) Prueba pulsar la tecla Enter correspondiente (mira mis comentarios

dentro

del codigo)
10) Para restablecer el funcionamiento normal de ambas teclas Enter repite
los pasos 6-7, pero esta vez haz doble-clic sobre "RestablecerEnter"

Saludos,
KL

'--Inicio Codigo
'Usa este macro si quieres usar la tecla Enter de
'la seccion numerica del teclado (a mano derecha)
Sub ModificarEnterNumericKeypad()
Application.OnKey "{ENTER}", "SeleccionarRangos"
End Sub

'Usa este macro si quieres usar la tecla Enter principal
Sub ModificarEnter()
Application.OnKey "~", "SeleccionarRangos"
End Sub

'Usa este macro para restablecer el funcionamiento
'estrandar de las teclas Enter
Sub RestablecerEnter()
Application.OnKey "{ENTER}"
Application.OnKey "~"
End Sub

Sub SeleccionarRangos()
Dim PrFila As Long, UltFila As Long
Dim PrCol As Integer, UltCol As Integer

PrFila = 2: UltFila = 10
PrCol = 2: UltCol = 5
With ActiveCell
Select Case .Row
Case PrFila To UltFila - 1
Select Case .Column
Case PrCol To UltCol
.Offset(1, 0).Select
Case Else
.Parent.Cells(.Row + 1, PrCol).Select
End Select
Case Else
Select Case .Column
Case PrCol To UltCol - 1
.Parent.Cells(PrFila, .Column + 1).Select
Case Else
.Parent.Cells(PrFila, PrCol).Select
End Select
End Select
End With
End Sub
'--Fin Codigo

Hola Franklin,

?Que error te da? ?La descripcion, el numero? ?Opciones, botones que te
ofrece?
?Cual es el nombre del nuevo libro?
?Que datos pone el nuevo libro?
?Es un libro desconocido para ti?

De todas maneras, como ya te habia dicho antes, podrias asociar los
procedimientos a los eventos Workbook_Open y Workbook_BeforeClose para que
se ejecuten automaticamente. Para ello:

1) Con tu libro abierto haz clic-derecho sobre el pequeño icono de Excel a
la izquierda del menu Archivo
2) Elige la opcion Ver Codigo para abrir el editor VBA.
3) En la ventana mas grande a la derecha pega el codigo que te pongo a
continuacion (abajo del todo).
4) Dentro del segundo procedimiento del codigo (Workbook_Open) modifica el
nombre del procedimiento que quieres llamar (quitando "NumericKeypad" o no,
segun la tecla que quieres modificar)
5) Ahora pulsa Alt+F11 para volver a la hoja.
6) Guarda el archivo, cierralo y vuelve a abrir
7) Haz pruebas

Saludos,
KL

'--Inicio Codigo
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call RestablecerEnter
End Sub

Private Sub Workbook_Open()
Call ModificarEnterNumericKeypad
End Sub
'--Fin Codigo