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

[nilem]

Тоже не посмотрел сразу. Здесь
If Cells(i, 1).Text = Lab_Data.Caption Then
надо
Cells(1, i) - 1-я строка, i-тый столбец.

[nilem]

И теперь не хочет работать.

[segail]

Не понял что делать не соображаю…

[nilem]

Не расстраивайтесь так. Мне тоже интересно, давайте спросим у специалистов. В таком коде

PHP код:

Private Sub CommandButton4_Click()
    Dim i As Integer
    For i = 4 To 8
        If Cells(1, i).Text = Lab_Data.Caption Then
            Image1.BackColor = &HFF&
            Columns(i).EntireColumn.Hidden = False
            MsgBox "Нашел": Exit Sub
        End If
    Next
    MsgBox "Не нашел"
End Sub 


... если Cells(1, i) находится в скрытом столбце, то всегда MsgBox "Не нашел". Также ведет себя Find. Почему?

[segail]

Да нет, мне кажется, переменная и условие работают чисто на строки, надо где то изменять переменную, делать проверку по столбцам и на этом создавать условие

[nilem]

В той же процедуре попробуйте так
If Cells(1, i).Value = CDate(Lab_Data.Caption) Then
У меня заработало.

[segail]

Да… Почему же по строкам срабатывает ?

[segail]

Срабатывает nilem
Не пойму только почему переводить в значение если в ячейки уже установлено значение даты.
А лейбл да… надо было перевести в дату давно.
А вот для строк ни чего не надо переводить…
Короче благодарю Вас, работает так как мне и надо было.

[Teslenko_EA]

Здравствуйте господа.
ваша дискуссия похоже затянулась.
в подобных случаях спасает Debug.Print
Евгений.

[segail]

Спасибо Евгений, вроде уже работает.