Hi,
Check out this approach.
Option Explicit
Private Sub Workbook_Open()
Dim LastRow As Long
Dim a As Long
Dim Message As String
Dim Today As Integer
With Worksheets("Sheet1")
LastRow = .Range("B" & .Rows.Count).End(xlUp).Row
For a = 2 To LastRow
If...
And what about the Data Model technique?
If the data on sheet Oct16, Nov16, Dec16 are in Tables then you can integrate these tables into 1 pivot table.
Or VBA.
Is this help for you?
https://support.office.com/en-us/article/Consolidate-multiple-worksheets-into-one-PivotTable-report-3AE257D2-CA94-49FF-A481-E9FC8ADEEEB5
Hi @p45cal,
Thank you very much the .DisplayFormat tip, I was able to figure out the code.
Option Explicit
Sub CountColoredCells()
Dim a As Range
Dim Count, Lastrow1, Lastrow2 As Long
Dim b As Variant
Count = 0
Lastrow1 = ActiveSheet.UsedRange.Rows.Count
For Each a In Range("B9:C"...
Hi,
I would like to ask your help regading the conditional formatted cells counting.
In range B9:C19 I applied 4 different conditional formatting rules (colours: red, orange, yellow, green) and my target is to count those cells which are formatted with red, orange and yellow.
The sample file...
Hi,
Check out this array approach.
Note: I changed the decimal separators of MIN and MAX (on sheet Material code master) from point to comma and converted to numbers.