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

[segail]

Тоже не работает

[pivas]

Попробуйте заменить
CDate(Cells(i, 1).Text) Then
на
Cells(i, 1) Then

[segail]

Да нет что-то не то, у меня есть коды, работают по текстовому сравнению дат.

[segail]

Ладно pivas спасибо Вам за участие. Завтра примерчик слеплю в Excel 2003, может что и решим.

[pivas]

Желаю удачи!

[nilem]

Здесь напрашивается Find, но в скрытых столбцах он не хочет работать. Поэтому родилось такое:

PHP код:

Private Sub CommandButton1_Click()
Dim poz As Range, X As Range, i As Integer
Application.ScreenUpdating = False

For i = 4 To 387
    If Cells(1, i).EntireColumn.Hidden = True Then
        If X Is Nothing Then Set X = Cells(1, i) Else Set X = Union(X, Cells(1, i))
    End If
Next i
X.EntireColumn.Hidden = False

Set poz = Sheets("Расход").Range("D1:NW1").Find(What:=CDate(Me.Lab_Data.Caption), _
                                        LookIn:=xlValues, LookAt:=xlWhole)
If poz Is Nothing Then MsgBox "Дата не найдена", vbInformation: Exit Sub

X.EntireColumn.Hidden = True: poz.EntireColumn.Hidden = False
poz.Select: Set X = Nothing: Set poz = Nothing

Application.ScreenUpdating = True
End Sub 


[segail]

Здравствуйте.
Вот пример открытия строк и столбцов.
Строки открываются, так как надо, а столбцы открываются одновременно. Необходимо чтобы столбцы открывались на выбранную дату…
У вас код больно навороченный, мне кажется здесь все проще…

[nilem]

Да уж, не ищем простых решений
В Private Sub CommandButton4_Click() Rows замените на Columns.

[segail]

Блин как все просто. А видь знал что Rows строка, а Columns колонка.
Спасибо.

[segail]

Оказывается не так все просто, поторопился.
Опять проблема, данный код открытие колонки на выбранную дату,

Private Sub CommandButton4_Click()
        Dim i As Integer
        For i = 4 To 8
            If Cells(i, 1).Text = Lab_Data.Caption Then
                Columns(i).EntireColumn.Hidden = False
            End If
        Next
End Sub

,зависит от дат которые расположен в строках
Если даты в строках удалить то код не будет работать.
Значит, переменная и условие работает на строки, где проставлены даты, а открывает столбцы.
Кто подскажет?