Цикл по столбцам

[Lionzi]

Помогите, нужно создать цикл по столбцам. по 4 строке.
Если в ячейке по адресу (N4), где N - любой солбец, находиться ноль, то столбец скрыть.

Если делать по строкам, то получаеться следуюшее:

For n = 4 To 110
If Range("H" & n) = 0 Then
Range("H" & n).EntireRow.Hidden = True
End If
Next n

А как сделать по столбцам?

[Vitaly1]

Lionzi

Cells(i,j) - для работы с ячейкой по столбцу и строке
Rows(i) - для работы со строкой
Columns(j) - для работы со столбцом


Понятно?

[Lionzi]

Попробывал сделать такой код,

For I = 9 To 110
If Cells(I & "4").Value = 0 Then
Cells(I & "4").EntireColumn.Hidden = True
End If
Next I

Но он скрыл все подряд, через один столбик, не обращая внимание не значение в строке 4.

Нельзя ли привести участок кода, который бы решил эту проблему?

[RayShade]

Не Cells(I & "4") а Cells(I,4)

Видишь разницу?

[Lionzi]

Спасибо, но в этом случии он вообще не скрывает ни одного столбца.

For I = 9 To 110
If Cells(I, 4) = 0 Then
Cells(I, 4).EntireColumn.Hidden = True
End If
Next I

[RayShade]

Хм.. а что если не i,4 а 4,i ? Просто я навскидку не помню, какой параметр строка а какой колонка

[Vitaly1]

я, не понимаю, если нужно скрывать I столбец, то тогда так:

For I = 9 To 110
If Cells(I, 4) = 0 Then
columns(I).EntireColumn.Hidden = True
End If
Next I

[Lionzi]

В такой форме, он полностью скрывает все столбцы в заданном диапозоне...

For I = 9 To 110
If Cells(I, 4) = 0 Then
Columns(I).EntireColumn.Hidden = True
End If
Next I

Попробую привести кодж полностью, первая часть выполняется полностью

Sub Скрытьпустые()
Sheets("Ассортимент").Select
For n = 4 To 110
If Range("H" & n) = 0 Then
Range("H" & n).EntireRow.Hidden = True
End If
Next n

до этого момента, все отлично

For I = 9 To 110
If Cells(I, 4) = 0 Then
Columns(I).EntireColumn.Hidden = True
End If
Next I
а здесь, скрывает все столбцы...

End Sub

[A.A.Z.]

Не знаю, как правильно, но м. б. Cells(i, 4).Text?

[GSerg]

Для справки:
Если ячейка пуста, то считается, что в ней ноль или пустая строка, смотря как обращаться. Пустые ячейки есть?

[Lionzi]

A.A.Z.

Cells(I, 4).Text Также ничего не дает,

GSerg
Мне как раз и надо скрыть все столбцы, в которых нет значения.
Я пробывал создать новый файл и там заполнил строку произвольными символами, с промежутком в 1-2 столбца. Все равно получаеться тоже самое.
Также пробывал строку с формулами (сумма) где в некоторых столбцах результат был ноль. И никокого удовлетворяющего меня результата найти не смог.
Могу выслать сам файл, который я делаю, чтобы вы могли попробывать.

[Lionzi]

Всем спасибо, я наконец разобрался, что к чему!

мне надо было просто прописать

Dim I As Integer

в начале цикла, и сразу все стало на свои места. Спасибо.