Создал цикл, который при вертикальном нахождении не пустой ячейки запускает следующий цикл, который горизонтально должен фильтровать данные. Все пустые ячейки должны укрываться вместе с колонками, а заполненные оставаться. Но почему-то при его запуске у меня ничего не работает. Не выбивает никаких ошибок, но сам макрос не работает. При вписывании 0 в строке фильтр, клиенты ничего не заказывающие должны скрыться, а заказавшие что-то остаются неизменно Вот так выглядит Макрос
Код
Sub VerticalHorizonatalFilter()
' Vertical Filter Variables
Dim RC As Long
Dim C As Long
Dim y As Long
Dim FilterValue As String
' Horizontal Filter Variables
Dim LC As Long
Dim R As Long
Dim i As Long
' Vertical Loop data
Const FilterRow = 2
C = 1
RC = Cells(Rows.Count, C).End(xlUp).Row
FilterValue = Cells(FilterRow, C)
Application.ScreenUpdating = False
' Vertical Loop Start
For y = FilterRow + 1 To RC
If y <> FilterRow And Not IsEmpty(Cells(y, C).Value) Then
' Horizontal loop data
Cells(y, C).Activate
R = ActiveCell.Row
Const FilterColumn = 7
LC = Cells(R, Columns.Count).End(xlToLeft).Column
'FilterValue1 = Cells(R, FilterColumn)
'Horizontal loop start
For i = FilterColumn + 1 To LC
If i <> FilterColumn And IsEmpty(Cells(R, i).Value) = True Then
Columns(i).Hidden = Cells(R, i) <> Cells(R, FilterColumn)
End If
Next i
End If
Next y
Application.ScreenUpdating = True
End Sub