Hello all
I am currently working on a sheet where I have two cells with dates. These represent the dates that someone would be out of the office. Each staff member has a worksheet with the dates of the year in the range ("E2:IT2"). I need a macro that, if these two cells with dates are filled out will search the range in each sheet and return the value "v" in rows 4-39 in the corresponding column. This will black out the column to indicate they are out.
Please see my current code below. I am getting a "type mismatch" error on the If line. Hopefully I am close to the proper code. Thanks in advance!
Dim b As Variant
Dim x As Long
For Each Column In Sheets("PMDavid H").Range("E2:IT2")
b = Range("E2:IT2").Cells.Value
If Sheets("Home").Cells("L6").Value <= b And b <= Sheets("Home").Cells("N6").Value Then
For c = 4 To 39 And x = b.Column
Cells(c, x).Values = "v"
Next
Else: Resume
End If
Next
Bookmarks