Страницы: 1
RSS
Выбор наименование товара без повторения, из листа расход в лист отчет выбирать наименование без повторения
 
Добрый день уважаемые знатоки форума.
Помогите с формой отчета, пожалуйста.
нашел в форуме впр по трем критериям однако наименование товаров дублируются.
помогите решить проблему выбора наименования без повторения в листе отчет.
Спасибо.
 
Добрый!
pq
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Grouped Rows" = Table.Group(Source, {"Наименование", "дата2"}, {{"расход", each List.Sum([расход]), type number}, {"брак", each List.Sum([брак5]), type nullable number}})
in
    #"Grouped Rows"
 
в листе расход будет много цифр мин 1000 строки
потом в листе отчет цифры должны меняться по критериям дата и Лин1.
Изменено: чернов - 02.02.2021 08:51:05
 
чернов, В C4  И ПРОТЯНУТЬ
на большом количестве строк будет тормозить поэтому лучше макросом
Код
=ЕСЛИОШИБКА(ИНДЕКС(расход!$A$4:$A$14;ПОИСКПОЗ(1;ИНДЕКС((СЧЁТЕСЛИ(отчет!$C$3:$C3;расход!$A$4:$A$14)=0)/(отчет!$D$1=расход!$C$4:$C$14);0);0));"") 

Код
Sub mrshkei()
Dim col As New Collection, i As Long, lr As Long
Dim sh As Worksheet, sh2 As Worksheet
Set sh = Worksheets("отчет"): Set sh2 = Worksheets("расход")
lr = sh2.Cells(Rows.Count, 1).End(xlUp).Row
For i = 4 To lr
    On Error Resume Next
    col.Add sh2.Cells(i, 1), sh2.Cells(i, 1)
Next i
sh.Range("C4:C" & sh.Cells(Rows.Count, 3).End(xlUp).Row + 1).ClearContents
For i = 1 To col.Count
    sh.Cells(i + 3, 3) = col(i)
Next i
End Sub

Изменено: Mershik - 26.01.2021 13:05:20
Не бойтесь совершенства. Вам его не достичь.
 
Добрый день посмотрите пример с макросом что то не так сделал. не получается что то. В примере сделайте пожалуйста. Спасибо
 
Здравствуйте, может так
 
Спасибо большое то что надо
Страницы: 1
Наверх