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

Страницы: 1
Вывод сообщения по условию, Вывод меняющегося текста по условию
 
Добрый день, есть таблица со списком работников, с указанием последнего рабочего дня по договору. Подскажите макрос, который бы при открытии проверял даты и если у кого то высвечивалась дата следующего дня (то следующий день после указанной даты последнего рабочего дня в таблице) выводил сообщение "Закончился срок договора у ххх, yyy и т.д.", где xxx и yyy - это фио работников.
Excel в PDF, Перевод нескольких листов в PDF
 
Добрый день, есть файл, с которым работаю каждый день, меня данные на разных листах. Для отчета сохраняю в PDF 3 листа (по отдельности каждый) и отправляю руководителю.
Подскажите каким макросом, который позволял бы сохранять нужные листы под нужным названием (например "яблоки 28.01.2025", "груши 28.01.2025, "мандарины 28.01.2025", где дата соответствует текущему числу).
Изменено: Юрий Греков - 28.01.2025 20:46:13
Удаление строк по условию, Удалить строки, содержащие определенный символ в столбце A
 
Добрый день, долгое время пользуюсь нижеуказанным макросом, для срытия строк со значением "X" в 1 столбце:
Sub Hide()
   Dim cell As Range
   Application.ScreenUpdating = False                              
       For Each cell In ActiveSheet.UsedRange.Columns(1).Cells      
       If cell.Value = "x" Then cell.EntireRow.Hidden = True      
   Next
   Application.ScreenUpdating = True
End Sub
Сейчас появилась необходимость не в скрытии, а в удалении строк по тем же условиям, помогите поправить макрос.
Список по дате, Выборка данных из таблицы в другую таблицу по дате
 
Добрый день. Есть таблица со списком сотрудников, с датами их увольнения (большая таблица), подскажите есть ли формула, которая проверяла даты увольнения и вытягивала в отдельный список фио тех, у кого завтра увольнение. Есть нюанс, в ячейках с датой увольнения есть текст, указывающий на причину увольнения, просто не привяжешься к ячейке, как к дате.
Изменено: Юрий Греков - 15.10.2024 19:22:10
Вынос текста из кавычек, Вынести текст из кавычек в отдельный столбик
 
Добрый день, есть необходимость из общего текста в ячейке выдернуть только слова в кавычках, отдельным столбиком (по слову в ячейке, прописными буквами). Буду так же благодарен за формулу, которая сверит выдернутые слова со словами в другом столбике и отобразит только не совпадающие значения.
Заполнение табеля по кнопке, Перенос данных из диапазона в ближайший свободный столбик
 
Добрый день. Имеется файл с 2 вкладками: Личный состав и табель. В личном составе меняется расположение людей в текущий момент, командировка, в депо, больничный и т.д., в табеле проставляем данные по расположению на конец рабочего дня. В примере указано 3 небольшие бригады, на деле в рабочем файле их гораздо больше, 400 человек. В табель добавлен столбик (AS) копирующий текущее расположение специалистов из вкладки Личный состав. Каждый вечер нужно вручную выделять весь этот столбик и копировать в нужный день.
Прошу помочь с макросом, который по нажатию кнопки будет сам копировать данный столбик в нужный день (в ближайший свободный день).
PS: позиции специалистов в табеле и личном составе соответствуют друг другу.
Изменено: Юрий Греков - 27.05.2024 11:17:24
Макрос для заполнения пустой ячейки., Заполнения пустой ячейки значением из другой ячейки.
 
Добрый день, есть таблица с разными расчетами, возник 1 вопрос, который не могу решить самостоятельно, через формулы решить не возможно, а в макросах особо не разбираюсь.
Суть проблемы: для получения результата нужно перемножить значения 2 ячеек; в одной ячейке фиксированное значение, а вот во второй может меняться, либо стандартное значение (указано в отдельной ячейки), либо, в случае необходимости, введено вручную.
Таблица большая, не хотелось бы еще растягивать её, по этому нужно, что бы в 1 ячейке отображалось значение либо введенное вручную, либо, в случае удаления ручного значения, пустая ячейка заполнялась "значением по умолчанию".
С документом будут работать разные люди, не все знают "значение по умолчанию", нужно, что бы они его видели и могли понимать, оставить как есть, или есть необходимость изменить его, поставив свое
Пример файла прикладываю.
Отдельная просьба в макросе сделать указание листа, т.к. в моем документе их много. А также диапазон ячеек, на листе (он отличается от примера).
Список Уникальных значений с удалением определенных значений из другого списка, Список Уникальных значений с удалением определенных значений из другого списка
 
Добрый день, есть 2 списка с данными и 3 список Уникальных значений из 1 списка, подскажите как дополнить формулу в 3 списке, что бы не отображались значения из 2 списка. Пример прилагаю.
Изменено: Юрий М - 10.09.2023 18:08:05
Объединение данных в 2 ячейках без формул.
 
Имеются 2 столбика с документами, в 1 столбике прописываются сотрудники по подразделениям (в 1 ячейке все сотрудники из 1 подразделения), в другом идет подсчет этих сотрудников (сколько человек указанно в ячейке), нужно объединить эти ячейки, что бы в конце ячейки из 1 столбика, после сотрудников, в кавычках писалось, сколько человек в ячейке указано. Проблема в том, что 1 столбик находится в середине большой таблице, добавить рядом 2 столбик с количеством людей нельзя (используется внутренний стандарт таблицы), пришлось вывести его за пределы таблицы, что бы не считать людей вручную.
Возможно есть способ изменить формат ячейки (пользовательский, с указанием отображения данных из определенной ячейки, если такое возможно. Ну или сделать макрос, для этого (1 вариант предпочтительней).
Изменено: Юрий Греков - 02.02.2023 13:03:38
При изменении в одной из группы ячеек менять значения в других ячейках
 
Всем добрый день, есть необходимость создание таблицы, такого формата, что бы была возможность менять значения как минимум в 2 ячейках из 3, в связке 1 примера.
Например: 4+2=6 состоит из 3 ячеек со значениями: 4, 2 и 6(сумма первых 2 ячеек), можно как то реализовать возможность изменять ячейки  1 и 3 (значения 4 и 6) , с сохранением правильности примера, то есть при замене скажем значения 4 на 6 в 3 ячейке значение 6 должно поменяться на 8(6+2=8), при этом заменив значение в 3 ячейке скажем с 6 на 10, значение в 1 ячейке автоматом менялось на 8(8+2=10).  
Если возможность как то это сделать?
Изменено: vikttur - 23.06.2021 10:39:37
Скрыть/отобразить строки с определенным значением, применить макрос для нескольких листов
 
Добрый день, есть макрос, давненько нашел его на просторах интернета, позволяет скрыть строки содержащие слово "Нуль", а при повторном применении отобразить их, если "Нуль" уже отсутствует, сейчас нужно переделать его, что бы при запуске на основной странице, он применялся на ряде необходимых листов (Например Лист2, Лист3, Лист9 и т.д.) Помогите отредактировать, не особо разбираюсь в этом.
Код
Sub Обновление()
    Columns.Hidden = False
    Rows.Hidden = False
    Dim ra As Range, delra As Range, ТекстДляПоиска As String
    Application.ScreenUpdating = False    ' отключаем обновление экрана

    ТекстДляПоиска = "Нуль"    ' удаляем строки с таким текстом

    ' перебираем все строки в используемом диапазоне листа
    For Each ra In ActiveSheet.UsedRange.Rows
        ' если в строке найден искомый текст
        If Not ra.Find(ТекстДляПоиска, , xlValues, xlPart) Is Nothing Then
            ' добавляем строку в диапазон для удаления
            If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
        End If
    Next
    ' если подходящие строки найдены - удаляем их
    If Not delra Is Nothing Then delra.EntireRow.Hidden = True
End Sub
Страницы: 1
Наверх