Como hacer que mi macro se ejecute solo en una hoja específica?

Tengo un excel que en la hoja 1 llamada "Ingreso" tiene un formulario que con ayuda de una macro lo pasa a la hoja 2 llamada "Base" para su almacenamiento.

En la hoja "Ingreso" hay celdas específicas para ingresar datos, por lo que con ayuda de macros hice que la tecla Enter y Tab funcionen para despazarse solo por las celdas de ingreso.

El problema es que en la Hoja "Base" la Tecla Enter y Tab ejecutan la macro y no cumplen su funcion normal.

Espero puedan ayudarme.

Esta es la macro que tengo:

Sub tecla()
Application.OnKey "{TAB}", "tabulador"
Application.OnKey "~", "intro"
End Sub

Sub tabulador()
On Error Resume Next
If ActiveCell.Address = "$G$16" Then
ActiveCell.Offset(-3, 0).Select
Exit Sub
End If
If ActiveCell.Address = "$G$13" Then
ActiveCell.Offset(-3, 0).Select
Exit Sub
End If
If ActiveCell.Address = "$G$10" Then
ActiveCell.Offset(-3, 0).Select
Exit Sub
End If
If ActiveCell.Address = "$G$7" Then
ActiveCell.Offset(-3, 0).Select
Exit Sub
End If
If ActiveCell.Address = "$G$4" Then
ActiveCell.Offset(12, -4).Select
Exit Sub
End If
If ActiveCell.Address = "$C$16" Then
ActiveCell.Offset(-3, 0).Select
Exit Sub
End If
If ActiveCell.Address = "$C$13" Then
ActiveCell.Offset(0, 2).Select
Exit Sub
End If
If ActiveCell.Address = "$E$13" Then
ActiveCell.Offset(-3, 0).Select
Exit Sub
End If
If ActiveCell.Address = "$E$10" Then
ActiveCell.Offset(0, -2).Select
Exit Sub
End If
If ActiveCell.Address = "$C$10" Then
ActiveCell.Offset(-3, 0).Select
Exit Sub
End If
If ActiveCell.Address = "$C$7" Then
ActiveCell.Offset(-3, 0).Select
Exit Sub
End If
End Sub

Sub intro()
On Error Resume Next
If ActiveCell.Address = "$C$4" Then
ActiveCell.Offset(3, 0).Select
Exit Sub
End If
If ActiveCell.Address = "$C$7" Then
ActiveCell.Offset(3, 0).Select
Exit Sub
End If
If ActiveCell.Address = "$C$10" Then
ActiveCell.Offset(0, 2).Select
Exit Sub
End If
If ActiveCell.Address = "$E$10" Then
ActiveCell.Offset(3, -2).Select
Exit Sub
End If
If ActiveCell.Address = "$C$13" Then
ActiveCell.Offset(0, 2).Select
Exit Sub
End If
If ActiveCell.Address = "$E$13" Then
ActiveCell.Offset(3, -2).Select
Exit Sub
End If
If ActiveCell.Address = "$C$16" Then
ActiveCell.Offset(-12, 2).Select
Exit Sub
End If
If ActiveCell.Address = "$G$4" Then
ActiveCell.Offset(3, 0).Select
Exit Sub
End If
If ActiveCell.Address = "$G$7" Then
ActiveCell.Offset(3, 0).Select
Exit Sub
End If
If ActiveCell.Address = "$G$10" Then
ActiveCell.Offset(3, 0).Select
Exit Sub
End If
If ActiveCell.Address = "$G$13" Then
ActiveCell.Offset(3, 0).Select
Exit Sub
End If
End Sub

2 Respuestas

Respuesta
1

Agrega la siguiente macro a tu código

Sub tecla2()
    Application.OnKey "{TAB}"
    Application.OnKey "~"
End Sub

Te debe quedar algo así:

Sub tecla()
    Application.OnKey "{TAB}", "tabulador"
    Application.OnKey "~", "intro"
End Sub
Sub tecla2()
    Application.OnKey "{TAB}"
    Application.OnKey "~"
End Sub
Sub tabulador()
    On Error Resume Next
    If ActiveCell.Address = "$G$16" Then
    ActiveCell.Offset(-3, 0).Select
    Exit Sub
    End If
    If ActiveCell.Address = "$G$13" Then
    ActiveCell.Offset(-3, 0).Select
    Exit Sub
    End If
    If ActiveCell.Address = "$G$10" Then
    ActiveCell.Offset(-3, 0).Select
    Exit Sub
    End If
    If ActiveCell.Address = "$G$7" Then
    ActiveCell.Offset(-3, 0).Select
    Exit Sub
    End If
    If ActiveCell.Address = "$G$4" Then
    ActiveCell.Offset(12, -4).Select
    Exit Sub
    End If
    If ActiveCell.Address = "$C$16" Then
    ActiveCell.Offset(-3, 0).Select
    Exit Sub
    End If
    If ActiveCell.Address = "$C$13" Then
    ActiveCell.Offset(0, 2).Select
    Exit Sub
    End If
    If ActiveCell.Address = "$E$13" Then
    ActiveCell.Offset(-3, 0).Select
    Exit Sub
    End If
    If ActiveCell.Address = "$E$10" Then
    ActiveCell.Offset(0, -2).Select
    Exit Sub
    End If
    If ActiveCell.Address = "$C$10" Then
    ActiveCell.Offset(-3, 0).Select
    Exit Sub
    End If
    If ActiveCell.Address = "$C$7" Then
    ActiveCell.Offset(-3, 0).Select
    Exit Sub
    End If
