Защо AutoFilter VBA при критерии от числов диапазон не ги разпознава като числа?

0 одобрения 0 неодобрения
попитан 24 юли в VBA от misho начинаещ (12 точки)

Това е стандартен VBA код, но работи с текстов формат

Някой може ли да помогне?

Private Sub CommandButton1_Click()
' Филтриране на  числова колона по критерии от колона в друг лист

Dim ws1, ws2 As Worksheet
Dim rngCrit As Range
Dim rngBas As Range

Dim aCrit As Variant

Set ws1 = Worksheets("база)
Set ws2 = Worksheets("критетии")
Set rngBas = ws1.Range("$A$1").CurrentRegion
Set rngCrit = ws2.Range("A2:A6")

aCrit = rngCrit.Value

rngBas.AutoFilter _
    Field:=1, _
    Criteria1:=Application.Transpose(aCrit), _
    Operator:=xlFilterValues

End Sub

Благодаря

Моля влезте или се регистрирайте за да отговорите на този въпрос.

Добре дошли в българския форум за Ексел и Майкрософт офис! Тук можете да питате хора със знания и опит, както и да споделите знанията и опита си с другите.
...