Цитата |
---|
Mershik написал: приложите фал-пример с исходными данными и покажите желаемый результат, ну само собой макрос в который нужно добавить условие |
Как смогла схематизировала) Исходный файл не редактируется, к сожалению, а данные не подлежат огласке.В общем, перед тем как будет выполнятся команда из макроса, есть ещё условие выбора дстрибьютора из списка в фильтре, а далее уже вот
Код |
---|
Sub Вывод_списка()
'
' Вывод_списка Macro
' Вывод сумм по нужным покупателям
'
' Keyboard Shortcut: Ctrl+й
'
Sheets.Add After:=ActiveSheet
Columns("D:D").ColumnWidth = 15.57
Range("D3").Select
ActiveCell.FormulaR1C1 = "покупатель 1"
Range("F2").Select
Columns("E:E").ColumnWidth = 20.71
Range("E3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(Sheet1!R[2]C[2]:R[6]C[2])"
Range("D4").Select
ActiveCell.FormulaR1C1 = "покупатель 7"
Range("E4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(Sheet1!R[31]C[2]:R[35]C[2])"
Range("D5").Select
ActiveCell.FormulaR1C1 = "покупатель 10"
Range("E5").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(Sheet1!R[45]C[2]:R[49]C[2])"
Columns("E:E").Select
Selection.NumberFormat = "0.00"
End Sub
|