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

Страницы: 1
Как открыть Excel файл, лежащий в OneDrive, Нужно открывать с локальным путем в место ссылок типа( https://d.docs.live.net/8a............)
 
Удалось решить проблему?
Запрет заливки цветом ярлык листа, Запретить пользователям в локальной сети заливать цветом ярлычок листа
 
Юрий М,Задача есть, суперстойкость не обязательна. Пропишите плиз, как осуществить возможные варианты.
Запрет заливки цветом ярлык листа, Запретить пользователям в локальной сети заливать цветом ярлычок листа
 
Доброго времени суток!

Мудрейшие гуру excel, помогите разобраться.

Как запретить макросом заливку цветом все ярлыки листа в книги, включая вновь созданные.

И разрешить только определенным пользователям.

Спасибо!
Изменено: Zloy-Ramses - 30.07.2018 14:50:33
Расчет общей наработки если не всегда есть фактические данные
 
Karataev,Огромнейшее  спасибо, Работает!
Расчет общей наработки если не всегда есть фактические данные
 
Кнопка цитирования не для ответа [МОДЕРАТОР]

Представим идет наработка ежедневно 111, 122, 133, и.т.д пока этот счетчик не выйдет из строя,  далее замена счетчика (начинает с нуля) 0, 10, 20, 30 и.т.д
Нужно что бы разница нового счетчика прибавляла к старой наработке т.е продолжить 143, 153, 163, и.т.д до следующей замены.
Изменено: Zloy-Ramses - 09.04.2018 10:35:14
Расчет общей наработки если не всегда есть фактические данные
 
БМВ Спасибо большое за Ваш отзыв, все работает хорошо, но при замене счетчика значения переходят в минус.
Изменено: Zloy-Ramses - 09.04.2018 19:46:32
Расчет общей наработки если не всегда есть фактические данные
 
Цитата
Karataev написал:
Или в строке 5 должны быть пустые ячейки, если в строке 3 пусто
Karataev Ничего страшного если строка 5 будет заполнена. Главное что бы считало.
Расчет общей наработки если не всегда есть фактические данные
 
Добрый день дорогие форумчане!

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

Во вложении я примерно описал задачу.
Спасибо.
Изменено: Zloy-Ramses - 08.04.2018 13:24:11
Макрос на добавления листов из шаблона, Макрос на добавления листов из шаблона присваимая имя по порядку
 
Всем привет!!! Народ подскажите пожалуйста что тут неправильно?
Код
Sub Copy1()
    Dim shRes As Worksheets
    Set shRes = Sheets("лист 1").Copy(Before:=ActiveSheet)
    If shRes.Index = 1 Then
        shRes.Name = 1
    Else
        shRes.Name = shRes.Previous.Name + 1
    End If
End Sub
Скрыть раскрыть строки VBA, Скрыть строки от выделенной до нужной
 
1Rows("2:" & ActiveCell.Row - 1).Hidden = True
Работает!!!! Огромное спасибо! Жизнь немного стала легче!!!
Скрыть раскрыть строки VBA, Скрыть строки от выделенной до нужной
 
Добрый день О, великие покорители excel.
Подскажите пожалуйста как можно макросом скрыть строки от выделенной по 2ю строку.
Так как, в 1ой строки находится заголовки, таблица все время пополняется нужно при отправке по почте указывать шапку и недавно заполнянные строки снизу.
Все время скрывать строки вручную неудобно их много.
Находил много подходящих тем, но мой пример не нашел.
Распределение по складам, Распределения остатка с центрального склада по участковым складам с помощью формул
 
Спасибо Ігор Гончаренко все работает.  
Распределение по складам, Распределения остатка с центрального склада по участковым складам с помощью формул
 
Доброго времени суток!
Дорогие форумчане помогите разобраться с очень не простым делом, распределением остатка склада с помощью формул. Дело в том что позиций очень много и вручную это занимает очень много времени.

Надо что бы с помощью формул распределял количество учитывая предыдущий расход, фактический остаток, и остаток на центральном складе.

Файл примера во вложении.
Макрос на создания листов из шаблона и переименованию по порядку
 
Вроде работает! Спасибо огроменное)
Макрос на создания листов из шаблона и переименованию по порядку
 
Не работает! ошибку выдает! По порядку не переименовывает. Пример 1,2,3,4,5,6,7,8,9 итд
Макрос на создания листов из шаблона и переименованию по порядку
 
Слева от активного листа и надо!
Макрос на создания листов из шаблона и переименованию по порядку
 
Типа этого!
Макрос на создания листов из шаблона и переименованию по порядку
 
Цитата
Юрий М написал:
Вариант: создать в книге этот самый лист-шаблон и копировать этот лист. А после копирования меня имя.
Шаблонов несколько. не один. Есть книга заказов, в ней каждый лист это заказ з/ч на склад. сколько складов столько шаблонов. Нужно чтобы одним нажатие кнопки по определенному складу. вызвался нужный шаблон, создал лист и переименовал его по порядку. 1,2,3,4,5,6,и.т.д  
Макрос на создания листов из шаблона и переименованию по порядку
 
