Especificar rango para ejecutar código
Te transcribo mi código:
Sub EstablecerColor()
If ActiveCell.Value = "X" Then
ActiveCell.Next.Interior.ColorIndex = 0
Else
ActiveCell.Next.Interior.ColorIndex = xlNone
If ActiveCell.Value = "" Then
ActiveCell.Next.Interior.ColorIndex = 6
End If
End If
End Sub
Lo que deseo es que solo se aplique al rango ("F6:F32") y que no funcione cuando edito otra celda.
Muchas Gracias por anticipado
enyale
Sub EstablecerColor()
If ActiveCell.Value = "X" Then
ActiveCell.Next.Interior.ColorIndex = 0
Else
ActiveCell.Next.Interior.ColorIndex = xlNone
If ActiveCell.Value = "" Then
ActiveCell.Next.Interior.ColorIndex = 6
End If
End If
End Sub
Lo que deseo es que solo se aplique al rango ("F6:F32") y que no funcione cuando edito otra celda.
Muchas Gracias por anticipado
enyale
1 respuesta
Respuesta de Cadipas spain
1
Añade este código a la hoja que quieras ejecutar la macro de establecercolor
Private Sub Worksheet_Change(ByVal Target As Range)
fila = Target.Row
Columna = Target.Column
Range(Target.Address).Activate
If Columna = 6 Then
If fila <= 32 And fila >= 6 Then EstablecerColor
End If
End Sub
Suerte
Private Sub Worksheet_Change(ByVal Target As Range)
fila = Target.Row
Columna = Target.Column
Range(Target.Address).Activate
If Columna = 6 Then
If fila <= 32 And fila >= 6 Then EstablecerColor
End If
End Sub
Suerte
Private Sub Worksheet_Change(ByVal Target As Range)
Range(Target.Address).Activate
If Target.Column = 6 Then
If Target.Row <= 32 And Target.Row >= 6 Then EstablecerColor
End If
End Sub
Mejor utiliza este otro, te he anulados dos variables y quitado dos lineas...
Range(Target.Address).Activate
If Target.Column = 6 Then
If Target.Row <= 32 And Target.Row >= 6 Then EstablecerColor
End If
End Sub
Mejor utiliza este otro, te he anulados dos variables y quitado dos lineas...
