Страницы: 1
RSS
Макрос для внесения данных на разные листы в таблицы
 
Для технологов нужен файл в который будут вноситься данные о годе изготовления, месяц изготовления и причин поломки насосов. Это необходимо для выявления причин брака на производстве! Вложу 2 файла, которые начал делать, но не могу дать ума дальше, т. к. в макросах я новичок...
Файл: Статистика Малыш(2) - почти окончательный файл, желательно в который разместить макрос...
Файл: Статистика - Тут макрос, который я пытался сделать. Очень будет удобно если в макросе при выборе всех параметров он записывал информацию в нужную ячейку, чтобы потом формулы считали процент брака и рисовался график брака.
?Спасибо тем, кто откликнулся!))))

Файлы удалены: превышение допустимого размера вложения [МОДЕРАТОР]
С уважением, Ершов Павел


 
ershov_pavel, Из вашего объяснения абсолютно ничего не понятно, что вносить, куда вносить, следуя какой логике вносить ну и т.д. и т.п.
 
Александр,есть файл "Статистика", в нем уже сделана кнопка заполнить (она находится на 1 листе). При заполнении сотрудником, он выбирает из выпадающего списка год изготовления, вторая строчка - месяц изготовления, третья строчка - причина поломки. Суть этого макроса: в зависимости от выбранных строк заносить информацию таблицу в виде цифры "1" в соответствующую ячейку.
Пример: Есть на заводе слесарь, он ремонтирует насосы. После каждого дня он заполняет таблицу с данными (год выпуска, месяц выпуска и причина поломки насоса). Чтобы упростить заполнение файла сотруднику ОТК, я пытаюсь сделать макрос (в файле "статистика", реализована кнопка "заполнить" и основное окно для внесения данных), но не могу настроить макрос чтобы он вносил информацию в определенную ячейку (можно сделать, чтобы макрос в ячейке просто суммировал данные). Допустим сегодня слесарь сделал два насоса изготовленные 01.2016 - причина поломки "Сгорел магнит (нет соударения)", пять насосов изготовленные 05.2016 - причина поломки "Обрыв винтов". При заполнении таблицы на соответствующем листе (допустим лист называется 2016), в столбце месяц и в строке причина поломки - ставиться цифра равная количеству отремонтированных насосов (2 насоса изг 01.2016 и 5 насосов изг 05.2016). Завтра сотрудник отк опять вносит отремонтированные насосы. 1 насос изг 01,2016 и 3 насоса 05.2016. В таблице в ячейках ставиться уже 3 насоса 01.2016 и 8 насосов 05.2016. Прилаживаю файлы с таблицей и макросом.
Основная таблица "Статистика малыш()"
С уважением, Ершов Павел


 
Код и рабочий файл
Код
Private Sub CommandButton1_Click()
Dim FR As Range, cl%, rw%
With Sheets(ComboBox1.Text)
Set FR = .Range("A1:CC1000").Find(ComboBox2.Text)
If FR Is Nothing Then MsgBox "месяц не найден": Exit Sub
cl = FR.Column
Set FR = .Range("A1:CC1000").Find(ComboBox3.Text)
If FR Is Nothing Then MsgBox "причина поломки не найдена": Exit Sub
rw = FR.Row
.Cells(rw, cl) = .Cells(rw, cl) + TextBox1.Value
End With
   Unload UserForm1
   MsgBox "Информация добавлена!", vbInformation, "База"
End Sub
С уважением, Ершов Павел


 
Очень нужное решение, подскажите, а как мне реализовать форму по нажатию кнопки с появляющимся окном и записью внесенных данных на другой лист. И ещё вопрос, почему макрос отсчета времени, выдает ошибку при переходе на другой лист?
Страницы: 1
Наверх