............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Correccion a Macro - Se desabilita Copy/Paste y no ejecuta correctamente

Ver el tema anterior Ver el tema siguiente Ir abajo

Correccion a Macro - Se desabilita Copy/Paste y no ejecuta correctamente

Mensaje por yizuss123 el Lun Mar 04, 2013 10:36 am

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
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
Archivos
Ayuda con codigo VBA.zip No tienes los permisos para descargar los archivos.(19 KB) Descargado 7 veces

yizuss123

Masculino Cantidad de envíos : 5
Edad : 31
Ciudad - Pais : Lima - Peru
Version de Excel : 2007
Fecha de inscripción : 04/03/2013

Volver arriba Ir abajo

Re: Correccion a Macro - Se desabilita Copy/Paste y no ejecuta correctamente

Mensaje por HBanchieri el Sáb Mar 09, 2013 11:53 pm

Hola,

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

Quiza cambiando el evento de Worksheet_Change a worksheet_selectionchange lograria lo que quiers.

Consulta 2: Habria forma de habilitar las opciones de copiar / cortar / pegar dentro de esta Hoja

Como opcion podria usar:

Range("B6").Copy Destination:=Range("D6")

Si lo va hacer dentro de la macro.

Saludos

HBanchieri

Masculino Cantidad de envíos : 16
Edad : 53
Ciudad - Pais : Santa Cruz - Bolivia
Version de Excel : 2010
Fecha de inscripción : 07/05/2011

Volver arriba Ir abajo

Re: Correccion a Macro - Se desabilita Copy/Paste y no ejecuta correctamente

Mensaje por yizuss123 el Lun Mar 11, 2013 11:21 am

gracias por tu respuesta....
he realizado lo que indicas.... para la consulta 1... no ha resultado.. el problema persiste...
y para la consulta 2.... la idea es habilitar a lo largo de toda la hoja (en cualquier celda)... poder tener habilitado la opcion del copy /paste.... entiendo que se deberia modificar la macro propiamente para poder habilitar dicha opcion...

Por favor... tu apoyo para solucionar este tema... muchas gracias...

yizuss123

Masculino Cantidad de envíos : 5
Edad : 31
Ciudad - Pais : Lima - Peru
Version de Excel : 2007
Fecha de inscripción : 04/03/2013

Volver arriba Ir abajo

Re: Correccion a Macro - Se desabilita Copy/Paste y no ejecuta correctamente

Mensaje por HBanchieri el Mar Mar 12, 2013 1:10 am

Si es que comprendo bien su requerimiento mi indicación si funciona.
Lo que pasa es que tienes que elegir entre uno de los dos eventos para que funcionarán en la hoja.

Si no es esto entonces por favor acláreme mejor lo que necesitas.

Saludos
Archivos
Ayuda con codigo VBA.xlsm No tienes los permisos para descargar los archivos.(21 KB) Descargado 3 veces

HBanchieri

Masculino Cantidad de envíos : 16
Edad : 53
Ciudad - Pais : Santa Cruz - Bolivia
Version de Excel : 2010
Fecha de inscripción : 07/05/2011

Volver arriba Ir abajo

Re: Correccion a Macro - Se desabilita Copy/Paste y no ejecuta correctamente

Mensaje por yizuss123 el Mar Mar 12, 2013 1:16 pm

por la consulta n° 2 ya esta solucionado....
Si, por la consulta n° 1, detallo con mas ejemplo la consulta... en el excel adjunto...

Desde ya gracias por tu respuesta...
Yizuss
Archivos
Ayuda_con_codigo_VBA.xlsm No tienes los permisos para descargar los archivos.(19 KB) Descargado 5 veces

yizuss123

Masculino Cantidad de envíos : 5
Edad : 31
Ciudad - Pais : Lima - Peru
Version de Excel : 2007
Fecha de inscripción : 04/03/2013

Volver arriba Ir abajo

Re: Correccion a Macro - Se desabilita Copy/Paste y no ejecuta correctamente

Mensaje por HBanchieri el Mar Mar 12, 2013 11:40 pm

Estimado yizuss123.

Te mando dos opciones:

Opción 1.- Muestra el mensaje cada vez que cambie el valor de una de las celdas del rango, no importa si utiliza "enter" o se utiliza "los botones de desplazamiento del teclado"

Código:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect([U3:AA4], Target) Is Nothing Then Exit Sub
MsgBox ("Revisar la propuesta de compra")
End Sub

Opción 2.- Muestra el mensaje cada vez que seleccione una de las celdas del rango, no importa si utiliza "enter" o se utiliza "los botones de desplazamiento del teclado"

