¿Cómo puedo programar un rango de celdas mutuamente excluyentes por renglón?
Tengo un rango de celdas de cinco columnas y "n" filas, necesito que al escribir un numero debajo de los encabezados de la fila 4, sea el único en la línea de 5 celdas, de manera que si escribo un segúndo numero en la misma fila, el número anterior sea borrado y permanezca únicamnete el último, de esta manera siempre habrá uno y solo un número por línea de 5 celdas.
Respuesta de Dante Amor
1
Pon el siguiente código en los eventos de tu hoja:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, c As Range, p As Variant
'
Set rng = Intersect(Target, Range("A5:E" & Rows.Count))
If Not rng Is Nothing Then
For Each c In rng
p = c.Value
If c.Value <> "" Then
Application.EnableEvents = False
Range("A" & c.Row & ":E" & c.Row).ClearContents
c.Value = p
Application.EnableEvents = True
End If
Next
End If
End SubSigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
- En el panel del lado derecho copia la macro
¡Gracias!
Funciona muy bien, solo ha requerido el ajuste al rango de celdas relacionadas.
Ah cierto, es de la columna C a la G.
Me alegra saber que funciona para ti. Gra cias por comentar.
