Открыть скрытый столбец.

[segail]

Здравствуйте.
Подскажите, как правильно открыть столбец. Поиск нужной ячейки осуществляется в диапазоне с ячейки D1 до ячейки NW1, на основание условия
If Lab_Data.Caption = найденная ячейка Then
Lab_Data.Caption это дата которая рана дате в найденной ячейки.
После нахождение нужной ячейки открыть скрытый столбец.

           Dim i As Integer
           For i = 1 To 386
            If Lab_Data.Caption = Cells(i+3,??).Text Then 
                ActiveCell.EntireColumn.Resize(, ??).Hidden = False
            End If
           Next

[pivas]

Не понял зачем это:
Resize(, ??)
Почему не просто:
ActiveCell.EntireColumn.Hidden = False

[segail]

Сообщение от pivas

Не понял зачем это:
Resize(, ??)
Почему не просто:
ActiveCell.EntireColumn.Hidden = False

Это ?? то что не знаю...

А условие для переменной i
If Lab_Data.Caption = Cells(i+3,??).Text
тут, тоже что то не так. По строкам я делал условия а, по столбцам, не пойму как.

[pivas]

Здесь
If Lab_Data.Caption = Cells(i+3,??).Text
проблема может быть только с форматом даты.
А дальше лучше так:
Cells(i+3,??).EntireColumn.Hidden = False

[segail]

Проблемы с датой не должно быть.
формат в Lab_Data.Caption 00.00.0000
формат в ячейках тоже 00.00.0000
Так что, код найденной ячейки, так должен выглядеть Cells(i+3,).Text ?
Ячейки с датами находятся в диапазоне от D1 до NW1 …

[pivas]

Нет, Cells(номер столбца, номер строки)























�������� ���������� �������

[pivas]

Нет, Cells(номер столбца, номер строки)























�������� ���������� �������

[segail]

Строка i+3 значит это D1
А столбец нужно искать на основания условия по совпадения дат от D1 до NW1
If Lab_Data.Caption = поиск ячейки с датой Then
После равенства, что поставить?

[segail]

Может я переформулирую вопрос без кода.
На листе Excel скрыто определенное количество столбцов.
Как кодом перебрать все ячейки в диапазоне от D1 до NW1 на предмет поиска даты при условии совпадения с датой элемента управления Lab_Data.Caption, а затем открыть найденный столбец.

[pivas]

Так всех столбцов 256!