Автор: shooreek. Добрый день! Помогите, пожалуйста, с макросом. Второй день пытаюсь решить простецкую задачу, но интернет предлагает не совсем то, что мне нужно. Поиск по форуму тоже не помог.  В общем, необходимо из сводной таблицы копировать значения из диапазона C56:C155 в другой лист, чтобы первая ячейка этих данных была в первой непустой ячейке строки 2. Дело в том, что каждую неделю данные будут пополняться. Записал макрос, но он копирует данные в активную ячейку. Я полагаю, что не хватает...

Автор: Alex3209. Друзья, ищу помощь в отключении визуализации при заполнении Powerpoint - слайдов с помощью макроса. Суть проблемы: есть макрос, который переносит данные из ячеек листа Excel в ячейки таблиц на слайдах Powerpoint. Сам макрос работает хорошо, информация с листа эксель переносится на ppt слайды так, как нужно, но есть проблема в том, что заполнение каждого слайда занимает от ~2 до ~10 секунд (в зависимости от кол-во ячеек), а таких слайдов могут быть десятки. При этом я визуально могу...

Автор: peter335. Добрый вечер всем, Есть Лист-опросник (Да/нет) Лист, куда необходимо по кнопке на нем скопировать все строки с листа-опросника, ответ на которые составляет "Да" Друг за другом, начиная с первой пустой строки после шапки Посмотрите код, плз - где-то ошибка( выдает ошибку в строке " b(r,1) = a(i, 1), пишет b(r,1) out of range)  Блок стилей "STYLE" Sub Rectangle2_Click() Dim a() As Variant, b() As Variant, c() As Variant, i As Long, r As Long, iLastRow1 As Long...

Автор: LackOfImagination. Добрый день! Написал макрос (код в приложении, сам файл выкладывать не хотелось бы из-за большого объема и персональной информации, да и суть вопроса не в этом), смысл которого достаточно прост: в столбце В даты записаны как "31.01.2018  9:58:42" (в таком виде выгружаются из БД), я хочу оставить в значениях только дату. Все работает замечательно, за пару секунд обрабатывается весь массив, как и ожидалось. В книге есть odbc подключение, которое обновляет значения...

Автор: DDW. Добрый день. Вставил объект на лист. ActiveSheet.OLEObjects.Add(ClassType:="Paint.Picture", Link:=False, _ DisplayAsIcon:=True, IconFileName:="C:\WINDOWS\system32\mspaint.exe", _ IconIndex:=0, IconLabel:=txt).Select With Selection .name = txt .Placement = xlFreeFloating .PrintObject = False End With И так создаю несколько объектов. Далее вставляю картинку в какой нибудь объект. Вопрос: "Как узнать, в каком объекте есть картинка и какой у него размер, а какой...

Автор: antontanachev. Добрый день! Есть много-много графиков в файле, которые каждую неделю дополняются данными новой недели. В примере оставил 3 штуки из одной таблицы. Нужен макрос, который будет всю коллекцию графиков на всех листах обновлять путём смещения диапазона на одну ячейку вправо. У каждого графика от 2 до 5 диапазонов по которым строится. Не могу сообразить как это сделать. Поможете? Хочу именно макросом, т.к. мне будет удобнее настроить кнопку на какую-нибудь вкладку _______ Уровень...

... маршрутах, человеку в одиночку тяжело. Решил помочь но понял что моих знаний не достаточно потому прошу матерых людей кто разбирается в VBA эксель есть таблица имеем к примеру постоянный адрес A и не постоянные адреса B нужно что бы люди заполняя ячейки например столбца A выдавало ...

Автор: mega31. Добрый день. Есть макрос для копирования данных из таблицы ворда, а затем обработки этих данных в Excel. Все работает, но затем мы отправляем эти данные на печать путем вставки данных в закладки файла Word. У меня работают макросы  везде: и на виртуальной машине с 2010 офисом,  и на моем компьютере с 365 последней версией. Но у коллеги не работает вообще. При чем именно отправка на печать. Пишет "вызванный объект был отключен от клиентов". Зайди в Visual Basic тоже нельзя...

Автор: xottabuch. Добрый день. Я совсем не силен в написании макросов, поэтому прошу помощи в следующем. Есть отличный макрос https://www.planetaexcel.ru/techniques/3/45/ (https://www.planetaexcel.ru/techniques/3/45/). Как нужно переписать 51 строчку, чтобы гиперссылка открывала файл, а значение ячейки выводилось как название файла. Заранее благодарю за помощь.

... TextOption Explicit '--------------------------------------------------------------------------------------- ' Procedure :   СцепитьЕсли ' Author    :   The_Prist(Щербаков Дмитрий) ' Purpose   :   https://www.excel-vba.ru/chto-umeet-excel/kak-scepit-neskolko-znachenij-v-odnu-yachejku-po-kriteriyu... '--------------------------------------------------------------------------------------- Function СцепитьЕсли(ByRef Диапазон As Range, ByVal Критерий ...

Автор: Annaannaannaanna. Подскажите, пожалуйста. Существует простой код, который вытаскивает некоторые данные с сайта. Сейчас ссылка URL прописана в коде. Но хотелось бы, чтобы ссылка была взята из ячейки ( D4,лист СВОДНАЯ ТАБЛИЦА), где сейчас существует в виде гиперссылки.   Sub Датааукциона() ' Датааукциона макрос '     Sheets("Тех.лист).Select     With ActiveSheet.QueryTables.Add(Connection:= _         "URL;http://zakupki.gov.ru/epz/order/notice/ea44/view/common-info.html?regNumber=0373200032218000946";...

Автор: Fuad1992. Добрый день уважаемые форумчане! Кто знает как прописать в Power Query запросе, Path путь на документ не в текущей папке, а на 1 папку ниже? Честно говоря пробовал всячески прописать путь в текущей папке, однако безуспешно( А про папку ниже вообще молчу) Возможно ли это?) Документ с PQ таблицей-----C:\Users\FUAD\Desktop\Cars\FORD.xlsm Документ для выгрузки -----C:\Users\FUAD\Desktop\TEST.xlsm Добавлю и код и файл во вложение. Спасибо! ActiveWorkbook.Queries.Add Name:="Table1"...

Автор: Fuad1992. Добрый день уважаемые профи. В документе TEST имеется код, который создает новый документ в необходимой папке (Cars). Потом, в этом новом документе, создается PQ таблица, которая привязана к документу TEST. Там действует фильтрация ("МАРКА") и убираются не нужные строки (Остается только "Ford"). В добавок переименовывается страница, заголовок и сам файл. Новое имя пишется в InputBox. Цель такая, чтобы в запросе, а точнее в фильтрации PQ таблицы было значение...

Автор: zhmerin. Добрый день. Хочу сделать форму, в которую я буду вводить значение, а оно потом будет вставляться в формулу ВПР Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then If TextBox1.Value = "" Then MsgBox ("введите артикул") Else ActiveCell.FormulaR1C1 = "=VLOOKUP(UserForm1.TextBox1.Value,'Паллеты к отгрузке'!C[-10]:C[-8],3,0)" End If End If End Sub а в итоге получается это: =ВПР(UserForm1...