помогите разобраться
накидал через пень-колоду макрос
| Код |
|---|
Dim lRow As Long
lRow = Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=21, Criteria1:="1"
ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=18, Criteria1:="Е", _
Operator:=xlOr, Criteria2:="П"
ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=13, Criteria1:=">2,0"
Range("X2:X" & lRow).SpecialCells(xlCellTypeVisible).Value = 66
Selection.AutoFilter |
не выполняется строка
| Код |
|---|
ActiveSheet.Range("$A$1:$AB" & lRow).AutoFilter Field:=13, Criteria1:=">2,0"
|
точнее она выполняется, но возвращает пустой лист, как будто нет отобранных значений. как обойти ошибку?
