Доброго дня! Помогите решить задачу: есть файл с 13 листами соответственно 12 месяцев и сводная. На листах с месяцами, каждый месяц добавляется таблица с выгрузкой данных. Нужно сделать так чтоб макрос по нажатию кнопки выбирал уникальные значения из колонок "F" и записывал в сводную в столбец "A", причем в каком то месяце может добавиться новое уникальное значение. Так же нужен подсчет количества уникальных значений и сумма данных для каждого значения помесячно.
a.i.mershik, не вариант у меня первоначальных таблиц 14, а если я для каждого месяца буду отдельно делать- это еще на 12 помножить, 168 таблиц, я на 20 свихнусь
Юрий М, Спасибо! В оригинале данные начинаются с одной и той же строки. Но в вашем варианте не подтягиваются значения для уник. данных из столбца Е в колонки сводной табл. Т.е. в колонку В сумма значений из Е. А в колонку С кол-во значений. И так для всех месяцев. (Я плохо описал просьбу)
Не стала создавать новую тему, решила задать вопрос здесь.
Мне поставили на первый взгляд простую задачку, а именно: вводим ячейку сумму премии 40 000, а по нажатию enter в этой же! ячейки вместо 40 000 выдавался размер коэффициента кот считается по определенной форме. Ну к примеру я хочу, чтобы ячейки А1 по А10 работали подобным образом я ввожу число, а оно делится на 10. Ввела в А1 500, а в ответ в этой же ячейки выдается значение 50 (т.е. 500/10=50) и так чтоб работали ячейки в диапазоне от А1 до А10. Помогите написать макрос. Я добилась что меняется а1 подобным образом, но а) пока не получается в силу неопытности продлить диапазон до А10 и делит он каждый раз при вводе значений в другие ячейки, а мне надо однократно.
Начала с этого:
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a1") = Range("a1") / 10
End Sub
Юрий Назаров написал: не подтягиваются значения для уник. данных из столбца Е в колонки сводной табл. Т.е. в колонку В сумма значений из Е. А в колонку С кол-во значений
Покажите в "моём" примере, как это должно выглядеть. Сделайте вручную несколько строк
Проверьте вариант (арифметику не проверял). Ограничение! Лист "Свод" ВСЕГДА должен быть последним. Заголовки столбцов в этом листе должны следовать в той же очерёдности, что и листы-доноры. Иначе нужно усложнять макрос.
А вот a.i.mershik и я утверждаем обратное: второй вариант работает: выводит уникальные и считает по ним суммы и количество. Если двух человек недостаточно - можем попросить ещё кого-нибудь, чтобы проверили. Или поверите на слово? ))
Юрий Назаров, попробуйте без цитирования. На другом компьютере есть возможность проверить? И всё же меня смущает, что только столбец А заполняется. Скопируйте сюда из модуля последние 10 строк макроса.
Cells(i, iCol) = SUMMA
Cells(i, iCol + 1) = Counter
SUMMA = 0
Counter = 0
iCol = iCol + 2
Erase Arr
Next
Next
Application.ScreenUpdating = True
End Sub