Poner en color fila especifica al poner una POR en otra celda
Tengo una hoja la cual contiene 3 columnas
S T V con filas hasta la 7
Entonces quisiera que al poner una "X" en cuaquilera de las celdas de estas columnas, estas rellenen las filas a partir de la 7 de las columnas A y B en el color que tienen S7, T7 y v7
EJEMPLO:
Todo hasta las filas 935 de las columnas antes mencionadas
Y cuando ponen 2 x en la misma fila pero distinta columnas de S T V
Entonces un msgbox "no pueden tener 2 opciones de IVA"
Obviamente si le quitamos la "X" este regrese a su color original osea SIN RELLENO
1 respuesta
Respuesta de Dante Amor
3
H o l a:
Te anexo la macro para que la pongas en los eventos de tu hoja
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Not Intersect(Target, Range("S7:U935")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
cuenta = Application.CountA(Range("S" & Target.Row & ":u" & Target.Row))
If cuenta > 1 Then
MsgBox "No pueden tener 2 opciones de IVA", vbCritical
Target.Select
Application.EnableEvents = False
Target = ""
Application.EnableEvents = True
Exit Sub
End If
Range("A" & Target.Row & ":B" & Target.Row).Interior.Color = xlNone
If cuenta = 1 Then
wcol = Cells(6, Target.Column).Interior.Color
Range("A" & Target.Row & ":B" & Target.Row).Interior.Color = wcol
End If
End If
End SubS a l u d o s
