Всем здравствовать!
Нынче созрела потребность в добавлении данных в порядке очереди (перед этим в течении недели наблюдал как рабочие впадают в ступор когда пытаются найти нужную модель и заносить информацию в таблицу). Попробовал упростить при помощи фильтров сам поиск, но это ещё хуже заклинило мозг аж пятерым работягам. Попытался было объяснить что к чему и в течении повествования о том как надо сделать, у них начала капать слюна  от перенапряжения. Я понял что лучше не рисковать своим здоровьем и душевным равновесием других стал соображать как всё упростить при помощи формы для внесения данных, И ТУТ В СТУПОР ВПАЛ Я . Как сделать форму которая будет последовательно фильтровать сначала список по заказу и выдавать на выбор список оборудования соответствующий заказам, который так же фильтруется, далее после занесения информации в поля "дата, кто отправил и причина" нужно чтобы вся информация заносилась в соответствующие ячейки согласно выбранным: заказу и моделью из списка оборудования, а форма очищалась для нового ввода.
Пробовал сначала просто таблицу но понял что не прокатит, поскольку нужна вызываемая форма.
В общем задача оказалась отнюдь не тривиальной для меня, за целый день наработал мощный нервный комок и вылетающие клавиши из клавиатуры.
Помогите пожалуйста!

Добрый день уважаемые форумчане!

Столкнулся с проблемой выборки данных, а опыту не хватает, только только начинаю познавать мир VBA.
Подскажите пожалуйста как решить поставленную задачу!
При внесении диапазона дат, на листе Сводка,собирались все данные соответствующие данному диапазону дат, на листе Наработка, суммировались и выводились на лист сводка в соответствующие столбцы. Т.Е. вставили даты нажали кнопку и появился список наименований и слева от наименования сумма штампоударов за все периоды указанного диапазона дат.

Проблема состоит в том что после запуска файла появляется ошибка "method 'on time' of object 'application' failed"
при этом файл расположен в локальной сети. НО если скачать на локальную машину то ошибка отсутствует!!!!
Что не так? я мозг сломал и не смог понять в чём дело.
Подскажите пожалуйста как исправить!!!
Вот макрос:

Помогите разобраться в чём проблема.
Суть в том что не полностью работает макрос. И я не могу понять в чём дело.
Принцип работы макроса: на листе 1, при вводе фамилии в столбце "кто отправил заявку", ячейка с введённой фамилией должна блокироваться и на листе "Основной" в ячейке L2 ставиться дата и она закрашивается красным цветом. А когда, в листе 1, в столбце "проделанная работа" вбивается текст (который также блокируется), то на листе "Основной" в ячейке L2 снимается выделение и исчезает дата. Причём таких лист 1 будет много как и записей в листе "Основной".  Вот это не работает.
Все остальные ячейки блокируются при вводе в них значений. Вот это как раз работает.

Да я не профи в Excel, да я не так часто участвую в ваших дискусиях, да вы меня не знаете, НО всё же к вам обратился за помощью в надежде получить адекватный и грамотный ответ. Но как оказалось вместо помощи вы только и способны на глупую иронию с закрытием темы. Да вы ас в стёбе!!! я так понимаю. Ну что ж стебитесь ВЫ же МОДЕР....  

Здравствуйте уважаемые форумчане!
Сразу оговорюсь я нуб в програмировании Excel

Собственно проблема вот в чём: нужно изменить цвет ячейки Р22 и вставить дату на листе "1", при внесении фамилии в любой ячейке столбца Е на листе "Ремонт" и обратно убрать цвет в ячейке Р22 листа "1" при внесении текста в ячейке столбца F ( напротив введённой фамилии ) на листе "Ремонт".
Начал писать макрос, но что то не работает. Вопрос что не так сделал и как его прописать?

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Worksheets("Ремонт") .Column = 5 And Target <> "" Then
ActiveSheet.Protect Password:="bylbrfnjhs", UserInterfaceOnly:=True
If Target.Cells(P, 22).Value = "" Then
Target.Cells(P, 22) = Now
Target.Interior.ColorIndex = 40
Target.Locked = True
End If
End If
End Sub

Здравствуйте уважаемые форумчане!
Сразу оговорюсь я нуб в програмировании Excel

Собственно проблема вот в чём: нужно изменить цвет ячейки Р22 и вставить дату на листе "1", при внесении фамилии в любой ячейке столбца Е на листе "Ремонт" и обратно убрать цвет в ячейке Р22 листа "1" при внесении текста в ячейке  столбца F ( напротив введённой фамилии ) на листе "Ремонт".
Начал писать макрос, но что то не работает. Вопрос что не так сделал и как его прописать?

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Worksheets("Ремонт") .Column = 5 And Target <> "" Then
ActiveSheet.Protect Password:="bylbrfnjhs", UserInterfaceOnly:=True
If Target.Cells(P, 22).Value = "" Then
Target.Cells(P, 22) = Now
Target.Interior.ColorIndex = 40
Target.Locked = True
End If
End If
End Sub

Здравствуйте!
Уважаемые форумчане очень нужен ваш опыт!!!!
Всё что я сейчас опишу я сделал с помощью формул ЕСЛИ и И, но есть проблема по длине этих формул. Соответственно я не могу прописать все состояния ячеек для большого количества значений.
В общем суть вопроса: вносим значения в ячейки ст. E вкл. Мастера! сумма этих значений выводится вкл. Основной!  J3. Необходимо чтобы каждый раз при изменении значений в J3 выполнялся поиск такого же значения в диапазоне Графики ТО!B2:S2 при совпадении значения в Основной!К3 должно отобразиться (копироваться) значение из диапазона  Графики ТО!B3:S3 соответсвующее зачению совпадения J3. Причем ячейки k3, L3, M3 должны индексировать состояние в зависимости от зачения в J3. Т.е. при j3=10000 => K3=TO 1, L3=0, M3=0; при J3=30000 => K3=0, L3=TO2, M3=0; ПРИ J3=90000 => K3=0, L3=0, M3=TO3. а в яч. N3 должно подсчитываться количество повторений в L3.

Написал макрос на автоввод текущей даты в ячейке А3 при ручном вводе данных в ячейку и Е3 (соответственно  и В3,  D3) при этом Е3 (D3) меняет состояние на "заблокированная ячейка". Но вот в чем вопрос после установки пароля на лист макрос не работает и выдает ошибку. Как сделать так чтобы при вводе данных в Е3 (D3) она блокировалась и в заблокированной А3 (В3) устанавливалась текущая дата и время при этом С3 должен давать разницу времени между А3 и В3