Cambiar formato de una celda al cambiarle su valor
Qué tal!
Tengo una hoja a la cual necesito que al irle cambiando el valor de cada celda, esta cambie el formato automáticamente, es decir, la finalidad es que se distinga la celda que le cambié el valor manualmente. Como es un tabla grande necesito una instrucción que abarque todas estas celdas, gracias de antemano.
Saludos.
Tengo una hoja a la cual necesito que al irle cambiando el valor de cada celda, esta cambie el formato automáticamente, es decir, la finalidad es que se distinga la celda que le cambié el valor manualmente. Como es un tabla grande necesito una instrucción que abarque todas estas celdas, gracias de antemano.
Saludos.
1 respuesta
Respuesta de Enrique Bernal
1
Lo que necesitas, lo puedes hacer con un controlador de cambios, es decir, cada vez que realices un cambio una macro puede actvar la celda en la que se hizo el cambio y en tu caso colorearla(ya que es lo que necesitas)
Este código debes pegarlo en el vba de la hoja de calculo, no en algún modulo:
Private Sub Worksheet_Change(ByVal Target As Range)
fila = Target.Row
columna = Target.Column
hoja = ActiveSheet.Name
Sheets(hoja).Cells(fila, columna).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
No, olvides finalizar la pregunta.
Este código debes pegarlo en el vba de la hoja de calculo, no en algún modulo:
Private Sub Worksheet_Change(ByVal Target As Range)
fila = Target.Row
columna = Target.Column
hoja = ActiveSheet.Name
Sheets(hoja).Cells(fila, columna).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
No, olvides finalizar la pregunta.
