Ayuda con un Macro que cuando de ClicK en una celda, estas cambie su texto de NO a SI y viceversa
Necesito un macro que haga lo siguiente:
Cuando de un click en una celda especifica esta cambio el texto de NO a SI y viceversa
1 Respuesta
Respuesta de Luis Mondelo
1
Te mando mi solución con esta macro-evento que tienes que copiar en el objeto hoja que estás tratando (no en un módulo)
En mi ejemplo estoy usando la celda A1 para hacer ese cambio
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then If UCase(Target.Value) = "SI" Then Target.Value = "NO" Else Target.Value = "SI" End If End If End Sub
recuerda finalizar
Perfecto, funciona excelente, ahora si no es mucha molestia, como le haría, si en ves de la celda A1, fuera desde A1 hasta A18, osea un rango, el cual en cada celda necesito que cuando de un clic salga si o no
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If not intersect(Target, range("a1:a18")) is nothing Then
If UCase(Target.Value) = "SI" Then
Target.Value = "NO"
Else
Target.Value = "SI"
End If
End If
End Sub
