Macro que se ejecute solo al presionar la tecla ENTER

Tengo un codigo el cual quisiera que

Se ejecute solomente al darle a la tecla ENTER (no al presionar cualquier tecla)

Mi macro consiste en que si en B54 hay una cantidad mayor a 0 este se ejecuta...

Entonces quisiera que al poner una cantidad mayor a 0 entonces solo entonces al dar ENTER este se ejecute mi codigo...

1 respuesta

Respuesta
3

Este tipo de macros se coloca en el evento Worksheet_Change de la hoja en cuestión.

Por ej:

Private Sub Worksheet_Change(ByVal Target As Range)
'x Elsamatilde

'se ejecuta al ingresar un dato en C10
If Target.Address <> "$B$54" Then Exit Sub
If Target.Value > 0 Then Call miMacro
End Sub

Luego tendrás en un módulo esta otra:
Sub miMacro()
MsgBox "Hola Jairo"
End Sub

También podrías agregar las instrucciones directamente en el evento Change, en lugar de llamar a otra macro, pero todo dependerá de lo que necesite realizar.

Sdos.

Elsa

500Macros

¡Gracias! Ok yo lo adapto según tu sugerencia gracias elsa

Saludos

hola elsa... checando el codigo al poner alguna cantidad en B54 y mover con las flechitas este me llama la macro... y no deberia...

espero me ayudes 

Claro, porque el cambio se da de todos modos en la celda.

Si quieres que solo en ciertas ocasiones te evalúe el cambio habrá que buscar otra opción... dejame que lo revise.

Sdos!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro lenta en la ejecución calculando celdas

Tengo esto en la hoja : Private Sub Worksheet_Activate() ActiveSheet.ScrollArea = "A1:Q6000" Call Celdas_oculta End Sub Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Column = 4 Then If Cells(Target.Row, "B") = "" Then...
2 respuestas

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

MACRO que me remplace la formula de =

Tengo una hoja1 que en la celda B1 tengo que anotar un numero y ese numero quiero que me se vea reflejado en la hoja2 en la celda c10 Actualmente lo tengo en fórmula utilizando en la hoja2 el sig = Lo que necesito es que la fórmula sea remplazada por...
2 respuestas

Cambiar indistintamente el valor que comparten dos celdas ( II)

Lamentablemente la solución que me dió Elsa no me vale del todo: Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Range("B" & Target.Row) = Target.Value ElseIf Not...
1 respuesta

Completar macro para sombrear celdas según el valor de otras celdas.

Tengo la siguiente macro. Funciona bien, pero necesito que haga mas cosas que no consigo. Si en el rango ("B19:AR367") se escribe una de estas iniciales: "V", "L", "S", "AP", "FJ", "VP" Pintará esa celda según los siguientes criterio: Si en rango (A,...
2 respuestas

Vba excel que multiplica al cumplirse dos condición en dos rango celda de una hoja

Como creo un código en una hoja llamada "registro de salida" B13=B11*B12 cuando B11 Y B12 sean diferente a celda vacía es decir mientras B11 Y B12 tengan valor numérico se multipliquen ambas y el resultado se muestre en la celda B13
1 respuesta

¿Cómo puedo ajustar una imagen automáticamente en un control ActiveX de imagen?

Tengo una hoja de excel en la que agregue el siguiente código: Private Sub Image1_Click() End Sub Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo final If Target.Address = "$A$1" Then nombre = Target.Value ActiveSheet.Image1.Picture...
2 respuestas

Quiero crear un macro que al introducir un dato en una celda de excel, bloque una celda contigua

Quiero crear un macro que al introducir un dato en una celda de excel, bloque una celda contigua, es decir si yo introduzco una serie de datos en una celda, desencadenen una macro que bloquee la celda contigua sin necesidad de utilizar ningún método...
1 respuesta

¿Cómo hacer que se ejecute una macro al presionar la tecla "Enter" en una celda determinada?

Cómo puedo hacer para que en una celda, por ejemplo D4, al momento de escribir cualquier texto o número y se presione la tecla "ENTER", ¿Ejecute una macro que tengo?.
1 respuesta

Llamar macro con valores de celda

Tengo el siguiente código que ejecuta una macro al cambiar el volor de una celda en un derterminado rango: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("k5:k300")) Is Nothing Then Exit Sub End If ' If Target >= 0...
1 respuesta