fill cell color based on data

[Tatu]

how can i fill cell based on a intersection values from other sheet?

Based on sheet2 values, fill the yellow cells on sheet1.

 

[Tatu]

any one with time to help

 

[kweaver]

I don't understand the logic as to why on Sheet1 there are 3 shaded areas when looking at Sheet2's dates.

 

[Tatu]

i'm trying to fill between startDate and Enddate.

Sub corresp()
Dim r As Integer
Dim c As Integer
Dim j As Integer
Dim k As Integer

For k = 4 To 10

For j = 4 To 366

If Not IsError(Application.Match(Folha2.Range("A" & k).Value, Range("A1:A8"), 0)) Then
r = WorksheetFunction.Match(Folha2.Range("A" & k).Value, Range("A1:A8"), 0)

End If

If Not IsError(Application.Match(Folha2.Cells(k, j), Range("A3:IU3"), 0)) Then

c = WorksheetFunction.Match(Folha2.Cells(k, j), Range("A3:IU3"), 0)

Cells(r, c).Interior.ColorIndex = 6

End If
Next j
Next k

End Sub

this code leave blank cell between date

 

[Tatu]

for know i'm at this point