Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 След.
Удаление первого символа по условию в запросе Power query
 
спасибо конечно за ответ, но не разобрался как это применять, куда вписывать этот код.
в целом уже решил задачу.
Суммирование данных при условии что один из критериев отбора ранее встречался., Отделяем новых и старых клиентов по признаку и суммируем нарастающим итогом.
 
Спасибо
Как ВПР много умеет если знать как использовать его особенности..
Суммирование данных при условии что один из критериев отбора ранее встречался., Отделяем новых и старых клиентов по признаку и суммируем нарастающим итогом.
 
Вторая формула извлекает "н" если оно есть в изначальном появлении ФИО?

А без блока A44:E51 это можно реализовать еще как-то?
Суммирование данных при условии что один из критериев отбора ранее встречался., Отделяем новых и старых клиентов по признаку и суммируем нарастающим итогом.
 
Здравствуйте уважаемые программисты!
Всех с наступающим Новым годом!

Есть следующая задача, пример во вложении.
1. Необходимо понять какой совокупный объем привлечения был по новым клиентам за год с учетом повторных приобретений в разрезе месяцев и каналов продаж
2. Клиент мог мигрировать в другой канал (продукт), мы все равно его считаем по каналу, который был у него первым. Если это очень сложное условие, то его можно отбросить.
Также потом посчитать старых клиентов (те которые не имеют префикс "н" в текущем году)
Автоматическое объединение двух дат в соответствующую им рабочую неделю
 
Спасибо огромное, гениально!
а то мучался с этими форматами для дат!
Автоматическое объединение двух дат в соответствующую им рабочую неделю
 
Не совсем, выдает 0 со вторника по пятницу
Автоматическое объединение двух дат в соответствующую им рабочую неделю
 
Дорогие программисты, всем привет!
Всех с наступающим Новым годом, добра и реализации поставленных задач!

Задача как раз возникла из-за Нового года. Нужно адаптировать отчетность к следующему году. Практически во всех отчетах есть листы "данные" (которые содержат определенные справочники для упрощения жизни) на которые мы ссылаемся нашими формулами.
Во вложении пример  файла, где в ячейке B2 нужно прописать формулу, которая склеивала бы из столбца А даты понедельника и пятницы текущей рабочей недели в формат дд.мм.-дд.мм.гггг., а начиная с ячейки b7 в строке должно уже быть 17.01-22.01.22 (что соответствует второй рабочей недели) и т.д.
Помогите пожалуйста автоматизировать этот момент!
Удаление первого символа по условию в запросе Power query
 
Друзья, всем доброго дня!

