Поиск
Автор: a.zaini. Здравствуйте! не могли бы помочь с макросом для ексель пожалуйстаа. Нужно чтоб две таблицы с 2 одинаковыми столбцами синхронизировались, чтоб при изменении данных в одной из таблиц сразу менялись эти данные во второй таблице, и обратно при изменении данных во второй таблице менялись в первой таблице. И чтоб фильтровались по значению среза. В прикрепленных файлах загрузила эксель файл, в котором нужно проводить эти операции. 1 таблица находится на 1Листе, срез и 2 Таблица ...
Изменен: 03.11.2023
Читать сообщение на форуме или сайте.Автор: Galina7138. Здравствуйте! Помогите, пожалуйста, решить проблему. Есть текст в ячейке: ФИО людей через запятую. Нужно разделить их на отдельные строки. Пока решаю текстом по столбцам и потом копировать с транспонированием. Но это довольно долго, а делать так приходится часто. Есть ли макрос на этот случай?
Изменен: 10.10.2022
Читать сообщение на форуме или сайте.Автор: aroz. Добрый день, искал в интернете подобное, но всё не то, возможно даже не знаю как правильно формулировать вопрос
Есть папка с файлами excel, ~10.000 файлов, в каждом по 150 строк, в строках повторяются названия - для каждого своя сумма, нужно сделать, чтобы повторений не было и каждую сумму сложить в единую, на словах ничего не понятно, поэтому делаю пример и прикладываю файл с примером (1 лист - исходная база, 2 лист - то, что должно получится)
Исходная база:ДатаДокДатаСостНаим№ ...
Изменен: 20.07.2021
Читать сообщение на форуме или сайте.Автор: Сергей Сидорин. Private Sub Приготовление_Click()
ActiveSheet.Range("$B$1:$E$36").AutoFilter Field:=3, Criteria1:="приготовление"
Dim DATANEW As String
iLRow = ActiveCell(Rows.Count, 5).End(xlUp).Row
Cells(iLRow + 1, 5).Select
DATANEW = Application.InputBox("Новая дата:")
Cells(iLRow + 1, 5).Value = DATANEW
Range("B1:E1").Select
Selection.AutoFilter
UserForm3.Hide
UserForm2.Hide
UserForm1.Hide
End Sub
...
Изменен: 12.03.2021
Читать сообщение на форуме или сайте.Автор: pancrat. Прошу помощи! Не могу сообразить, как на писать простой макрос чтения KML-файла. Требуется прочитать KML-файл, и занести данные в таблицу на листе 1. Начал писать загрузил kml-файл, дальше требуется взять из него информацию по точкам и линиям, но как это сделать... не понимаю.
Изменен: 22.02.2021
Читать сообщение на форуме или сайте.Автор: Vlad_Sm. .
Изменен: 10.11.2020
Читать сообщение на форуме или сайте.Автор: Алексей Краснов. Добрый вечер!
Столкнулся с проблемой - имеются ячейки, из которых функцией извлекается предпоследнее вхождение текста после определенного делителя "Human".
В том случае, если функция не находит подходящих значений, она возвращает #ЗНАЧ!, который мешает работе остальных функций, которые используют ссылки на эту.
Необходимо результат #ЗНАЧ! при вызове функции заменить на пустое значение ""
Долго гуглил информацию по поводу обхода ...
Изменен: 23.10.2020
Читать сообщение на форуме или сайте.Автор: restor38ru. Здравствуйте, пользователи форума.
Пытаюсь написать макрос, для копирования данных из одной книги в другую
Sub auto()
Dim r, p, a As String
r = "Путь к файлу" \\ изменил из за конфиденциальности
p = ThisWorkbook.Name
a = Dir(r)
GetObject (r)
Workbooks(p).Worksheets("1").Range("D31") = Workbooks(a).Worksheets("октябрь").Range("B4").Value
Workbooks(p).Worksheets("1").Range("D32") = Workbooks(a). ...
Изменен: 25.09.2020
Читать сообщение на форуме или сайте.Автор: a.m.v.. Всех приветствую.
Прошу помощи клуба знатоков.
Руководством поставлена задача иметь отчет по работе с generic e-mail. Я имею ввиду, некая Excel таблица в которой присутствует информация из INBOX & SENT папок: сколько писем приходит (папка INBOX), когда, от кого, тема и на сколько писем был ответ (папка SENT) от сотрудника, в обязанности которого входит работа с generic e-mail. В MS Outlook присутствует несколько учетных записей.
По создал макрос на основе приложенного ...
Изменен: 24.09.2020
Читать сообщение на форуме или сайте.Автор: Иван Растеряев. Здравствуйте! Есть возможность изменить макрос в Excel'е на большее количество значений? В данный момент макрос выдаёт только 6, а база состоит из 100 тысяч. Или будет проще написать новый макрос? Данные от кабинета Почты России имеются (токен авторизации и тд).
Изменен: 14.09.2020
Читать сообщение на форуме или сайте.Автор: Алексей Голубев. Всем привет. Стоит такая задача:
Нужно с одной книги excel выгружать все записи в другую, и каждой записи давать уникальный ID. Возможно си такое сделать?
Со страницы РМК в другую книгу, пример страницы в другой книге есть на странице "Приемка". Помогите решить данный вопрос пожалуйста!
Изменен: 16.07.2020
Читать сообщение на форуме или сайте.Автор: Max Shams. Доброго времени суток. Есть множество подобных вопросов, но не один из найденных макросов не отвечает заданным критериям.
Как сохранить в отдельные книги определенные листы?
1. Чтобы активация происходила кнопкой(предполагаю что через вставку фигуры).
2. Чтобы сохранились определенные активные листы(кнопка находится на первом листе, листы для сохранения на 3-4-5(может больше, может меньше) название у всех разное)
3. Чтобы название файлов было по названию листа
4. ...
Изменен: 13.06.2020
Читать сообщение на форуме или сайте.Автор: Станислав Вьюжанин. Добрый день друзья.
Нужна помощь. Необходимо с помощью двойного клика по диапазону в столбце G в столбец J. Не удаляя при этом значения в в ячейке J, но зачеркивая их.
Изменен: 20.02.2020
Читать сообщение на форуме или сайте.Автор: luibrain. Здравствуйте, не могу никак соскрапить значение с сайта в ячейку, мне известен css selector, но выдает различные ошибки.
Прошу помочь с решением данного вопроса.
Сайт: https://zakupki.gov.ru/epz/contract/contractCard/common-info.html?reestrNumber=2183104497918000748
Что нужно соскрапить: Дата заключения контракта - 30.10.2018 (только саму дату надо, без заголовка)
Селектор необходимого: ".container:nth-child(6) .section:nth-child(1) .section__info" ...
Изменен: 22.01.2020
Читать сообщение на форуме или сайте.Автор: zandaki2. Привет!
Нужна помощь знатоков VBA. Файл прикрепил.
Дело в том, что копировать от строки до строки очень и очень долго, в примере лишь часть файла, а по факту он огромен.
Нужен макрос, который копировал бы значение строки до тех пор, пока не появится иное значение. А затем копировал это иное значение пока не появится третье и так далее.
Начало таблицы всегда одинаковое, однако количество фамилий (строк соответственно) постоянно меняется.
Изменен: 21.10.2019
Читать сообщение на форуме или сайте.Автор: FVL. доброго времени суток, уважаемые форумчане!
довольно много времени пытался найти самостоятельно решение моей задачи, но потерпел неудачу :(
осталось надеяться на ВАШИ "светлые" головы ;)
задача заключается в следующем: есть база сотрудников (лист1 книги Тест) с частью необходимой информации (оставшаяся часть берется из другой базы), нужно создать другую (третью) базу в которой будут попадать только необходимые данные.
предположим что сотрудников больше 3000 чел и 60% ...
Изменен: 21.10.2019
Читать сообщение на форуме или сайте.Автор: Argo9. Доброго дня, позвольте спросить. Написал небольшую функцию в VBA. Я только начал вариться в кодинге. Функция работает и копирует нужные диапазон, но почему то возвращает в строку адреса значений "-1" (при некоторых изменениях true ). Я так понял так как возвращается значение типа Range, а нужно string. Значение берутся из нескольких ячеек (адреса почты). Как мне вернуть в строку адреса аутлук значение из 2-5 ячеек?
хотелось бы в строку ".To = " вбивать ...
Изменен: 24.09.2019
Читать сообщение на форуме или сайте.Автор: 5n0vv. Добрый день. Имеется вот такой код. Подскажите, пожалуйста, как в финале композиции сделать, чтобы вместо "delete" было "поместить в корзину"? Заранее благодарю.
Dim FSO '
Изменен: 20.09.2019
Читать сообщение на форуме или сайте.Автор: pervyakov.ma. Комрады, стоит задача: Из файла эксель необходимо забить в настройку отборов обработки 1С список кодов. Но так как я далек от этого, то я решил воспользоваться топорным способом и написать макрос в экселе через оператор SendKeys. И все бы ничего, только возникла проблема с обращением к окну 1С. Через оператор AppActivate не получается, так как файл приложения имеет формат 1cv8s (3).rdp и макрос выдает ошибку.
Поэтому вопрос: Есть ли простенькая команда, которая выполнит ...
Изменен: 30.05.2019
Читать сообщение на форуме или сайте.Автор: Walkish. Добрый день!
В чем суть проблемы:
Имеется сводный файл, который аггрегирует в себе различную информацию из сборки других файлов. Эти файлы выгружаются ежедневно и в их название дописывается дата, например - "Отчет1_20.03.2019".
В сводном файле каждый день приходится править дату файла в формуле:=ВПР(I4;[Отчет1_20.03.2019.csv]Отчет1_20.03.2019!$D:$G;2;0)
Я хочу написать что то типа такого: =ВПР(I4;[Отчет1_"&ТЕКСТ(СЕГОДНЯ();& ...
Изменен: 20.03.2019
Читать сообщение на форуме или сайте.Автор: Aramzes. Подскажите пожалуйста код макроса для скрытия\отмены скрытия пустых столбцов. Т.е. сначала планируется фильтровать по "фирмам", потом по "числу", и хочется видеть результат выставленных фильтров без пустых столбцов значений q1-q13.
Изменен: 14.03.2019
Читать сообщение на форуме или сайте.Автор: Valmonth502. Нужна помощь с написание кода программы.Боссу на работе нужно автоматизировать поиск в таблицах excel... Есть отдельный файл excel где около ста тысяч обозначений деталей для машины с А1 до А100000. Есть другой отдельный файл excel где список тех деталей которые менялись в 2016 году, отдельный файл за 2017 год и 2018. Боссу нужен итоговый файл где по каждой измененной детали будет отображаться номер изменения за все года. Алгоритм я придумал, но вот в синтаксисе я не силен. ...
Изменен: 27.01.2019
Читать сообщение на форуме или сайте.Автор: Valmonth502. Боссу на работе нужно автоматизировать поиск в таблицах excel... Есть отдельный файл excel где около ста тысяч обозначений деталей для машины с А1 до А100000. Есть другой отдельный файл excel где список тех деталей которые менялись в 2016 году, отдельный файл за 2017 год и 2018. Боссу нужен итоговый файл где по каждой измененной детали будет отображаться номер изменения за все года. Алгоритм я придумал, но вот в синтаксисе я не силен. Алгоритм следующий: в файле " ...
Изменен: 27.01.2019
Читать сообщение на форуме или сайте.Автор: shurikzar. Прошу помощи (VBA Макрос) по сортировке строк по таблице с n-числом строк, с i-числом возможных дубликатов.
Необходимо чтобы строки с одинаковыми "названиями" из первого столбца были друг под другом.
Изменен: 18.10.2018
Читать сообщение на форуме или сайте.Автор: Fuad1992. Добрый день уважаемые форумчане!
Кто знает как прописать в Power Query запросе, Path путь на документ не в текущей папке, а на 1 папку ниже?
Честно говоря пробовал всячески прописать путь в текущей папке, однако безуспешно( А про папку ниже вообще молчу)
Возможно ли это?)
Документ с PQ таблицей-----C:\Users\FUAD\Desktop\Cars\FORD.xlsm
Документ для выгрузки -----C:\Users\FUAD\Desktop\TEST.xlsm
Добавлю и код и файл во вложение.
Спасибо!
ActiveWorkbook.Queries. ...
Изменен: 21.06.2018
Читать сообщение на форуме или сайте.Автор: Fuad1992. Добрый день уважаемые профи.
В документе TEST имеется код, который создает новый документ в необходимой папке (Cars).
Потом, в этом новом документе, создается PQ таблица, которая привязана к документу TEST.
Там действует фильтрация ("МАРКА") и убираются не нужные строки (Остается только "Ford").
В добавок переименовывается страница, заголовок и сам файл. Новое имя пишется в InputBox.
Цель такая, чтобы в запросе, а точнее в фильтрации PQ таблицы было ...
Изменен: 21.06.2018
Читать сообщение на форуме или сайте.Автор: Alex375. Добрый день! Имеется макрос, заполняющий шаблон Word документа значениями из ячеек Excel.
В данном макросе есть функция проверки значения в ячейке excel на превышение 256 символов и вставки текста в шаблон Word пошагово, если значение превышает 256 символов:'Функция проверки и разбиения строки
Sub Replace(Word1, Word2, WD)
Lencheck = Len(Word2) 'Проверка длины строки для вставки
If Lencheck > MaxLen Then 'Если строка более 256 символов вставку следует выполнить по ...
Изменен: 06.06.2018
Читать сообщение на форуме или сайте.Автор: Walkish. Форумчане, доброго времени суток!
Прошу подсказать что делаю не так.
Имеется документ Visio, со 100 листами, необходимо каждый лист сохранить в отдельный PDF файл и назвать первыми 2мя символами листа.
Есть следущий макрос :
Sub savetopdf()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Desktop" & "\" & Left(s.Name, 2)
Next
End Sub ...
Изменен: 26.04.2018
Читать сообщение на форуме или сайте.Автор: Yahoman. Друзья, привет!
Помогите пожалуйста, кто знает...
Есть массив (столбец) с датами в текстовом формате "21/12/2017". Нужно в этом же массиве (столбце) такие записи преобразовать в формат дат.
Пример во вложении
Изменен: 28.12.2017
Читать сообщение на форуме или сайте.Автор: Kyvaldenius. День добрый.
пытаюсь сделать сортировку на выбранном диапазоне ячеек от второй строки первой ячейки до 9 столбца не известной ячейки (каждый раз может быть разная)
lLastRow- номер последней ячейки
и не знаю как дальше выбрать участок
от А2 до Н lLastRow
что бы сортировку применить на этом диапазоне ячеек
lLastRow = Cells.SpecialCells(xlLastCell).Row
Range("A3", Rows.Count).Select
'Set ra = sh.Range(sh.Range("a11"), sh. ...
Изменен: 06.09.2017
Читать сообщение на форуме или сайте.