I have this code to achieve coloring based on cell value (Input picture). But next I want to achieve what shown in (Output) picture using Macro code in excel. Can someone help me write the code for it?
If LOG STATUS = "PENDING LAST PART FROM MFG" THEN It should fill MFG COLUMN CELLS with same color
If LOG STATUS = "PENDING PACKING" THEN It should fill MFG COLUMN CELLS with same color as log status
If LOG STATUS = "SCHEDULE FOR PU" THEN It should fill SCHEDULE PU DATE COLUMN CELLS with same color as log status for those rows.
Sub TEST()
' Formatting "pending 1st PART"
Columns("N:N").Select
Selection.FormatConditions.Add Type:=xlTextString, String:= _
"PENDING 1ST PART FROM MFG", TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
' Formatting "Pending last PART"
Columns("N:N").Select
Selection.FormatConditions.Add Type:=xlTextString, String:= _
"PENDING LAST PART FROM MFG", TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
' Formatting "Pending PACKING"
Columns("N:N").Select
Selection.FormatConditions.Add Type:=xlTextString, String:= _
"PENDING PACKING", TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 65280
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
' Formatting "PENDING PU REQUEST"
Columns("N:N").Select
Selection.FormatConditions.Add Type:=xlTextString, String:= _
"PENDING PU REQUEST", TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
' Formatting "Pending FF"
Columns("N:N").Select
Selection.FormatConditions.Add Type:=xlTextString, String:= _
"PENDING FF", TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 39423
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
' Formatting "SCHEDULED FOR PU"
Columns("N:N").Select
Selection.FormatConditions.Add Type:=xlTextString, String:= _
"SCHEDULED FOR PU", TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 16776960
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
Input
Output
Related
I'm trying to turn any cell that matches a preset value to a color.
If cells values are:
S-DAYS, C-DAYS, DAYS it will turn the cell BLUE with black text
E SWING, S-E SWING, C-E SWING it will turn Green with black text
L SWING, S-L SWING, C-L SWING it will turn Light Purple with black text
LATES, S-LATES, C-LATES it will turn Gray with black text
AOT will turn Yellow with black text
VAC, OUT, MIL, TRAIN it will turn the cell BLACK with White Text
I recorded the following. How do I to make it apply automatically to the sheet without needing to be prompted?
Sub DAConditionalFormating()
'
' DAConditionalFormating Macro
'
'
Range("D14:XFD999").Select
Selection.FormatConditions.Add Type:=xlTextString, String:="DAYS", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 15773696
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlTextString, String:="E SWING", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlTextString, String:="LATES", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.249946592608417
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlTextString, String:="VAC", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
Applying conditional formatting to a whole sheet is a really, really bad idea. The calculation will kick in every time you edit ANY cell in sheet.
Instead of conditional formatting the whole sheet, use code to format only the cell that was just changed. Format the cell fill and the font.
Run this code in a Worksheet_Change event in the Sheet module and let it work on the target cell. Then it will run fast and change only the cell that was just changed.
Something like this. Add more ElseIF as required. The code goes into the Sheet module of the sheet.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "foo" Then
With Target.Interior
.PatternColorIndex = xlAutomatic
.Color = 15773696
.TintAndShade = 0
End With
ElseIf Target.Value = "bar" Then
With Target.Interior
.PatternColorIndex = xlAutomatic
.Color = 5296274
.TintAndShade = 0
End With
End If
End Sub
I have a macro which applies conditional formatting to a row which highlights specific values
I was wondering if there was a way to apply it to multiple rows (I want it to run from rows 18-79)
As you can see from my code below, the function has to be adjusted for each row individually (I have done 3).
I was wondering if there was an easier way to apply this rather than repeat and adjust for all the rows I need.
Sub Highlight()
'
' Highlight good values
Application.ScreenUpdating = False
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Activate
Rows("18:18").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="=$C$18", Formula2:="=$D$18"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16752384
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13561798
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Rows("19:19").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="=$C$19", Formula2:="=$D$19"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16752384
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13561798
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Rows("20:20").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="=$C$20", Formula2:="=$D$20"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16752384
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13561798
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Next ws
Application.ScreenUpdating = True
End Sub
change the range to include it all:
With ActiveSheet.Rows("18:79")
.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="=$C18", Formula2:="=$D18"
.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Font
.Color = -16752384
.TintAndShade = 0
End With
With .FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13561798
.TintAndShade = 0
End With
.FormatConditions(1).StopIfTrue = False
End With
I have the below code: this only fills rows in column a, I would like all columns to be filled.
Sheets("Schedule").Cells.Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=m1=""Part"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.399945066682943
End With
I have made it select all cells to get around this but it hasn't worked
Your formula in
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=M1=""Part"""
is not correct. Just use
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$M1=""Part"""
instead and it will work.
Note:
The difference here is the $ infront of the M which assures that the column is fixed but the row 1 is not and can iterate.
And I recommend not to use .Select and Selection. at all (this is bad practices and they should always be avoided).
Your code can be improved like this:
With Sheets("Schedule").Cells
.FormatConditions.Add Type:=xlExpression, Formula1:="=$M1=""Part"""
.FormatConditions(.FormatConditions.Count).SetFirstPriority
With .FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.399945066682943
End With
End With
If you want all cells in sheet to turn blue when they have word "Part". then you should use this code.
Sheets("Schedule").Cells.Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=A1=""Part"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.399945066682943
End With
in case you want conditional to start at "M" column, you should use this line Sheets("Schedule").range("M:AAA").select instead of Sheets("Schedule").Cells.Select.
I have a question:
I'm trying to make two different conditional formatting at once.
But it works only the second one.
Im using if and Elseif, and working only endif
What i have to write to get work them both? First one after that another?
For Each cell In Range("A1:AA1")
If cell.Value = "GM WP6 Sensor Status" Then
Cells.FormatConditions.Delete
Columns("H:H").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _
Formula1:="=32671"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
'Selection.FormatConditions(1).StopIfTrue = False
Columns("H:H").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=LEN(TRIM(H1))=0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.Pattern = xlNone
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("A1").Select
''''''''''''''''''''''''''Tikrina kita
ElseIf cell.Value = "GM WP6 Sensor Status light" Then
Cells.FormatConditions.Delete
Columns("I:I").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _
Formula1:="=32767"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Columns("I:I").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=LEN(TRIM(I1))=0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.Pattern = xlNone
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("A1").Select
End If
Next cell
Please give this a try...
Sub ConditionalFormatting()
Columns("H:H").FormatConditions.Delete
Columns("I:I").FormatConditions.Delete
If Application.CountIf(Range("A1:AA1"), "GM WP6 Sensor Status") > 0 Then
Columns("H:H").FormatConditions.Add Type:=xlExpression, Formula1:= _
"=AND(LEN(TRIM(H1))>0,H1<>32671)"
Columns("H:H").FormatConditions(Columns("H:H").FormatConditions.Count).SetFirstPriority
With Columns("H:H").FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
End If
If Application.CountIf(Range("A1:AA1"), "GM WP6 Sensor Status light") > 0 Then
Columns("I:I").FormatConditions.Add Type:=xlExpression, Formula1:= _
"=AND(LEN(TRIM(I1))>0,I1<>32671)"
Columns("I:I").FormatConditions(Columns("I:I").FormatConditions.Count).SetFirstPriority
With Columns("I:I").FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
End With
End If
End Sub
I'm doing conditional formatting in a macro (because I'm constantly applying it along with other formatting repeatedly to a fresh, raw export).
Objective: highlight any row where the text in cell J(n) is "No Activity"
Currently using:
With Cells
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=($J1=""No Activity"")"
With .FormatConditions(.FormatConditions.Count)
.SetFirstPriority
With .Interior
.PatternColorIndex = xlAutomatic
.Color = 7405514
.TintAndShade = 0
End With
StopIfTrue = False
End With
End With
...which works great. The above was cleaned up using a google search and a recording that originally gave me:
Cells.Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=($N1=""No Activity"")"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent4
.TintAndShade = 0.599963377788629
End With
Selection.FormatConditions(1).StopIfTrue = False
So I was feeling all proud and accomplished... but I also want to highlight rows (in a different color) where the cell in Column J (per above) contains "Quote" at any point in the text of the cell.
When I recorded a macro of doing it as conditional formatting, it didn't really clarify anything for me: (ok, it made it worse)
Selection.FormatConditions.Add Type:=xlTextString, String:="Quote", _
TextOperator:=xlContains
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.399945066682943
End With
Selection.FormatConditions(1).StopIfTrue = False
I'm just not catching how it should change in
Type:=xlExpression, Formula1:= _
"=($J1=""No Activity"")"
All ideas greatly appreciated!
This works in Excel 2010:
With Cells
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=($J1=""No Activity"")"
With .FormatConditions(.FormatConditions.Count)
.SetFirstPriority
With .Interior
.PatternColorIndex = xlAutomatic
.Color = 7405514
.TintAndShade = 0
End With
StopIfTrue = False
End With
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ISNUMBER(SEARCH(""*quote*"",$J1))"
With .FormatConditions(.FormatConditions.Count)
.SetFirstPriority
With .Interior
.PatternColorIndex = xlAutomatic
.Color = 4405514
.TintAndShade = 0
End With
StopIfTrue = False
End With
End With
Obviously you'd need to change the Color for the 2nd FormatConditions.Add section.
Edit: Realized you were looking for "Quote" anywhere in the cell, so I've updated the code from my original posting.