Correccion a Macro - Se desabilita Copy/Paste y no ejecuta correctamente
publicado
Hola a todos,
Me gustaria que me puedan ayudar con las consultas en el siguiente archivo.
1. Las celdas de color amarillo se activan al colocar un valor y seguidamente se da ENTER (Ejemplo: Cuando W4 = 50) => CASO 1
2. Sin embargo, cuando se coloca cuando W4 =50 y seguidamente se utiliza los botones de desplazamiento del teclado, la macro no se activa => CASO 2
Consulta 1: Habria forma de activar la macro cuando se utilice los botones de desplazamiento en vez del ENTER (CASO 2), ya que ambos casos son validos para ejecutar la macro
3. No se puede copiar ni pegar, cualquier valor dentro de la hoja, entiendo que la macro lo desabilita (Ejemplo: al seleccionar la celda B6 seguidamente copiar, esta se desactiva cuando me desplazo a otra celda)
Consulta 2: Habria forma de habilitar las opciones de copiar / cortar / pegar dentro de esta Hoja
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("U3:AA4")) Is Nothing Then
If ActiveCell.Value = "" Then Exit Sub
If ActiveCell.Value > ActiveCell.Offset(0, 8).Value Then
If Cells(ActiveCell.Row, 5).Value > 2 Then
MsgBox ("Revisar propuesta y Cobertura mayor a 2 meses")
Else
MsgBox ("Revisar la propuesta de compra")
End If
ElseIf Cells(ActiveCell.Row, 5).Value > 2 Then
MsgBox ("Cobertura > 2 meses por stock observado")
Else
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("U3:AA4")) Is Nothing Then
Hola a todos,
Me gustaria que me puedan ayudar con las consultas en el siguiente archivo.
1. Las celdas de color amarillo se activan al colocar un valor y seguidamente se da ENTER (Ejemplo: Cuando W4 = 50) => CASO 1
2. Sin embargo, cuando se coloca cuando W4 =50 y seguidamente se utiliza los botones de desplazamiento del teclado, la macro no se activa => CASO 2
Consulta 1: Habria forma de activar la macro cuando se utilice los botones de desplazamiento en vez del ENTER (CASO 2), ya que ambos casos son validos para ejecutar la macro
3. No se puede copiar ni pegar, cualquier valor dentro de la hoja, entiendo que la macro lo desabilita (Ejemplo: al seleccionar la celda B6 seguidamente copiar, esta se desactiva cuando me desplazo a otra celda)
Consulta 2: Habria forma de habilitar las opciones de copiar / cortar / pegar dentro de esta Hoja
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("U3:AA4")) Is Nothing Then
If ActiveCell.Value = "" Then Exit Sub
If ActiveCell.Value > ActiveCell.Offset(0, 8).Value Then
If Cells(ActiveCell.Row, 5).Value > 2 Then
MsgBox ("Revisar propuesta y Cobertura mayor a 2 meses")
Else
MsgBox ("Revisar la propuesta de compra")
End If
ElseIf Cells(ActiveCell.Row, 5).Value > 2 Then
MsgBox ("Cobertura > 2 meses por stock observado")
Else
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("U3:AA4")) Is Nothing Then
Application.MoveAfterReturn = False
Else
Application.MoveAfterReturn = True
End If
End Sub
Ayuda con codigo VBA.zip