Вопрос собственно в чем, есть отчет в который вносят данные разные люди, и кто то удаляет данные другого человека, так вот тут и вопрос, можно ли сделать так чтобы внесенные данные нельзя было удалить, или как минимум что бы они копировались и переносились как копия в другой отчет откуда бы не удалялись если даже их удалили в исходнике
Добрый день, дорогие форумчане, нужна помощь. Ситуация следущая, есть файл он в общем доступе, и мои коллеги открывают его и переодически забывают закрыть. В чем есть проблема, необходимо что бы файл скажем через 10 минут сохранился и закрылся не зависимо работают они в нем или нет, но только этот файл не смотря на то что в данный момент есть ещё открытые книги. Есть ещё один нюанс если файл открыт для чтения макрос не должен срабатывать, иначе копий будет миллиард. Подскажите мне глупому как это реализовать(
Есть маленькая проблемка я не могу ни где найти информацию, допустим, открыли файл EXCEL, нажали кнопку макроса который должен автоматически выполняться каждые 30 секунд, Смысл кода, в ячейке А1 я внес данные. И хочу, чтобы через 30 секунд значение, которое я внес, стало значением 0.
Добрый день. Нужна помощь, файл и код приложил. Ситуация следующая.есть 2 листа. на 1 листе
Тн,
Фио,
Средний вес
На 2 листе
Тн,
Фио,
Средний вес,
укажите вес для переработки в кг,
укажите время на переработку в часах
Так вот если я указываю указываю на 2 листе вес для переработки( вес всегда будет разным) и указываю время на переработку( данный критерий тоже всегда будет разный) Мне нужно, чтобы когда 2 критерия заполнены, из листа 1 на лист 2 вытягивалось только то количество сотрудников которые способны переработать вес в указанный спок. Еще один не мало важный элемент, при изменении времени на 2 листе, на первом листе всегда меняется средний вес так как он всегда будет умножаться на число которое указанно в колонке время на переработку. по возможности код с комментариями, я в этом совсем 0
это модуль он есть в прикрепленном файле
Код
Sub AverageWt()
Dim r&, ar, rg As Range
With Worksheets(1)
ar = .Cells(1).CurrentRegion.Value
For r = 2 To UBound(ar)
If (ar(r, 3) - [d2]) ^ 2 < 10 ^ 6 Then
If rg Is Nothing Then
Set rg = .Cells(r, 1).Resize(1, 3)
Else
Set rg = Union(rg, .Cells(r, 1).Resize(1, 3))
End If
End If
Next
End With
Application.EnableEvents = False
r = Cells(Rows.Count, 1).End(xlUp).Row
If r > 1 Then Rows(2).Resize(r - 1).Cells.ClearContents
If Not rg Is Nothing Then rg.Copy [a2]
Application.EnableEvents = True
End Sub
Ребят выручите! У меня есть массив данных, в котором несколько столбцов. 1. ФИО 2. Табебельный 3. Средний вес. Эти данные в вкладке исходник по сотрудникам! Требуется чтобы когда я в вкладке данные для обработки в желтом окне ввёл цифру он автоматически вытянул фио и и табельные сотрудников, у которых суммирование среднего веса будет близко к тому которое я ввёл в желтом окне.