Нет, ячейка C7 должна иметь имя листа
Макрос на создания листов из шаблона и переименованию по порядку
 
Добрый вечер! Народ подскажите пожалуйста макрос на переименования листа по порядку.
Начал так, а имя листа остается как в шаблоне.
Код
Sheets.Add Type:= _
    "C:\шаблоны\Склад ТМЦ СУ шахты № 55 ВЖР КМС Склад № 1 шахта 55"
    
    Range("C7") = ActiveSheet.Name
   ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
Создать книги по шаблону из списка, Создание книг excel из шаблона по списку макросом
 
Спасибо!
Создать книги по шаблону из списка, Создание книг excel из шаблона по списку макросом
 
Всем Привет!
Народ подскажите пожалуйста как создать макросом файлы певички расчетов из списка машин, где нужно указывать по каждой позиции наработку, номер машины, ОС, в шаблоне в листе данные к заполнению.
Пробовал так, но так только по каждой машине шагать.
Код
Sub Макрос1()
    Dim New_Wb As Workbook
    Set New_Wb = Workbooks.Add
    New_Wb.Activate
    Sheets.Add Type:="D:\test\Шаблон.xltx"
    Sheets("Данные к заполнению").Range("D1") = ThisWorkbook.Sheets("Лист1").Range("J1")
    Sheets("Данные к заполнению").Range("D3") = ThisWorkbook.Sheets("Лист1").Range("I1")
    Sheets("Данные к заполнению").Range("D4") = ThisWorkbook.Sheets("Лист1").Range("L1")
    Sheets("Данные к заполнению").Range("D7") = ThisWorkbook.Sheets("Лист1").Range("M1")
    New_Wb.SaveAs ("D:\test\" & ThisWorkbook.Sheets("Лист1").Range("J1") & ".xlsx")
    New_Wb.Close
End Sub

Как можно сделать разом по всему списку, т.е 150 строк - 150 книг из шаблона.
Название книги должно соответствовать названию машины Столбец J Список.xlsx.

Файлы удалены: превышение допустимого размера вложения [МОДЕРАТОР]
Изъятие значения из ячейки, работа с каталогами
 
Пойдут оба варианта.
Изъятие значения из ячейки, работа с каталогами
 
То что надо! Спасибо большое!
Изъятие значения из ячейки, работа с каталогами
 
где выделили красным это то что нужно
Изъятие значения из ячейки, работа с каталогами
 
Да Примерно так
Изъятие значения из ячейки, работа с каталогами
 
2501-15-25-20СП
Изъятие значения из ячейки, работа с каталогами
 
кнопка цитирования не для ответа [МОДЕРАТОР]

Как это работает? скинь плиз на примере который выше.
Изъятие значения из ячейки, работа с каталогами
 
Каталог запасных частей не должен быть изменен. Т.е тире, точки, запятые, буквы между цифрами  должны остаться.
Изъятие значения из ячейки, работа с каталогами
 
Всем добрый день! Народ помогите разобраться. Есть книга excel в ней значения выглядят так:
РЕМЕНЬ  987
ФИЛЬТР 201,1117040
МАСЛЯНЫЙ ФИЛЬТР ДВС LF16013
НАСОС НШ 250 А-4
ЭЛЕМЕНТ ФИЛЬТРУЮЩИЙ  МАСЛЯННОГО ФИЛЬТРА  840-1012038-12
НАКЛАДКА ТОРМОЗА 5336-3501105
НАБИВКА 546-3519136
СТАРТЕР 2501.3708000
ГЛАВНЫЙ ТОРМОЗНОЙ КРАН 100-3514008/16.3514008
МАНЖЕТА 7505-3519037
РЕМЕНЬ  987
ФИЛЬТР МАСЛЯНЫЙ  НА ПМЗШ-5К №3ФГМ32-25М
ФИЛЬТРУЮЩИЙ ЭЛЕМЕНТ ГИДРОБАКА ЭФМ-020 №2501-15-25-20СП НА ПОГРУЗЧИК ЛК-1
РЕМЕНЬ ПРИВОДА ТОПЛИВНОГО НАСОСА №TKV-1006040-31
Нужно вытащить из этого только каталожные номера. Например:
РЕМЕНЬ  987 - 987
МАНЖЕТА 7505-3519037 - 7505-3519037
РЕМЕНЬ ПРИВОДА ТОПЛИВНОГО НАСОСА №TKV-1006040-31- TKV-1006040-31
МАСЛЯНЫЙ ФИЛЬТР ДВС LF16013 - LF16013
Сложность заключается в том что книга большая, строк много и каждый раз обновляется еще значения содержат буквы, цифры и знаки!
Помогите разобраться. Как можно быстро и без труда вытащить только каталожные номера с помощью формул или макросом.
Страницы: 1
Наверх