В ячейке A2 есть текст через запятую. Его необходимо разделить так, чтобы в каждом новом столбце была новая фраза из ячейки A2. Разделитель фразы - большая буква. Также нужно учесть, что таких фраз в ячейке A2 может быть от 1 до 15.
Подскажите, пожалуйста, как можно скопировать Диапазон значений в фильтр сводной таблицы OLAP?
В примере обычная сводная. Нужно с листа3 скопировать все значения клиентов и вставить их в фильтр на листе 2. Как это организовать через VBA?
С одной стороны, можно сделать перебор всех значений и вставки их в фильтр. Но бывает, что там по 30-40к значений, что будет очень долго, учитывая, что OLAP будет каждый раз обновляться.
Настигла беда, с которой никак не могу справиться.
Есть данные по покупкам клиентов в диапазоне С:ND за 365(6) дней. Причем даты в строке 1 меняются, когда пользователь меняет значение начала периода в ячейке B1 (всегда 1-ое число какого-либо месяца). Необходимо найти дату последнего ненулевого значения за каждый месяц (месяцы в столбцах NE:NP, например: Январь - 28.01.2016, Февраль - 29.02.2016 и т.д.), а зачем вычесть это число из первого числа следующего месяца. например: 01.02.2016 - 28.01.2016 = 4 и записать в уже указанный диапазон NE:NP.
Если бы диапазоны не смещались или каждый месяц был в отдельной строке, то проблем бы не возникло с использованием функции ПРОСМОТР, но здесь ничего не выходит.
Есть файлик. Нужно посчитать сколько раз человек выполнил KPI (KPI выполнен при условии, что было больше 100% 4 месяца подряд). Следующее выполнение начинает считать со дня окончания первого выполнения.
Например, выполнил больше 100% в период с января по апрель, следующий счет начинается с мая. В файлике подсветил разными цветами: Оранжевый - 1 выполнение Зеленый - 2 выполнение Синий - 3 выполнение.
Есть код, который должен отправлять часть скопированных данных в Outlook. Как вставить скопированный диапозон в тело письма? Сейчас, чтобы я не делал, он вставляет в тело слово "True"
Код
Sheets("Send").Select 'Копируем нужный диапозон с листа Send
FromWhom = InputBox("Кто направил")
ActiveSheet.Range("$A$1:$L$65000").AutoFilter Field:=2, Criteria1:=xlFilterToday, Operator:=xlFilterDynamic
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = FromWhom
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Set objOutlookApp = CreateObject("Outlook.Application") 'Отправляем в Outlook
Set objMail = objOutlookApp.CreateItem(0)
sTo = "Иванов Иван"
sCC = "Сергеев Сергей"
sSubject = "штат"
sBody = "??????"
sAttachement = "S:\Доки\2015.xlsx"
With objMail
.To = sTo
.CC = sCC
.Subject = sSubject
.Body = sBody
.Attachments.Add sAttachement
.Display
End With