Okay I am quite new to Microsoft VBA and I am trying to apply a code to a personal finance project.
This is my objective:
- If multiple cells exists within a range,
- then fill it with a particular colour and store the numeric values adjacent to it
- print the total value to say another cell say Cells(9,2)
At the moment this is I can only do the 1st object for 1 cell.
Code
Sub Experiment()
Dim SrchRng As Range, cel As Range
Set SrchRng = Range("A1:A8")
For Each cel In SrchRng
If cel.Value =
Range("A1") Then 'or Cells(row, column)
cel.Interior.ColorIndex = 3
End If
Next cel
For Each cel In SrchRng
If cel.Value =
Range("A2") Then
cel.Interior.ColorIndex = 4
End If
Next cel
End Sub
Display More
When I wanted to do multiple cells like Range("A1, A3, A4") or Range(Cells(x,y), Cells(x,y)), it gave me an error message.