Уважаемые Михаил, Максим. Я имел ввиду следующее: хотел получить в ячейках тот же результат который дает формула массива, при этом иметь возможность изменять полученные данные (в частности сортировать). Я тут сам попытался сваять нечто и вот что получилось (кнопка на листе Остатки):
Код |
---|
Private Sub CommandButton1_Click()
Dim FirstRow As Long, LastRow As Long, i As Long
FirstRow = 4
i = 2
Range("D4:D17").ClearContents
If Sheets("Приход").Cells(i, 4) > 0 And Sheets("Приход").Cells(i, 1) < Sheets("Остатки").Cells(1, 1) Then
For i = 2 To 100
Sheets("Приход").Cells(FirstRow, 4) = Sheets("Остатки").Cells(i, 3)
FirstRow = FirstRow + 1
Next
End If
Range("D4:D17").SortSpecial
End Sub
|
в принципе все правильно делает, НО не работает мой "фильтр"
Код |
---|
If Sheets("Приход").Cells(i, 4) > 0 And Sheets("Приход").Cells(i, 1) < Sheets("Остатки").Cells(1, 1) Then
|
и данные показываются все, несмотря на то, что у части позиций нулевой остаток, а у 1 позиции дата превышает контрольную. И, по какой то причине, если у первой позиции остаток = 0, данные не выводятся совсем. Что в этом убогом коде я написал не так, что надо изменить?