Macro Query

Cotta

Hi All,


I am building some macros to automate tasks I perform on Excel.


I currently need to sort column A and any column with the word "Restricted" within it should be highlight red. I am able to perform this on the current dataset as when mapping out the process I highlighted all such cells. However this leaves the code looking for a specific number of rows rather than what is in the cells.


Is it possible to do this based on what the value of column A is?

grumbler

Why a macro, not a conditional formatting?

Le_Kirk

Why do you need to SORT items in one column? Do you need to order them from top to bottom in alphabetical order? Or do you just want to highlight any cell in range containing the value "restricted"? As suggested by grumbler, just use conditional formatting. Do you mean Macro or do you want to write some vba code? If the latter, I have always found the following site Excellent. See what I did there?
http://www.mrexcel.com/forum/excel-questions/604428-how-sort-data-columns-visual-basic-applications-instead-excels-sort-function.html

hawkeye9999

Try


Sub Macro3()
'
' Macro3 Macro
'

'
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""restricted"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
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