Macro para pintar celdas en blanco y repetidos
Buenos días
Me gustaría que por favor me colaboraran con una macro que me pinte las celdas en blanco deuna columna pero que yo le pueda ajustarel rango por medio de un
input box o lago paresido si se pùede y otra macro que mepinte losrepetidos garcias de ante mano
Me gustaría que por favor me colaboraran con una macro que me pinte las celdas en blanco deuna columna pero que yo le pueda ajustarel rango por medio de un
input box o lago paresido si se pùede y otra macro que mepinte losrepetidos garcias de ante mano
1 respuesta
Respuesta de edwinhenao
1
La primera macro es sencilla, la segunda se me ocuure hacerlo con formato condicional para facilitar la macro. Puedes utilizar las siguientes macros...
...
Sub PintarDeBlanco()
Rango = InputBox("Ingrese el rango")
Range(Rango).Select
Selection.Interior.PatternColorIndex = xlAutomatic
End Sub
'........................................
Sub ColorearValoresDuplicados()
Rango = InputBox("Ingrese el rango")
Range(Rango).Select
Selection.FormatConditions.AddUniqueValues
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).DupeUnique = xlDuplicate
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
Éxitos.
...
Sub PintarDeBlanco()
Rango = InputBox("Ingrese el rango")
Range(Rango).Select
Selection.Interior.PatternColorIndex = xlAutomatic
End Sub
'........................................
Sub ColorearValoresDuplicados()
Rango = InputBox("Ingrese el rango")
Range(Rango).Select
Selection.FormatConditions.AddUniqueValues
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).DupeUnique = xlDuplicate
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
Éxitos.
