Выбор смежных дат

[RUBEY]

Выбирается в данном макросе столбики объединенные одной датой D а как модифицировать оператор, чтобы выбирать не только день значение которого D, а и предыдущий ( D-1).

Sub HideColumns()
Application.ScreenUpdating = False
d = Get_Date("", Now): If d = "" Then Exit Sub
ActiveSheet.UsedRange.Offset(, 4).EntireColumn.Hidden = True

Dim cell As Range
For Each cell In ActiveSheet.UsedRange.EntireColumn. Rows(4).Offset(, 1).Cells
If (cell.MergeArea.Cells(1) Like "*" & d & "*") Then cell.EntireColumn.Hidden = False
Next cell
End Sub


Рбей

[EducatedFool]

Вы хоть бы указали ссылку на ту тему, где прикреплён файл с этим макросом...

Попробуйте так:

Sub HideColumns()
    Application.ScreenUpdating = False
    d = Get_Date("", Now): If d = "" Then Exit Sub
    ActiveSheet.UsedRange.Offset(, 4).EntireColumn.Hidden = True

    Dim cell As Range
    For Each cell In ActiveSheet.UsedRange.EntireColumn.Rows(4).Offset(, 1).Cells
        If (cell.MergeArea.Cells(1) Like "*" & d & "*") Then cell.EntireColumn.Hidden = False
        If (cell.MergeArea.Cells(1) Like "*" & CStr(DateAdd("d", -1, d)) & "*") Then cell.EntireColumn.Hidden = False
    Next cell
End Sub

[RUBEY]

Извиняюсь за смешение тем, но я просто обрадовался, что заметил в обсуждении самого авторитетного для меня гуру и воспользовался моментом. Как всегда , все блестяще и работает без замечаний. Еще раз благодарю
Тема закрыта.
Рубей.