Автор: LonyPay. Не получается решить задачу: Необходимо с помощью массива перенести данные: Из таблицы "приход-расход" (вложение №1), по условию:  если в столбце №16 Акт ввода в эксплуатацию >0, то  необходимо наименование переносить на другой лист "Ввод в эксплуатацию", (возможны повторяющиеся значения и количество столбцов и строк также могут меняться), написал формулу массива, но она не работает и не могу понять, где ошибка,

Автор: NV.Telegin. Добрый день Подскажите, пожалуйста, может кто сталкивался, как исправить ошибку в power query? Суть следующая: 1. В редакторе запросов делаю объединение, и после маппинга забираю нужный мне столбец (в 1 из 5 листов это работает), в редакторе он отображается, но после сохранения и закрытия, в таблицу ничего не попадает, она просто пустая (рисунок Screen 1 во вложении) 2. После обновления источников данных, даже в редакторе пропадает значение (Screen 2 во вложении), но когда я в ...

Автор: Lastdony. Как можно суммировать по условию, чтобы в первом столбце был поиск по нужному значению и когда значение найдено к примеру "отказы лишние" дальше все значения по горизонтали какие есть просуммировались, при этом таблица может расшириться поэтому сумма должна быть по диапазону и значение (к примеру "отказы лишние") так же могут по вертикали перемещаться

Автор: TheArhus. Добрый день! Прошу решить следующую проблему: Есть файл (во вложении) Отталкиваясь от столбцов "K" и "O" нужно добавить строки по следующему условию: Если в столбце "K" ячейки не равны 0 (нулю) и если в столбце "O" ячейки не равны 0 (нулю) то К каждой такой строке нужно добавить строку сверху. В этой строке ячейки со "Стоимость руб." нужно зачеркнуть. Такую добавленную строку нужно форматировать как нижнюю, включая формат данных ...

Автор: al.tarin. Здравствуйте! Необходимо чтобы сработал макрос после того, как произойдут вычисления в книге, но workbook_sheetcalculate не работает, помогите пожалуйста!

Автор: magistr_ken. Привет, знатоки. Нужна ваша помощь, слева то что написано буквами это СКЮ, сверху(2001,2002, и т.д) это код магазина. А то что между ними это продажи. Мне нужно привести это в вид где все это стоит вертикально. При этом для каждого СКЮ должны повторяться все коды магазинов,и рядом стоять продажи этого СКЮ в этот магаз. Пример как должно выглядеть показал.

Автор: Sur Arutyuni. Здравствуйте,  Мне нужно создать таблицу, которая обновляется, но проблема в том, что на странице из интернета, с которой я импортируют таблицу видно только 50 строк, а для того чтобы увидеть все 1200 строк нужно нажимать “show more”(тогда всё появляется), но excel распознает только первые 50 строк, когда вставляешь ссылку на импорт.Как сделать так, чтобы обновляемая таблица распознавала все строки сразу, чтобы даже  «show more” не нужно было нажимать

Автор: Артём Б. Всем добрый день! Есть легкое непонимание, т.к. на одном пк макрос работает корректно и переносит значения ячеек из таблицы "Таблицаисточник" в "Таблицаприемник". При попытке скопипастить макрос с заменой путей на актуальный, выходит ошибка 9, т.к. макрос не видит листа "Лист1" в "Таблицаисточник", но если добавить лист под названием "Лист1" - все значения исправно встают куда им нужно, но не в ту книгу. Вопрос в следующем, ...

Автор: Виталий Донец. В таблице есть столбец со значениями, которые получены путем сложных вычислений и несколько столбцов, критерии фильтра, нужно отфильтровать и получить разницу между текущим и предыдущим, но с учетом фильтрации по другим столбцам. Т.е. не получится текущее-1, нужно текущее-максимальное число из предыдущих удовлетворяющее критериям это может быть текущее-2, или текущее-12 и т.д. Пример таблицы во вложении. Должно быть простое решение, но что-то я запутался ))

Автор: Сергей Тихомиров. Здравствуйте, сразу к делу: нужно преобразовать данный код, чтобы он работал не только на первую строку, а на диапазон строк. Например до 10. Понимаю что скорее всего нужно взять это все в массив и использовать\внедрить For Each, но никак не получается разобраться. Заранее благодарен.Private Sub CommandButton1_Click() Dim m As Integer Dim x As Integer Dim out As Integer m = Cells(2, 1) x = Cells(2, 2) out = Cells(2, 3) For i = m To x Step -x If i > 0 Then i = i - out ...

Автор: Estelio Ammen. Подскажите, пожалуйста, как можно реализовать следующее: Необходимо обновлять все запросы и подключения (я так понимаю это ActiveWorkbook.RefreshAll) Далее сохранять файл. Сделать цикличность выполнения макроса. Есть несколько оговорок - изначально я сделал просто обновление запросов и сохранение книги, но в этом случае эксель не успевает обновить запросы перед сохранением, так что я предполагаю нужно сделать задержку между обновлением запросов и сохранением книги. Вот что ...

Автор: Жан Коштоян. Добрый день! Прошу помочь с Excel VBA. У меня excel 2010. На листе "Лист1" в ячейке R7C53 записана формула массива: {=НАИМЕНЬШИЙ(ЕСЛИ(ДВССЫЛ($AZ$7 )>=$AX$7;ДВССЫЛ($AZ$7));1)} Она вычисляет минимальное значение из диапазона записанного в R7C52 превышающее расчетное значение в ячейке R7C50. Алгоритм действий: 1. Вычисляем сечение клапана (Высота*ширину). Записываем в ячейку R7C50; 2. В диапазоне $AW$6:$AW$36 (в макросе записано в стиле R1C1) записаны максимальные ...

Автор: Сергей Тихомиров. Здравствуйте, есть макрос копирования картинок по критерию и централизация картинок в ячейке, который работает, но чем больше строк тем больше нагрузка, соответственно медленнее и тд. Вопрос: Есть ли вариант упрощения или улучшение данного макроса? Подобных строк, как в файле, 300+Sub Вставка2() Dim i&, r As Range, shp As Shape For i = 4 To 393 Set r = Sheets(2).Cells.Find(Cells(i, 3).Value, LookAt:=xlWhole) For Each shp In Sheets(2).Shapes If shp.TopLeftCell.Address = r ...

Автор: twistd. Добрый день. Необходимо при изменении значения в ячейках столбца1 (Таблица2[Столбец1]) преобразовать строку с формулами в значения. При выполнении макроса цикл не заканчивается и уходит в ошибку. Помогите подкорректировать макрос.Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range Set KeyCells = Range("Таблица2[Столбец1]") If Not Application.Intersect(KeyCells, Range(Target.Address)) _ Is Nothing Then Range(ActiveCell, ActiveCell.End ...