Calculations Conditional Formatting Counting with VBA

How to perform calculations in a range of cells, do a conditional formatting and count the conditional formatted cells with VBA. Watch the training video:

Watch this video on YouTube.

Complete VBA code:

Sub calculations()
Dim cell As Range
Dim count As Long
count = 0
For Each cell In ActiveSheet.Range(“A2:A5”)
cell.Offset(0, 1).Value = cell.Value + cell.Value * 35 / 100
If cell.Offset(0, 1).Value >= 10 Then
cell.Offset(0, 1).Interior.Color = vbRed
count = count + 1
End If

Next cell

Range(“A6”).Value = Application.Sum(Range(“A2:A5”))
Range(“B6”).Value = Application.Sum(Range(“B2:B5”))
MsgBox “Number of values greater than 10 is ” & count
End Sub
Sub removeColor()
Dim cell As Range
For Each cell In ActiveSheet.Range(“B2:B5”)
cell.Interior.Color = vbWhite
Next cell
End Sub