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

Страницы: 1
Сравнение дат, Закончилась ли гарантия или нет на указанную дату
 
Форумчане! День добрый!
Подскажите пожалуйста, нужно узнать прошёл ли срок гарантии у проданного оборудования на определенную дату (вводится ручную)?
Есть дата продажи, срок гарантии в месяцах.

То есть, к примеру, можно ли сделать так, что вводишь дату (на которую необходимо узнать статус гарантии) в отдельную ячейку, и в отдельном столбце по списку напротив каждого проданного наименования автоматически заполняется "На гарантии" или "Гарантия истекла".

Или может быть сделать через формулу, в которой вводить дату, на которую требуется узнать статус гарантии и потом протягивать в отдельном столбце?
Подсчет общего времени простоя и общего времени работы оборудования по дням
 
Коллеги, товарищи, друзья!

Под новый год выпала участь срочно сделать для руководства табличку по часам работы оборудования. Без ваше помощи, как всегда, никак!

Задача состоит в следующем:

Есть выгруженные файлы со столбцами:
1. Название оборудования;
2. Проблема с оборудованием (что случилось?)
3. Состояние проблемы (1 - проблема активна, 0 - проблема устранена);
4. Дата и время изменения состояния проблемы.

Необходимо сделать две вещи:
1. Учёт общего времени простоя оборудования в часах.
2. Учёт общего времени бесперебойной работы оборудования в часах по дням.

В приложенном файле, чуть ниже исходных данных, есть пример того, что должно получиться. Естественно, сделанный вручную, не автоматически.

Время простоя вычисляется путём вычитания времени изменения состояния проблемы 0 и 1 соответственно. Но стоит учитывать, что иногда время возникновения и решения двух проблем одинаковое. Это то и есть самое сложное, помимо прочего.  
Вывод трёх максимальных значений и общей суммы
 
Коллеги, товарищи, друзья!

Снова стою с протянутой рукой на этом форуме и жду Вашей помощи.

Задача стоит следующая:
Есть массивы данных в Excel. В данном примере это файл экспорта и файл импорта большого количества групп товаров по регионам. Из них необходимо сгенерировать две отдельные таблички по всем регионам для экспорта и импорта, в которых было бы указано:

Таблица №1. Экспорт.
Название региона; Суммарное значение экспорта по региону; № группы товара 1_наибольшей суммы экспорта; значение 1_наибольшей суммы экспорта; № группы товара 2_наибольшей суммы экспорта; значение 2_наибольшей суммы экспорта; № группы товара 3_наибольшей суммы экспорта; значение 3_наибольшей суммы экспорта; Сумма остальных групп товаров;

Таблица №2. Импорт.
Название региона; Суммарное значение импорта по региону; № группы товара 1_наибольшей суммы импорта; значение 1_наибольшей суммы импорта; № группы товара 2_наибольшей суммы импорта; значение 2_наибольшей суммы импорта; № группы товара 3_наибольшей суммы импорта; значение 3_наибольшей суммы импорта; Сумма остальных групп товаров;

Исходные файлы с данными и образец с тем, что необходимо сделать прилагаю.
Изменено: User_abc - 16.03.2018 13:58:32
Переименование файлов из одной папки по списку
 
Коллеги, товарищи, друзья! 8)
Перекопав бессчетное количество странице Интернета, израсходовав тонный мегабайт трафика, общаясь с полуботами полулюдьми - я всё равно вернулся сюда к Вам за советом. :oops:
Итак, существует задача - переименовать 380 файлов, лежащих в одно папке, согласно списку Excel.
Данная тема уже не раз обсуждалась на просторах нашего Форума, но (как это бывает обычно) что-то не срастается.
Значицо, повторюсь ещё раз, есть задача:
- Переименовать 380 PDF файлов, согласно списку Excel.
- Файлы имеют имя от 1 до 380
- Я так понимаю, что нужно использовать что-то типа NewName OldName
Схожая тема была тут: http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=1&TID=47869 - но не вышло что-то (постоянная ошибка Runtime error 52 или 53). "Я ж не программист" (с)
На всякий случай контролвэшню код с прошлой темы (я думаю, что из неё можно что-то сделать):
Код
Option Explicit
Sub ПереименоватьГруппуФайлов()
Dim OldName As String, NewName As String, sPath As String
Dim i As Long, lLastRow As Long
sPath = "C:\1\"
lLastRow = Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 To lLastRow
OldName = sPath & Cells(i, 1) & ".jpg" 'старое имя в ячейке
NewName = sPath & Cells(i, 2) & ".jpg" 'новое имя
Name OldName As NewName
Next i
End Sub
 
Private Sub CommandButton1_Click()
Dim OldName As String, NewName As String, sPath As String
Dim i As Long, lLastRow As Long
sPath = "C:\1\"
lLastRow = Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 To lLastRow
OldName = sPath & Cells(i, 1) & ".jpg" 'старое имя в ячейке
NewName = sPath & Cells(i, 2) & ".jpg" 'новое имя
Name OldName As NewName
Next i
End Sub

Верю, надеюсь и жду от вас информации по поводу данной ситуации.

Всем мира и добра!
Изменено: User_abc - 04.02.2020 00:43:36
Автоматическая рассылка писем из Excel с индивидуальными вложениями, Макрос или надстройка
 
Добрый день, коллеги!

Есть таблица Excel с ФИО и адресами электронных почт людей, кому нужно отправить приглашения. Приглашения именные в pdf.
Вопрос: можно ли как-то произвести отправку рассылки с автоматическим прикреплением нужного приглашения?

Спасибо!
Копирование содержимого ячейки в буфер обмена и запуск блокнота, При нажатии на ячейку
 
Добрый день, товарищи

Подскажите по такому вопросу.

Необходимо написать макрос, который:
- при нажатии на ячейку (по клику левой кнопкой мыши на ячейке), значение ячейки копировалось в буффер обмена и запускалось сторонее приложение (допустим "Блокнот")
Страницы: 1
Наверх