End Sub
Sub intro()
    On Error Resume Next
    If ActiveCell.Address = "$C$4" Then
    ActiveCell.Offset(3, 0).Select
    Exit Sub
    End If
    If ActiveCell.Address = "$C$7" Then
    ActiveCell.Offset(3, 0).Select
    Exit Sub
    End If
    If ActiveCell.Address = "$C$10" Then
    ActiveCell.Offset(0, 2).Select
    Exit Sub
    End If
    If ActiveCell.Address = "$E$10" Then
    ActiveCell.Offset(3, -2).Select
    Exit Sub
    End If
    If ActiveCell.Address = "$C$13" Then
    ActiveCell.Offset(0, 2).Select
    Exit Sub
    End If
    If ActiveCell.Address = "$E$13" Then
    ActiveCell.Offset(3, -2).Select
    Exit Sub
    End If
    If ActiveCell.Address = "$C$16" Then
    ActiveCell.Offset(-12, 2).Select
    Exit Sub
    End If
    If ActiveCell.Address = "$G$4" Then
    ActiveCell.Offset(3, 0).Select
    Exit Sub
    End If
    If ActiveCell.Address = "$G$7" Then
    ActiveCell.Offset(3, 0).Select
    Exit Sub
    End If
    If ActiveCell.Address = "$G$10" Then
    ActiveCell.Offset(3, 0).Select
    Exit Sub
    End If
    If ActiveCell.Address = "$G$13" Then
    ActiveCell.Offset(3, 0).Select
    Exit Sub
    End If
End Sub

Ahora, en los eventos de Thisworkbook agrega este código:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Por.Dante Amor
    If Sh.Name = "Ingreso" Then
        Call tecla
    Else
        Call tecla2
    End If
End Sub
Respuesta
1

Coloca al principio de las macros esta instrucción:

If ActiveSheet.Name <> "Ingreso" Then Exit Sub

Esto hace que cuando se vayan a ejecutar estas macros, si la hoja activa, no es Ingreso, sale de la macro y no hace nada.

Si te ha valido la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Código para pasar de una celda a otra con un ENTER o retroceder a la celda anterior con TAB

Ok, como dice la pregunta en el encabezado esto es lo que tengo... Estas son las celdas de captura (B1, C2, D3) ejemplo: .........A................B.............C................D...... 1 NOMBRE:...LUIS 2 ... COLOR:...ROJO 3 ... ... PUNTOS:...78 Lo...
1 respuesta

Manejo de la tecla Intro

Tengo una hoja de Excel, que esta dividida en varias columnas, y dentro de las mismas hay celdas. Dentro de cada columna, me muevo por sus celdas con las teclas de dirección, pero cuando le doy a Intro se va para abajo, lo que quiero es que vaya el...
1 respuesta

Corregir macro para que pegue los datos modificados en base de datos.

He tratado de buscarle el simple error a esta macro pero solo con el apoyo de expertos lograré la solución. Es una agenda de nombres y datos generales por municipio; uno en cada hoja. Con el CmdBtn1, ingresa perfectamente los datos y ordena por...
1 respuesta

Como pasar los datos repetidos de una hoja a otra

Quisiera me ayudaran con esto: El problema es que no se como hacer para que los datos repetidos en una hoja los pueda pasar a otra mediante una macro de excel lo que quiero hacer es lo siguiente: tengo una hoja1 en donde tengo un concentrado de...
1 respuesta

Permitir solo determinado formato en celdas

Solicitando nuevamente te ayuda. Como podría hacer para que en una hoja de Excel llamada Datos, la columna A (Consecutivo) acepte solo números; la columna B (Descripción) acepte solo texto y por ultimo la columna C (Fecha) solo fechas. Ademas si al...
1 respuesta

Ayuda con código visual basic (userform)

Gracias por tomarse la molestia de leer mi duda pero ya llevo días y no consigo hacer que funcione. Tengo una hoja en excel 2010 llamada "Captura" con columnas desde "A" hasta "-k-" y las filas son variables debido a que van aumentando conforme se...
1 respuesta

Hacer una macro para conparar 2 columnas en excel

Necesito crear una macro que me compare los registros existentes en dos columnas diferentes, es decir, cuando se ejecute la macro debe de compararse los valores de una columna con los valores de la otra. La verdad es que llevo detrás de ellos un...
1 respuesta

Encontrar la siguiente celda llena para usar el dato en una formula

Tengo dos columnas. Columna i y la columna M En ellas tengo la mayoría de celdas vacías,. Lo que necesito es : Si en i hay un dato que me busque el dato de la siguiente fila de la columna M, para poder hacer un calculo. Ejemplo. A ................I...
1 respuesta