Страницы: 1
RSS
Вертикально-Горизонтальний фільтр
 
Создал цикл, который при вертикальном нахождении не пустой ячейки запускает следующий цикл, который горизонтально должен фильтровать данные. Все пустые ячейки должны укрываться вместе с колонками, а заполненные оставаться. Но почему-то при его запуске у меня ничего не работает. Не выбивает никаких ошибок, но сам макрос не работает.
При вписывании 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
Изменено: Роман Романчук - 22.12.2021 12:50:14
 
оформление кода VBA на форуме. P.S. Перевод на русский есть?
Изменено: New - 22.12.2021 12:25:56
 
спасибо за подсказку
Страницы: 1
Наверх