Кто-нибудь может подсказать, как в запросе Power query можно удалить первый знак в каждой строке, если он например = "х" ?
Если текст начинается на любой другой знак, то оставить текст как есть, если начинается с "х", то удалить "х"
Кроме как замены значений в каждой строке не получается пока что никак((
Заранее благодарю!
Некоторые сохраненные макросом формулы в значения выдают ошибку #знач после запуска макроса.
 
Это не относится к данной теме. Макрос успешно возвращает строки и по 900 символов после того как формулы массива изменил на обычные. Т.ч. вопрос кто что может поведать по нюансам работы макроса с формулами массива остается открытым, если кто сталкивался будет интересно узнать что-то новое об этом.
Некоторые сохраненные макросом формулы в значения выдают ошибку #знач после запуска макроса.
 
Поправил.

Нашел причину ошибки - это формулы массива. Если сделать обычную формулу, то макрос отрабатывает все листы без #знач!
Кто знает что за нюансы у макросов с работой с этим типом формул?
Во время записи макрорекордером выделяется ячейка, не несущая смысловой нагрузки
 
Уже прочитал и переписал все сам), можно закрывать задачу.
Некоторые сохраненные макросом формулы в значения выдают ошибку #знач после запуска макроса.
 
Ниже скрин, там где #знач! изначально была формула, которую макрос преобразовывал в значение, и я видел что это значение сохранялось при отработке макроса на этапе его писания, но вот после остановки записи и при запуске макроса, возникает эта лажа.
Во вложении файл со скрином части листа  
Изменено: Артем_81 - 26.11.2021 10:27:17
Некоторые сохраненные макросом формулы в значения выдают ошибку #знач после запуска макроса.
 
Макрос работает, но  там где строка должна возвращать значение и это значение длинное, то возникает ошибка #знач, вот я и спрашиваю вдруг кто сталкивался с этим вопросом!?

Ниже код...
Код
[CODE
Sub Сохранение_книги()
'
' Сохранение_книги Макрос
'

'
    Sheets(Array("INFO", "DATE", "_DICT", "sved_vid_deyat", "sved_otch_org", _
        "r1_p1_p1_oboroty_1", "r1_p1_p1_oboroty_2", "r1_p1_p1_oboroty_3", _
        "r1_p1_p1_oboroty_4")).Select
    Sheets("INFO").Activate
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    Sheets(Array("INFO", "DATE", "_DICT", "sved_vid_deyat", "sved_otch_org", _
        "r1_p1_p1_oboroty_1", "r1_p1_p1_oboroty_2", "r1_p1_p1_oboroty_3", _
        "r1_p1_p1_oboroty_4", "r1_p1_p1_oboroty_5", "r1_sved_KO", "r1_p1_p1_ostatki_1", _
        "r1_p1_p1_ostatki_2", "r1_p1_p1_ostatki_3", "r1_p1_p1_ostatki_4", _
        "r1_p1_p1_ostatki_5", "r1_p1_p2_oboroty_1", "r1_p1_p2_oboroty_2", _
        "r1_p1_p2_oboroty_3", "r1_p1_p3_1", "r1_p1_p3_2", "r2_p2_p1_oboroty", _
        "r2_p2_p2_oboroty", "r2_p2_p1_ostatki", "sved_rukovod")).Select
    Sheets("INFO").Activate
    Sheets("sved_otchetnost").Select Replace:=False
    Sheets(Array("INFO", "DATE", "_DICT", "sved_vid_deyat", "sved_otch_org", _
        "r1_p1_p1_oboroty_1", "r1_p1_p1_oboroty_2", "r1_p1_p1_oboroty_3", _
        "r1_p1_p1_oboroty_4", "r1_p1_p1_oboroty_5", "r1_sved_KO", "r1_p1_p1_ostatki_1", _
        "r1_p1_p1_ostatki_2", "r1_p1_p1_ostatki_3", "r1_p1_p1_ostatki_4", _
        "r1_p1_p1_ostatki_5", "r1_p1_p2_oboroty_1", "r1_p1_p2_oboroty_2", _
        "r1_p1_p2_oboroty_3", "r1_p1_p3_1", "r1_p1_p3_2", "r2_p2_p1_oboroty", _
        "r2_p2_p2_oboroty", "r2_p2_p1_ostatki", "sved_rukovod")).Select
    Sheets("r1_p1_p1_ostatki_5").Activate
    Sheets("sved_otchetnost").Select Replace:=False
    Sheets(Array("INFO", "DATE", "_DICT", "sved_vid_deyat", "sved_otch_org", _
        "r1_p1_p1_oboroty_1", "r1_p1_p1_oboroty_2", "r1_p1_p1_oboroty_3", _
        "r1_p1_p1_oboroty_4", "r1_p1_p1_oboroty_5", "r1_sved_KO", "r1_p1_p1_ostatki_1", _
        "r1_p1_p1_ostatki_2", "r1_p1_p1_ostatki_3", "r1_p1_p1_ostatki_4", _
        "r1_p1_p1_ostatki_5", "r1_p1_p2_oboroty_1", "r1_p1_p2_oboroty_2", _
        "r1_p1_p2_oboroty_3", "r1_p1_p3_1", "r1_p1_p3_2", "r2_p2_p1_oboroty", _
        "r2_p2_p2_oboroty", "r2_p2_p1_ostatki", "sved_rukovod", "sved_otchetnost")).Copy
    Sheets("_DICT").Select
    ActiveWindow.SelectedSheets.Visible = False
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("sved_otch_org").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("INFO").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("DATE").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("r1_p1_p1_oboroty_1").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("r1_p1_p1_oboroty_2").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("r1_p1_p1_oboroty_3").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("r1_p1_p1_oboroty_4").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("r1_p1_p1_oboroty_5").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("r1_sved_KO").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("r1_p1_p1_ostatki_1").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("r1_p1_p1_ostatki_2").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.TabRatio = 0.942
    Sheets("r1_p1_p1_ostatki_3").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("r1_p1_p1_ostatki_4").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("r1_p1_p1_ostatki_5").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("r1_p1_p2_oboroty_1").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("r1_p1_p2_oboroty_2").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("r1_p1_p2_oboroty_3").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    Sheets("r1_p1_p3_1").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("r1_p1_p3_2").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("r2_p2_p1_oboroty").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("r2_p2_p2_oboroty").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("r2_p2_p1_ostatki").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("sved_rukovod").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("sved_otchetnost").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("Q23").Select
    Sheets("sved_rukovod").Select
    Range("I19").Select
    Sheets("r1_p1_p1_ostatki_4").Select
    Range("D12").Select
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-2
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    Sheets("INFO").Select
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    Sheets(Array("INFO", "DATE", "sved_vid_deyat", "sved_otch_org", _
        "r1_p1_p1_oboroty_1", "r1_p1_p1_oboroty_2", "r1_p1_p1_oboroty_3", _
        "r1_p1_p1_oboroty_4", "r1_p1_p1_oboroty_5", "r1_sved_KO", "r1_p1_p1_ostatki_1", _
        "r1_p1_p1_ostatki_2", "r1_p1_p1_ostatki_3", "r1_p1_p1_ostatki_4", _
        "r1_p1_p1_ostatki_5", "r1_p1_p2_oboroty_1", "r1_p1_p2_oboroty_2", _
        "r1_p1_p2_oboroty_3", "r1_p1_p3_1", "r1_p1_p3_2", "r2_p2_p1_oboroty", _
        "r2_p2_p2_oboroty", "r2_p2_p1_ostatki", "sved_rukovod", "sved_otchetnost")). _
        Select
    Sheets("INFO").Activate
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H20").Select
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    Sheets(Array("INFO", "DATE", "sved_vid_deyat", "sved_otch_org", _
        "r1_p1_p1_oboroty_1", "r1_p1_p1_oboroty_2", "r1_p1_p1_oboroty_3", _
        "r1_p1_p1_oboroty_4", "r1_p1_p1_oboroty_5", "r1_sved_KO", "r1_p1_p1_ostatki_1", _
        "r1_p1_p1_ostatki_2", "r1_p1_p1_ostatki_3", "r1_p1_p1_ostatki_4", _
        "r1_p1_p1_ostatki_5", "r1_p1_p2_oboroty_1", "r1_p1_p2_oboroty_2", _
        "r1_p1_p2_oboroty_3", "r1_p1_p3_1", "r1_p1_p3_2", "r2_p2_p1_oboroty", _
        "r2_p2_p2_oboroty", "r2_p2_p1_ostatki", "sved_rukovod", "sved_otchetnost")). _
        Select
    Sheets("INFO").Activate
    Range("B28").Select
    Sheets("sved_otch_org").Select
    Range("D23").Select
    Windows("!Формирование 0420011.xlsm").Activate
    Range("J15").Select
    Sheets(Array("INFO", "DATE", "_DICT", "sved_vid_deyat", "sved_otch_org", _
        "r1_p1_p1_oboroty_1", "r1_p1_p1_oboroty_2", "r1_p1_p1_oboroty_3", _
        "r1_p1_p1_oboroty_4", "r1_p1_p1_oboroty_5", "r1_sved_KO", "r1_p1_p1_ostatki_1", _
        "r1_p1_p1_ostatki_2", "r1_p1_p1_ostatki_3", "r1_p1_p1_ostatki_4", _
        "r1_p1_p1_ostatki_5", "r1_p1_p2_oboroty_1", "r1_p1_p2_oboroty_2", _
        "r1_p1_p2_oboroty_3", "r1_p1_p3_1", "r1_p1_p3_2", "r2_p2_p1_oboroty", _
        "r2_p2_p2_oboroty", "r2_p2_p1_ostatki", "sved_rukovod")).Select
    Sheets("r1_p1_p1_oboroty_5").Activate
    Sheets("sved_otchetnost").Select Replace:=False
    Sheets("r1_p1_p1_oboroty_5").Select
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    Sheets("Общий лист").Select
    Range("M10").Select
End Sub[/COdE]
Изменено: Артем_81 - 26.11.2021 10:38:22
Некоторые сохраненные макросом формулы в значения выдают ошибку #знач после запуска макроса.
 
Уважаемые программисты, доброе утро!

Кто-нибудь из вас сталкивался со следующей ситуацией?
Пишу макрорекордером макрос: выделяю необходимые листы на которых заполненные таблицы с формулами, сохраняю эти листы способом (переместить или скопировать) в новой книге, сохраняю все листы в значениях и вижу как все хорошо сохранилось в значениях, все значения вижу, вижу что формулы исчезли, отключаю запись макроса.
И вот если запустить этот макрос, то возникает магия, часть ячеек где формулы возвращают очень длинные текстовые строки выдают вместо значений ошибку #знач!

Кто подскажет как это обойти!?
Изменено: Артем_81 - 26.11.2021 09:44:48
Во время записи макрорекордером выделяется ячейка, не несущая смысловой нагрузки
 
Надо что-то дописать помимо этого вопроса и кода который я вложил?: "А дальше я правильно понимаю, что для макрорекордера с этого момента это выглядит так: встав в ячейку I6, в ней пишу =еслиошибка(ВПР(R6;Tabl;второй столбец;0);" ")
То что вернулось в I6 протягивается до 1000-ой строки и сохраняется в значениях

Зачем далее вставать в ячейку L6 ? Или это ее случайно активировали, а потом переместились в R6 и все удалили из столбца R который создавался для впр?"
Изменено: vikttur - 25.11.2021 18:01:56
Во время записи макрорекордером выделяется ячейка, не несущая смысловой нагрузки
 
Спасибо большое!
А дальше я правильно понимаю, что для макрорекордера с этого момента это выглядит так: встав в ячейку I6, в ней пишу =еслиошибка(ВПР(R6;Tabl;второй столбец;0);" ")
То что вернулось в I6 протягивается до 1000-ой строки и сохраняется в значениях

Зачем далее вставать в ячейку L6 ? Или это ее случайно активировали, а потом переместились в R6 и все удалили из столбца R который создавался для впр?
Во время записи макрорекордером выделяется ячейка, не несущая смысловой нагрузки
 
Всем эрудитам очередной добрый день!
Друзья помогите плиз дочитать кода VBA написанный макрорекордером!
Справа напротив строк кода пишу то что понимаю, а где начинается формула не получается перевести начиная с аргумента Tab, 2

Код
  Range("P6:P1000").Select                                                                                                       'Скопировали столбец P
    Selection.Copy
   
    Range("R6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _                  'Вставили из буфера значения P в столбец R
        :=False, Transpose:=False
    
    Range("I6").Select
    Application.CutCopyMode = False                                                                                              'Активировали ячейку I6 и в ней пишем формулу:
    ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[9],Tab,2,FALSE),"""")"                         '=Еслиошибка(ВПР(R9; а дальше не понятно!!!!!
    Range("I6").Select
    Selection.Copy
    Range("I7:I1000").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("I6:I1000").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("Q6:Q1000").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("R6:R1000").Select
    Application.CutCopyMode = False
    Selection.ClearContents
End Sub  
Извлечение значения из плавающего диапазона из другой книги
 
Как же все просто, вот почему нельзя недооценивать ГПР, очень лихо она это решила!
Благодарю!
Извлечение значения из плавающего диапазона из другой книги
 
Уважаемые программисты!
Как это без VBA реализовать можно?
В ячейку B3 листа "Формула" книги "Формула" извлечь данные из Книги "Источник" из соответствующего Месяца!
Во вложении две книги.
Помогите пожалуйста!
Причем было бы интересно посмотреть и ДВССЫЛ, чисто технически, но лучше конечно другим путем реализовать, чтобы можно было обращаться к закрытому источнику.
Преобразовать текст в число!
 
Благодарю!
Преобразовать текст в число!
 
Файл примера во вложении.
Коллеги, кто сможет это реализовать (в соседнем столбце напротив)?
Я уже перебрал очень много методов преобразования текста в число. Но здесь пробелы в тексте не сдаются так просто, уже не знаю какую формулу написать!
И сжимал пробелы и значен и комбинировал это все, в общем прошу помочь!
Построчное извлечение данных с другого листа по условию в выпадающем списке
 
Благодарю!
Изменено: Артем_81 - 21.11.2021 16:23:14
Построчное извлечение данных с другого листа по условию в выпадающем списке
 
Если
написал:
для каждого ID будет создан свой лист,
то для каждого ID потребуется свой дополнительный столбец на первом листе; а на соответствующих листах придётся ссылаться на правильный столбец.

Именно так и реализовал пока что.

По поводу сортировки не совсем понял, т.к. на первом листе Мы ведь ссылаемся на ячейку в которой у нас выпадающий список, а если мы создаем несколько листов под каждый ID, то и ссылаться в любом случае надо будет на новый лист, а для этого и создается новый столбец (костыль)
Суммировать уникальные значения в Power Query
 
))) спасибо
Суммировать уникальные значения в Power Query
 
Вставил код в модуль книги в которой мой запрос, и почему то не работает!
Выдает ошибку:
Цитата
Compile error: Syntax error
Код
Sub Group_fund()
let
  src = Excel.CurrentWorkbook(){[ Name = "data" ]}[Content],
  typed = Table.TransformColumnTypes ( src, { { "balance.total.qty_units", type number } } ),
  group = Table.Group (
    typed,
    { "Shareholder_name", "Fund" },
    { { "balance.total.qty_units", each List.Sum ( [balance.total.qty_units] ), type number } }
  )
in
  group
End Sub
Суммировать уникальные значения в Power Query
 
Всем доброго дня!

Мне кажется, моя задача к этой теме относится!
Если есть уже готовый запрос, но не хватает только добавить шаг который выдаст уникальные значения по столбцам D и F одновременно?
Как получить в результате запроса не 3, а 2 строчки, где по продукту 2 будет сумма из столбца G (76+5)?
Помогите плиз!)
Построчное извлечение данных с другого листа по условию в выпадающем списке
 
Антон, спасибо, но это не для всех пользователей, т.к. не у всех есть pro версия Excel...

IKor, пример работает, спасибо!
А если задача немного изменится, и для каждого ID будет создан свой лист, как в новом примере, не могли бы помочь переписать формулу?
Построчное извлечение данных с другого листа по условию в выпадающем списке
 
Друзья, Всем доброго времени суток!

Столкнулся с очередной интересной задачей, файл примера прилагается.
На лист Отчет в ячейку С7 нужно написать формулу, которую можно будет протянуть на диапазон С7:F10 и она подтянет данные с листа Источник.
Единственное но, это то что ссылаться нужно на ячейку B2 (выпадающий список). Диапазон данных для ячейки B2 - Столбец А листа Источник.
Следовательно, при изменении значения в ячейке B2 должны обновиться все данные в диапазоне C7:F10
Заранее благодарю!
Счетеслимн + условие по минимальному значению из диапазона
 
Всем спасибо за участие. Получилось реализовать таким образом.
Но хотелось бы конечно без вспомогательного столбца который считает 1, или 0, а если возможно совместить что-то в духе: наименьший + счетеслимн.
Счетеслимн + условие по минимальному значению из диапазона
 
Попробую перефразировать задачу.
Обновил файл примера.
Есть отчетная дата: 2021.10
Есть список клиентов D, и даты их договоров: B и C
Необходимо считать тех клиентов у которых дата договора 2021.10 при условии что нет более ранней даты договора как у Петрова.
Следовательно формула должна вернуть не 4 как она считает сейчас, а только 2 -
Михеева, т.к. у него дата 2021.10 что соответствует отчетной дате и нет более ранней даты договора, и Петрова, но только его ранний договор.

P.S.
Пардон, получается по моей логике, формула должна вернуть только одного Михеева, т.к. несмотря на то что у Петрова был заключен договор 2021.10, у него был ранее договор, и его мы считать не должны.
Страницы: 1 2 3 4 След.
Наверх