Código:
Sub worksheet_selectionchange(ByVal Target As Range)
If Intersect([U3:AA4], Target) Is Nothing Then Exit Sub
MsgBox ("Revisar la propuesta de compra")
End Sub


Elija la opción que mas te guste y pegue el código en la hoja de módulo de la "Hoja(1)"

Espero que una de las dos te sirva.

Saludos.

HBanchieri

Masculino Cantidad de envíos : 16
Edad : 53
Ciudad - Pais : Santa Cruz - Bolivia
Version de Excel : 2010
Fecha de inscripción : 07/05/2011

Volver arriba Ir abajo

Re: Correccion a Macro - Se desabilita Copy/Paste y no ejecuta correctamente

Mensaje por yizuss123 el Lun Mar 18, 2013 12:01 pm

Gracias... sería la opcion n°1 que mencionas...
puedes ayudarme en colocarlo en el código .... ya que cuando lo intento me sale mensaje de error.
Muchas gracias por ayudarme.

Código:
Option Explicit
Private Sub Worksheet_SelectionChange(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
Archivos
Ayuda_con_codigo_VBA.xlsm No tienes los permisos para descargar los archivos.(19 KB) Descargado 4 veces

yizuss123

Masculino Cantidad de envíos : 5
Edad : 31
Ciudad - Pais : Lima - Peru
Version de Excel : 2007
Fecha de inscripción : 04/03/2013

Volver arriba Ir abajo

Re: Correccion a Macro - Se desabilita Copy/Paste y no ejecuta correctamente

Mensaje por HBanchieri el Lun Mar 18, 2013 12:35 pm

Nada mas que copiar y pegar.
Claro que abría que borrar la otra macro que esta en la hoja.

Saludos
Archivos
Ayuda_con_codigo_VBA (1).xlsm No tienes los permisos para descargar los archivos.(19 KB) Descargado 2 veces

HBanchieri

Masculino Cantidad de envíos : 16
Edad : 53
Ciudad - Pais : Santa Cruz - Bolivia
Version de Excel : 2010
Fecha de inscripción : 07/05/2011

Volver arriba Ir abajo

Re: Correccion a Macro - Se desabilita Copy/Paste y no ejecuta correctamente

Mensaje por yizuss123 el Lun Mar 18, 2013 12:45 pm

okis... pero las premisas (Alertas) de la macro anterior desaparecen :-(

Las alertas me refiero a:
"Revisar propuesta y Cobertura mayor a 2 meses"
"Revisar la propuesta de compra"
"Cobertura > 2 meses por stock observado"

creo q la idea seria adicionar o completar la macro => opcion 2 (nueva macro q enviaste) a la macro del excel....

por favor... ya estamos cerca para concluir esta macro.. muchas gracias por el apoyo

yizuss123

Masculino Cantidad de envíos : 5
Edad : 31
Ciudad - Pais : Lima - Peru
Version de Excel : 2007
Fecha de inscripción : 04/03/2013

Volver arriba Ir abajo

Re: Correccion a Macro - Se desabilita Copy/Paste y no ejecuta correctamente

Mensaje por HBanchieri el Mar Mar 19, 2013 12:28 am

Se me hizo un poco tarde, mañana la reviso y veo si puedo hacer lo que pides.

Saludos

HBanchieri

Masculino Cantidad de envíos : 16
Edad : 53
Ciudad - Pais : Santa Cruz - Bolivia
Version de Excel : 2010
Fecha de inscripción : 07/05/2011

Volver arriba Ir abajo

Re: Correccion a Macro - Se desabilita Copy/Paste y no ejecuta correctamente

Mensaje por HBanchieri el Mar Mar 19, 2013 12:01 pm

Hola

Note en la propia macro que puedes ir aumentando las condiciones y las respuestas que desee.
IMPORTANTE: Para cada condición y su respuesta que aumente tiene que aumentar también un "END IF" abajo

Si desea puedes poner una respuesta si no cumpla ninguna condición, le puse y la des habilite con un " ' "

Un detalle: en la macro las dos condiciones son las mismas (así las tenia en su macro) pero las dos respuestas son diferentes un de la otra.
Me parece que hay que cambiar alguna y tienes que ser tu ya que desconozco los verdaderos criterios del porque de los mensajes.

Comentas....

Saludos
Archivos
Ayuda_con_codigo_VBA (3).xlsm No tienes los permisos para descargar los archivos.(21 KB) Descargado 5 veces

HBanchieri

Masculino Cantidad de envíos : 16
Edad : 53
Ciudad - Pais : Santa Cruz - Bolivia
Version de Excel : 2010
Fecha de inscripción : 07/05/2011

Volver arriba Ir abajo

Re: Correccion a Macro - Se desabilita Copy/Paste y no ejecuta correctamente

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.