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

Страницы: 1 2 След.
Копирование диапазона и вставка во все файлы в папке по условию
 
Друзья, привет. Помогите исправить условие в коде макроса. В открытом файле "Пример_Заявка копируем", макросом копируем диапазон на листе "Заявка"  A26:M37. Макрос должен вставить в файлы в выбранной папке (в данном случает файл "Пример_сюда вставить", найти в столбце "В" слово "ТОВАР" и после этого слова вставить скопированные значения с формулами. Спасибо.
Изменено: natalia875 - 25.03.2025 15:49:22
Поиск макросом слова в столбце и копирование данных
 
Друзья бодрый день. Помогите подправить условие в коде макроса. Суть макроса: открываем макросом файл в папке, переходим на лист "Данные", копируем диапазон A26:M37. И это все работает, НО, если в открытом файле этот диапазон смещен вверх или вниз, то копирует уже не то что нужно. Необходимо сделать поиск на листе "Данные" слова "ПРОДУКТЫ" и копировать диапазон. В примере все расписано. Заранее спасибо.
Создание условия в формуле для вычисления
 
Добрый день, друзья. Помогите плиз создать условие для дальнейшего вычисления. В ячейках A1:A12 могут быть любые числа. Как сделать условие  в ячейке B1, если в диапазоне ячеек A1:Ф12 имеются числа: 45, 50, 55, 60, 65, то в ячейке B1=2, иначе =1. Заранее всем большое спасибо.
Копирование макросом ячейки с формулой из одного файла и в ставка во все файлы в папке
 
Добрый день, друзья, подскажите пожалуйста. Копирую из "файла1" ячейку с "Лист1" ячейкаВ5  (в этой ячейке формула = Лист2!Н5+Лист2!Н6). вставляю во все файлы в папке на лист1 в ячейку В5. вставляется, но формула вставляется со связями на "файл1". Как убрать связь? Если копировать формулу только с листа1, то во всех файлах вставляется формула, а если копировать ячейку, в которой формула ссылается на лист2, то вставляется со связью на данный файл. Файлы все с одинаковыми именами листов.
Изменено: natalia875 - 06.06.2024 15:26:44
Копирование макросом данных в одном файле и вставка во все файлы в папке
 
Добрый день друзья, помогите найти ошибку в макросе. Из файла "Пример_макрос" копируем K10:M21, выбираем папку с файлами. Макрос заходит во все файлы. В каждом файле макросом переходим на лист "исх",  снимаем пароль(147) с листа, вставляем формулами в диапазон K10:M21 скопированные данные, ставим курсор в "J1", ставим защиту(147 с выбранными разрешениями), на лист, сохраняем, переходим к следующему файлу. И т.д. по всем файлам, в выбранной папке (в нашем случае 3 файла).
Создание ярлыков макросом на основании данных таблицы
 
Добрый день, друзья. Подскажите как мне сделать создание ярлыков макросом с условием на основании таблицы. На листе "данные" "А4:B34" имеются данные, в столбце D - количество листов ярлыков. (1лист ярлык =максимум 200экз.). Если например 380экз., то необходимо создать два листа с заполненными данными (один 200экз, один 180экз.). Т.е. на листе "данные" в ячейке "D35" подсчитывается сколько нам нужно листов-ярлыков (в нашем примере 25).

Условие1: Нужно скопировать на листе "ярлыки" строчки 2-7 и вставить их заданное количество раз (в нашем примере 25шт).
Условие2: Нужно эти ярлыки (25шт) заполнить данными с листа "данные" B1 на лист "ярлыки" в C3, С10, С17 и т.д. во все ярлыки. С листа"данные" А4 в лист "ярлыки" в C4 (22). С А5 в С11 (200), с А5 в С18 (180) и т.д.
Скрываем определенный лист при открытии файла определенным пользователем
 
Добрый день, друзья. Можно придумать макрос под следующую задачу: если файл открыл пользователь "tech2", то скрыть "лист17". Т.е. все пользователи при открытии файла видят все листы, а пользователь "tech2" не видит "лист17". Заранее спасибо.
Перевод значения времени в нужный формат
 
Добрый день друзья, подскажите как значение например 0,112 часа перевести в вид: 0:7:00. Т.е. 0,112 часа -это 7 минут. Заранее всем спасибо.
Поиск первого значения в столбце больше нуля
 
Ребята всем, привет. Подскажите как макросом найти в столбце D в интервале D8:D90 первое значение больше нуля, и поставить курсор справа от этого значения?
Изменено: natalia875 - 16.02.2022 13:34:43
Сбор данных из нескольких файлов в папке в отдельный файл макросом
 
Добрый день. Имеются файлы в папке, как макросом скопировать из всех файлов с листа "Исх" интервал "B2:E10" и вставить в файл, из которого запускаем макрос на лист1. Помогите пожалуйста.
Копирование макросом данных из одной книги во все книги в папке
 
Всем добрый день, ребята помогите с ошибкой: Метод PasteSpecial из класса Range завершен неверно. Суть макроса: Копируем ячейки с листа "Расчет" E33 и E48 из одного файла, и вставляем во все файлы в папке на лист "Расчет" в E33 и E48. Вот часть кода.

Код
Sub COPY () 
...
'копирование и вставка
 For Each FILE In MASSIV
  Range("E33","E48").Select   'эти ячейки копируем из одного каталога
  Selection.Copy             
    Workbooks.Open Filename:=FILE 'открываем другой файл             
    Sheets("Расчет").Select 'переходим на лист           
     With ActiveSheet               
    .Unprotect ("123") 'снимаем пароль                 
      Range("E33","E48").Select                 
       Selection.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats, Operation:= _                 
       xlNone, SkipBlanks:=False, Transpose:=False 'вставка формулы и форматы чисел                 
      Range("D36").Select                
      Sheets("Расчет").Select 'ставим пароль              
    .Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True              
End With    
...        
Запуск макроса из VBAProject(PERSONAL.XLSB)
 
Добрый день друзья. Подскажите как подправить код, чтобы макрос запускался из VBAProject(PERSONAL.XLSB)?
Код
Sub MacrosVoVseFaili()
    Dim ipath$, fname$, book As Workbook
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show Then ipath = .SelectedItems(1) Else Exit Sub
    End With
    fname = Dir(ipath & "\*.xls*")
    Do While fname <> ""
        Set book = Workbooks.Open(ipath & Application.PathSeparator & fname)
        
 '''запустить макрос из VBAProject(PERSONAL.XLSB) Module2_PriceImport?
        Call PPriceImport
        
        
        book.Close True
        fname = Dir
    Loop
End Sub
Изменено: natalia875 - 24.12.2020 15:38:48
Копирование макросом и вставка данных с одного листа на другой лист
 
Всем добрый день. Ребята помогите решить задание, нужно скопировать данные с одного листа и вставить на другой лист макросом. Подробности в примере.
Скрытие заданного столбца при печати
 
Друзья, всем добрый день, помогите подправить условие в коде. Нужно чтобы столбец D скрывался только при печати (не распечатывался).
Округление значения в ячейке макросом
 
Ребята, всем добрый день, подскажите плиз как округлить значение макросом в ячейке (чтобы сумма была без копеек). всем большое спасибо.
Вставка макросом формулы из одной ячейки в другую в виде текста
 
Друзья помогите плиз выполнить условие, наглядно в файле-примере. Заранее спасибо.
Переход макросом по строке на количесво столбцов по условию
 
Добрый день, подскажите что мне подправить, чтобы выполнялся макрос (ячейка К5 = 7, как переместиться от ячейки N5 на кол-во ячеек вправо из K5) :
Код
Sub Macros1()
    Range("N5").Select
    i = K5
    ActiveCell(1, i + K5).Select 'перемещение вправо
End Sub
Копируем код макроса и вставляем во все файлы в папке в код
 
Ребята, добрый день. Возможно сделать такое макросом? Необходимо из одной книги скопировать код макроса и вставить этот скопированный код во все файлы находящиеся в папке на "Лист12 (Исх)". При открытии VBA Project Password снять/установить известный нам пароль. Заранее спасибо.
Изменено: natalia875 - 12.02.2020 16:16:44
Вставка из буфера обмена макросом
 
Добрый день, друзья. Подскажите плиз с решением задачки макросом: выделяем и копируем А1:А15, переходим в ячейку В8 и вставляем в виде текста. Заранее спасибо.
Макрос поиска заказа в имени файла и сбор необходимых данных в файл
 
В столбце "А" проставлены №№заказов(их может быть много). Есть папка "Отчеты", где имеются файлы, которые начинаются в наименовании:0937 Книга, 1104 Блокнот, 11486 Книжка, и т.д. может быть много. Необходимо макросом найти файл с название № заказа (0937…), перейти на лист "Отчет", скопировать данные из С4, С6, G4, G6 и вставить в файл "выгрузка отчетов" в столбцы.
Изменено: natalia875 - 17.09.2019 13:40:08
Поиск, копирование данных из разных файлов и вставка в отчет
 
Добрый день, ребята. Помогите подправить макрос. В файле "выгрузка отчетов" в столбце "А" проставлены №№заказов(их может быть много). Есть папка "Отчеты", где имеются файлы, которые начинаются в наименовании: 0937 Кукушкин АН; 1681 Разуваева НН; 1984 Труфакин ДЭ и т.д.(может быть много), в самих файлах есть лист "Отчет" с данными в С4 и С6. Как найти заказы, которые есть в "выгрузка отчетов" перейти в них на лист "Отчет", скопировать данные из С4 и С6 и вставить в файл "выгрузка отчетов в столбцы. Заранее всем спасибо.
Изменено: natalia875 - 09.09.2019 10:04:23
Макрос для печати определенных страниц листа
 
Добрый день, подскажите почему не работает макрос печати определенных страниц листа. Например, если AL47=0, то эту страницу не печатаем, а если AL47>0 то печатаем, и т.д.
Код
Sub Print_IN16()
      ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
    If ActiveSheet.Range("AL47") <> 0 Then _
       ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate:=True
    If ActiveSheet.Range("AL93") <> 0 Then _
       ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate:=True
    If ActiveSheet.Range("AL139") <> 0 Then _
       ActiveWindow.SelectedSheets.PrintOut From:=4, To:=4, Copies:=1, Collate:=True
    If ActiveSheet.Range("AL191") <> 0 Then _
       ActiveWindow.SelectedSheets.PrintOut From:=5, To:=5, Copies:=1, Collate:=True
    If ActiveSheet.Range("AL241") <> 0 Then _
       ActiveWindow.SelectedSheets.PrintOut From:=6, To:=6, Copies:=1, Collate:=True
    If ActiveSheet.Range("AL291") <> 0 Then _
       ActiveWindow.SelectedSheets.PrintOut From:=7, To:=7, Copies:=1, Collate:=True
    If ActiveSheet.Range("AL341") <> 0 Then _
       ActiveWindow.SelectedSheets.PrintOut From:=8, To:=8, Copies:=1, Collate:=True
End Sub
Поиск последней заполненной ячейки в столбце и выделение области ячеек
 
Ребята, как выделить диапазон макросом после выполнения макроса "скрыть пустые строки по столбцу А"? Т.е. от A1, (как найти последнюю заполненную ячейку в столбце А (в данном случае А392)и выделить область А1:AK392.
Печать только не скрытых строк на листах
 
Добрый день. Например на листе "наряд" есть данные (8печатных листов), в зависимости от условия некоторые строчки скрываются макросом по условию (строчки с пустыми значениями). В в итоге может остаться например 2 листа. Когда нажимаю просмотр, то показывает все 8 листов, из них 6 пустые, и 2 которые нужно распечатать. Как сделать, чтобы распечатывались только те листы (в нашем случае 2), на которых строчки не скрыты, а не все 8 листов. Заранее спасибо. Вот пример, как сделать чтобы распечатывались только 5-я и 8-я стр?
Изменено: natalia875 - 30.08.2019 13:50:10
Поиск и подстановка значений из таблицы
 
Добрый день друзья, помогите пожалуйста исправить формулу поиска и подстановки значения. заранее спасибо.
Появление информационого сообщения
 
Добрый день. Как сделать, если в B17:B20 внесли новый материал и не внесли сначала тип - напр Картон мелованный 50*70*230, то выскакивало бы сообщение: "Внесите тип материала!" Заранее всем спасибо.
Поиск значения в интервале и подстановка значений интервала
 
Добрый день, друзья. Помогите плиз создать условие поиска нашего значения в имеющемся интервале чисел и подставить значения интервала в ячейки. Заранее всем спасибо.
Перевод времени из числового формата в часы минуты секунды
 
Добрый день. Ребята, подскажите как подправить формулу, чтобы например время в числовом формате 0,01 показывало в формате чч:мм:сс, т.е. 00:00:06. 0,167 = 00:10:02. Вот формула, она показывает только часы и минуты, а секунды нет.  =СЦЕПИТЬ(ОТБР(A1;0);":";ЦЕЛОЕ((A1-(ОТБР(A1;0)))*60);":";"00")
Как отключить все фильтры на заданной странице
 
Добрый день, друзья. В файле выполняется макрос копирования допустим с "Лист2" определенных данных и вставка их в "Лист1" в таблицу. Вопрос- как при переходе на "Лист1" выключить все фильтры? Т.е. чтобы на листе1 показывались все данные (стояла галочка "выделить все", а не конкретный выбор). Заранее всем спасибо.
Изменено: natalia875 - 08.10.2018 14:24:05
Подсчет суммы значений из таблицы по двум условиям
 
Добрый день, ребята. Подскажите плиз как формулой подсчитать сумму значений по двум условия из таблицы. Условие1 - код, условие2 - оборудование. Заранее всем спасибо.
Страницы: 1 2 След.
Loading...