Поиск
Автор: zandaki2. Привет!
Нужна помощь знатоков VBA. Файл прикрепил.
Дело в том, что копировать от строки до строки очень и очень долго, в примере лишь часть файла, а по факту он огромен.
Нужен макрос, который копировал бы значение строки до тех пор, пока не появится иное значение. А затем копировал это иное значение пока не появится третье и так далее.
Начало таблицы всегда одинаковое, однако количество фамилий (строк соответственно) постоянно меняется.
Изменен: 21 Окт 2019
Читать сообщение на форуме или сайте.Автор: FVL. доброго времени суток, уважаемые форумчане!
довольно много времени пытался найти самостоятельно решение моей задачи, но потерпел неудачу :(
осталось надеяться на ВАШИ "светлые" головы ;)
задача заключается в следующем: есть база сотрудников (лист1 книги Тест) с частью необходимой информации (оставшаяся часть берется из другой базы), нужно создать другую (третью) базу в которой будут попадать только необходимые данные.
предположим что сотрудников больше 3000 чел и 60% из них...
Изменен: 21 Окт 2019
Читать сообщение на форуме или сайте.Автор: Argo9. Доброго дня, позвольте спросить. Написал небольшую функцию в VBA. Я только начал вариться в кодинге. Функция работает и копирует нужные диапазон, но почему то возвращает в строку адреса значений "-1" (при некоторых изменениях true ). Я так понял так как возвращается значение типа Range, а нужно string. Значение берутся из нескольких ячеек (адреса почты). Как мне вернуть в строку адреса аутлук значение из 2-5 ячеек?
хотелось бы в строку ".To = " вбивать значение из...
Изменен: 24 Сен 2019
Читать сообщение на форуме или сайте.Автор: 5n0vv. Добрый день. Имеется вот такой код. Подскажите, пожалуйста, как в финале композиции сделать, чтобы вместо "delete" было "поместить в корзину"? Заранее благодарю.
Dim FSO '
Изменен: 20 Сен 2019
Читать сообщение на форуме или сайте.Автор: pervyakov.ma. Комрады, стоит задача: Из файла эксель необходимо забить в настройку отборов обработки 1С список кодов. Но так как я далек от этого, то я решил воспользоваться топорным способом и написать макрос в экселе через оператор SendKeys. И все бы ничего, только возникла проблема с обращением к окну 1С. Через оператор AppActivate не получается, так как файл приложения имеет формат 1cv8s (3).rdp и макрос выдает ошибку.
Поэтому вопрос: Есть ли простенькая команда, которая выполнит действие...
Изменен: 30 Май 2019
Читать сообщение на форуме или сайте.Автор: Walkish. Добрый день!
В чем суть проблемы:
Имеется сводный файл, который аггрегирует в себе различную информацию из сборки других файлов. Эти файлы выгружаются ежедневно и в их название дописывается дата, например - "Отчет1_20.03.2019".
В сводном файле каждый день приходится править дату файла в формуле:=ВПР(I4;[Отчет1_20.03.2019.csv]Отчет1_20.03.2019!$D:$G;2;0)
Я хочу написать что то типа такого: =ВПР(I4;[Отчет1_"&ТЕКСТ(СЕГОДНЯ();"ДД.ММ.ГГГГ")&"...
Изменен: 20 Мар 2019
Читать сообщение на форуме или сайте.Автор: Aramzes. Подскажите пожалуйста код макроса для скрытия\отмены скрытия пустых столбцов. Т.е. сначала планируется фильтровать по "фирмам", потом по "числу", и хочется видеть результат выставленных фильтров без пустых столбцов значений q1-q13.
Изменен: 13 Мар 2019
Читать сообщение на форуме или сайте.Автор: zz1x1zz. Я в макросах нуб полнейший. Сегодня 4 часа изучал что есть макросы и как они работают для простейшей цели.
В итоге написал простой макрос что вносит значение NOW() даты и времениSub **
ActiveCell.Value = Now()
End SubСтолкнулся с проблемой отмены: Привычное Ctrl+z не работает. В связи с тем вопрос:
Как добавить запрет на внесение изменений в ячейки, в которых уже есть данные?
З.ы. Админ:
Поиск долго думает, а при запросе по более чем одному слову выдаёт "При выполнении скрипта...
Изменен: 28 Янв 2019
Читать сообщение на форуме или сайте.Автор: Valmonth502. Нужна помощь с написание кода программы.Боссу на работе нужно автоматизировать поиск в таблицах excel... Есть отдельный файл excel где около ста тысяч обозначений деталей для машины с А1 до А100000. Есть другой отдельный файл excel где список тех деталей которые менялись в 2016 году, отдельный файл за 2017 год и 2018. Боссу нужен итоговый файл где по каждой измененной детали будет отображаться номер изменения за все года. Алгоритм я придумал, но вот в синтаксисе я не силен. Алгоритм...
Изменен: 27 Янв 2019
Читать сообщение на форуме или сайте.Автор: Valmonth502. Боссу на работе нужно автоматизировать поиск в таблицах excel... Есть отдельный файл excel где около ста тысяч обозначений деталей для машины с А1 до А100000. Есть другой отдельный файл excel где список тех деталей которые менялись в 2016 году, отдельный файл за 2017 год и 2018. Боссу нужен итоговый файл где по каждой измененной детали будет отображаться номер изменения за все года. Алгоритм я придумал, но вот в синтаксисе я не силен. Алгоритм следующий: в файле "база"...
Изменен: 27 Янв 2019
Читать сообщение на форуме или сайте.Автор: shurikzar. Прошу помощи (VBA Макрос) по сортировке строк по таблице с n-числом строк, с i-числом возможных дубликатов.
Необходимо чтобы строки с одинаковыми "названиями" ...
Изменен: 18 Окт 2018
Читать сообщение на форуме или сайте.Автор: Fuad1992. Добрый день уважаемые форумчане!
Кто знает как прописать в Power Query запросе, Path путь на документ не в текущей папке, а на 1 папку ниже?
Честно говоря пробовал всячески прописать путь в текущей папке, однако безуспешно( А про папку ниже вообще молчу)
Возможно ли это?)
Документ с PQ таблицей-----C:\Users\FUAD\Desktop\Cars\FORD.xlsm
Документ для выгрузки -----C:\Users\FUAD\Desktop\TEST.xlsm
Добавлю и код и файл во вложение.
Спасибо!
ActiveWorkbook.Queries.Add Name:="Table1"...
Изменен: 21 Июн 2018
Читать сообщение на форуме или сайте.Автор: Fuad1992. Добрый день уважаемые профи.
В документе TEST имеется код, который создает новый документ в необходимой папке (Cars).
Потом, в этом новом документе, создается PQ таблица, которая привязана к документу TEST.
Там действует фильтрация ("МАРКА") и убираются не нужные строки (Остается только "Ford").
В добавок переименовывается страница, заголовок и сам файл. Новое имя пишется в InputBox.
Цель такая, чтобы в запросе, а точнее в фильтрации PQ таблицы было значение...
Изменен: 21 Июн 2018
Читать сообщение на форуме или сайте.Автор: Alex375. Добрый день! Имеется макрос, заполняющий шаблон Word документа значениями из ячеек Excel.
В данном макросе есть функция проверки значения в ячейке excel на превышение 256 символов и вставки текста в шаблон Word пошагово, если значение превышает 256 символов:'Функция проверки и разбиения строки
Sub Replace(Word1, Word2, WD)
Lencheck = Len(Word2) 'Проверка длины строки для вставки
If Lencheck > MaxLen Then 'Если строка более 256 символов вставку следует выполнить по этапно
Start...
Изменен: 6 Июн 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
Update:
Разобрался со всем, кому если нужно вот код:...
Изменен: 26 Апр 2018
Читать сообщение на форуме или сайте.Автор: Yahoman. Друзья, привет!
Помогите пожалуйста, кто знает...
Есть массив (столбец) с датами в текстовом формате "21/12/2017". Нужно в этом же массиве (столбце) такие записи преобразовать в формат дат.
Пример во вложении
Изменен: 27 Дек 2017
Читать сообщение на форуме или сайте.Автор: Kyvaldenius. День добрый.
пытаюсь сделать сортировку на выбранном диапазоне ячеек от второй строки первой ячейки до 9 столбца не известной ячейки (каждый раз может быть разная)
lLastRow- номер последней ячейки
и не знаю как дальше выбрать участок
от А2 до Н lLastRow
что бы сортировку применить на этом диапазоне ячеек
lLastRow = Cells.SpecialCells(xlLastCell).Row
Range("A3", Rows.Count).Select
'Set ra = sh.Range(sh.Range("a11"), sh.Range("a" &...
Изменен: 6 Сен 2017
Читать сообщение на форуме или сайте.