Скрытые столбцы не дают выполнить код.

[segail]

Здравствуйте.
Я уже создавал тему открытие столбцов на основание условия.
Теперь необходимо внести данные ячейки скрытого столбца.
Опять тупик.
На основания условия.
If Tex_dt_mz.Text = Cells(1, i).Text Then Находим нужную ячейку (первая строка, от столбца 3 до 386) в столбцах, и вносим данные ячейки Cells(1 + 1, i) в Com_t.Value Все ничего если столбцы открыты, но если столбцы скрыты, то код условия не срабатывает, он не находит скрытую ячейку столбца Cells(1, i).

            Dim i As Integer
            For i = 3 To 386
                If Tex_dt_mz.Text = Cells(1, i).Text Then
                    Com_t.Value = Cells(1 + 1, i).Value
                End If
            Next

Tex_dt_mz.Text –TextBox
Com_t.Value- ComboBox

[SAS888]

Присваивание значения ячейке не зависит от того, скрыт столбец (строка) с этой ячейкой, или нет.
Замените в коде Cells(1, i).Text на Cells(1, i).Value (или просто Cells(1, i)) и будет счастье.

[segail]

Путем тыка, нашел сам. Только так работает.
If Tex_dt_mz.Text = Cells(1, i) Then
Хотя так и не понял, почему не Cells(1, i).Text ...

Спасибо.