Asignar un valor a una celda y a la vez colocar en cero a otra automáticamente.
Buenas tardes, tengo 4 celdas y quiero programarlas de manera que solo pueda colocar una valor en una de ellas no importa cual de las cuatro escoja, pero que las otras no escogidas se mantengan en cero.
1 respuesta
Respuesta de Luis Mondelo
1
Te mando mi solución, veamos mi ejemplo:
-Vamos a trabajar sobre el rango A1:D1.
-Tenemos que programar el evento change de la hoja en cuestión para que se "dispare" en el momento de tocar alguna de esas celdas. Para ello copia la siguiente macro dentro del objeto hoja que estamos tratando. Después vuelves a excel y teclea algún dato en alguna de las celdas del rango A1:D4. La macro se autoejecutará haciendo lo que solicitas.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a1:d1")) Is Nothing Then
ubica = Target.Address
Application.EnableEvents = False
For Each celda In Range("a1:d1")
If celda.Address <> ubica Then celda.Value = 0
Next
Application.EnableEvents = True
End If
End Subno olvides finalizar la consulta
