Нужно отфильтровать данные с выводом данных в отдельные ячейки. Делаю так:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:B5")) Is Nothing Then
On Error Resume Next
ActiveSheet.ShowAllData
Range("B8").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("B3").CurrentRegion, CopyToRange:=Range("F3").CurrentRegion, _
Unique:=False
End If
End Sub
Не срабатывает, хотя проверял без копирования и все работает
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:B5")) Is Nothing Then
On Error Resume Next
ActiveSheet.ShowAllData
Range("B8").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("B3").CurrentRegion
End If
End Sub
в чем может быть проблема?
Сообщение отредактировал MotoArhangel - 25.10.2015, 14:46