Clases
1: Instrucción Select...Case para múltiples condiciones
2: Introducción a los Bucles en VBA: Bucle For...Next
3: Bucle For Each...Next para recorrer objetos de una colección
4: Bucle Do...While. Ejecutar mientras se cumple una condición
5: Bucle Do...Until . Ejecutar hasta que se cumpla una condición
6: Implementar un Controlador de errores
7: Procedimientos Sub públicos, privados y cómo ejecutarlos
8: Práctica: Agrupar tablas de varias hojas en una sola
9: Macro optimizada: Agrupar tablas de varias hojas en una sola
10: Funciones definidas por el usuario (UDF)
11: Funciones VBA para manejo de textos
12: Funciones VBA para manejo de Fecha y Hora
13: Funciones VBA de conversión, formato y evaluación
14: Usar Fórmulas y funciones de Excel desde VBA
15: Introducción a los Eventos en VBA y Eventos de libro
16: Introducción a los Eventos en VBA y Eventos de hoja
17: Eventos de Aplicación y eventos no asociados a objetos
Worksheet_BeforeDoubleClick: Intercalar entre Terminado y Pendiente
Participaciones
VíctorManuelSantosMaldonado635 hace 1 mes
En el ejercicio, si ya dice completo y se le da doble clic, regresa a pendiente y creo que ese no es el objetivo. Si ya está completo y se le da doble clic, debeía no hacer nada, ¿Correcto?
↳ Responder
JuliaBravo490 hace 9 meses
En realidad, el comportamiento de la macro depende del criterio del usuario. Tal como está escrita, permite cambiar entre "Pendiente" y "Completo" con cada doble clic, lo cual puede ser útil si el usuario necesita corregir un estado por error o actualizarlo fácilmente.
Pero si se quiere evitar que una vez marcado como "Completo" se modifique, también se puede ajustar la lógica para que quede bloqueado.
En resumen: ambas opciones son válidas, solo hay que definir qué comportamiento se espera. ¡Gracias por observarlo! Esa mirada crítica enriquece mucho el aprendizaje.
0
OsmaniPititi hace 1 mes
Buenas Tardes
Este codigo se ajusta a lo que usted refiere. Tambien se podria agregar un mensaje para preguntar al usuario si quiere aplicar el cambio de pendiente a completo y bloquear la celda, o colocar completo y no bloquearla
Dim Rango As Range
Set Rango = Me.Range("D5:D14")
If Not Intersect(Target, Rango) Is Nothing Then
Cancel = True
With Target
If .Value = "Pendiente" Then
.Value = "Completo"
.Interior.Color = RGB(0, 176, 80)
.Font.Color = RGB(255, 255, 255)
.Locked = True
ElseIf .Value = "" Then
.Value = "Pendiente"
.Interior.Color = RGB(255, 192, 0)
.Font.Color = RGB(0, 0, 0)
Else
.Locked = True
End If
End With
End If
Este codigo se ajusta a lo que usted refiere. Tambien se podria agregar un mensaje para preguntar al usuario si quiere aplicar el cambio de pendiente a completo y bloquear la celda, o colocar completo y no bloquearla
Dim Rango As Range
Set Rango = Me.Range("D5:D14")
If Not Intersect(Target, Rango) Is Nothing Then
Cancel = True
With Target
If .Value = "Pendiente" Then
.Value = "Completo"
.Interior.Color = RGB(0, 176, 80)
.Font.Color = RGB(255, 255, 255)
.Locked = True
ElseIf .Value = "" Then
.Value = "Pendiente"
.Interior.Color = RGB(255, 192, 0)
.Font.Color = RGB(0, 0, 0)
Else
.Locked = True
End If
End With
End If
0
Estás agregando un comentario en esta clase
Inicia sesión para dejar tu duda, comentario y/o respuesta