Страницы: 1
RSS
[ Закрыто ] Проблема с кодом
 
Написал код на фильтрацию по двум параметрам, они конфликтуют друг с другом. Нужно чтобы они фильтровали один диапазон данных двумя фильтрами и выдавали совокупное значение/ия

КОД:

Private Sub Worksheet_Change(ByVal Target As Range)
   On Error Resume Next
   ActiveSheet.ShowAllData
   
   ' Проверка на изменения в диапазоне B2:f2
   If Not Intersect(Target, Range("B2:f2")) Is Nothing Then
       Range("B5").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, criteriaRange:=Range("A1").CurrentRegion
   End If
   
   ' Проверка на изменения в ячейке G2
   If Not Intersect(Target, Range("G2")) Is Nothing Then
       ' Если G2 пустая, просто покажем все данные и выйдем из подпрограммы
       If IsEmpty(Range("G2").Value) Then
           Exit Sub
       End If
       
       Dim filterValue As Double
       filterValue = Range("G2").Value
       
       ' Применим автофильтр к диапазону G5:G200
       With Range("G4:G200")
           .AutoFilter Field:=1, Criteria1:="<=" & filterValue
       End With
       
       ' Определим диапазон для сортировки (отфильтрованный диапазон)
       Dim sortRange As Range
       Set sortRange = Range("G5:G200").SpecialCells(xlCellTypeVisible)
       
       ' Сортируем отфильтрованные данные в порядке возрастания
       sortRange.Sort Key1:=Range("G5"), Order1:=xlAscending, Header:=xlNo
   End If
End Sub
 
Проблема с названием Темы.
Читаем Правила форума. Создаем тему с адекватным названием и файлом-примером. Закрыто
Согласие есть продукт при полном непротивлении сторон
Страницы: 1
Наверх