Excel “no fill”macro

[thaking]

I am looking for macro which will solve my issue. I have planning of machines per days, but on top of that I would like to have "overview" per machines (if there is no color fill in machine capacity planning then that means it's available for planning, otherwise is at machine planning is fill with color or text then change colour - which will mean no possible to plan)...

 

[Peter_SSs]

For the future, you will get many more potential helpers if you post any sample data in small copyable format so we do not have to manually type out the sample data to test. My signature block below has more help on that.

See if this is any use. Test in a copy of your workbook.
I have assumed a layout like this, per your image.
I have also assumed that all machine names in the bottom main table already appear in the top overview table.

Excel Workbook
	A	B	C	D
1		day1	day2	day3
2	machine1
3	machine2
4	machine3
5	machine4
6
7		day1	day2	day3
8	machine1	reservation1
9		reservation2		reservation1
10		reservation3
11	machine2		reservation2	reservation3
12		reservation3	reservation2	reservation3
13			reservation2	reservation3
14	machine3
15
16
17	machine4
18			reservation77
19
Machine Overview

Sub Machine_Overview()
  Dim a As Variant, b As Variant
  Dim lr As Long, lc As Long, r As Long, c As Long, k As Long
  Dim CurrMachine As String
  
  Const fr As Long = 7 '<- Main data header row
  
  lr = Cells.Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
  lc = Cells.Find(What:="*", LookIn:=xlFormulas, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
  a = Range("A" & fr, Range("A" & lr)).Resize(, lc).Value
  b = Range("A1", Range("A2").End(xlDown)).Resize(, lc).Value
  For r = 2 To UBound(a)
    If Len(a(r, 1)) > 0 Then CurrMachine = a(r, 1)
    For c = 2 To UBound(a, 2)
      If Len(a(r, c)) > 0 Then
        k = 2
        Do Until b(k, 1) = CurrMachine
          k = k + 1
        Loop
        b(k, c) = 1
      End If
    Next c
  Next r
  With Range("A1").Resize(UBound(b, 1), UBound(b, 2))
    .Value = b
    .SpecialCells(xlConstants, xlNumbers).Interior.Color = 15773696
    .SpecialCells(xlConstants, xlNumbers).ClearContents
  End With
End Sub

After the above code has been run:

Excel Workbook
	A	B	C	D
1		day1	day2	day3
2	machine1
3	machine2
4	machine3
5	machine4
6
7		day1	day2	day3
8	machine1	reservation1
9		reservation2		reservation1
10		reservation3
11	machine2		reservation2	reservation3
12		reservation3	reservation2	reservation3
13			reservation2	reservation3
14	machine3
15
16
17	machine4
18			reservation77
19
Machine Overview