Excel - Ejecutar Macro

 
Vista:
sin imagen de perfil

Ejecutar Macro

Publicado por Dario (92 intervenciones) el 02/02/2014 19:23:15
Tengo una planilla en la cual se debe completar con datos personales y al final ejecutar una macro.
Ejemplo en la columna "A1" = "Nombre"; "A2" = "Apellido"; "A3" = "Edad"; y en la columna "B" debo completar los datos que se me piden en la columna "A"; por ultimo he insertado un "Rectangulo" al cual le asigne una "Macro".
Los pasos serian completar B1; luego bajar a B2 con la tecla Enter (Intro) y completar y asi hasta B3.
Lo que quisiera ver si es que se puede: Luego de completar con los datos en B3, con la tecla Enter (Intro) pasar directamente al Rectangulo pasa asi ejecutar la macro con la tecla Enter para no tener que estar usando el mouse.
A modo ilustrativo seria algo así como el siguiente ejemplo:

A B
1 Nombre .......................
2 Apellido .......................
3 Edad .......................
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

Ejecutar Macro

Publicado por JuanC (1237 intervenciones) el 03/02/2014 14:54:05
lo veo difícil con un rectángulo... mejor probá con un botón...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub macro()
MsgBox 1
End Sub
 
Private Sub CommandButton1_Click()
Call macro
End Sub
 
Private Sub CommandButton1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = VBA.KeyCodeConstants.vbKeyReturn Then
   Call macro
End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0) = "B4" Then
   CommandButton1.Activate
End If
End Sub

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar