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

Страницы: 1
Макрос для внесения данных на разные листы и в разные таблицы, Помощь в составлении правильного макроса
 
Михаил Лебедев, Спасибо, все прекрасно работает и именно как нужно!)
С уважением, Ершов Павел


Макрос для внесения данных на разные листы и в разные таблицы, Помощь в составлении правильного макроса
 
Михаил Лебедев, На форме есть выбор модели насоса, каждая модель (а их 4) имеет свою таблицу на каждом листе. Листы - годы производства насосов.
С уважением, Ершов Павел


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


Макрос для внесения данных на разные листы и в разные таблицы, Помощь в составлении правильного макроса
 
Вот сам код, который вносит данные из формы, но он почему-то вносит только в первую таблицу, которая расположена на листе (данные записываются в листы: 2015, 2016, 2017, 2018).


Код
Private Sub CommandButton1_Click()
If Me.ComboBox1.Text = "" Then
    MsgBox "Заполните поле <Год выпуска>", vbExclamation, "Ошибка"
    Me.ComboBox1.SetFocus
    Exit Sub
End If
If Me.ComboBox2.Text = "" Then
    MsgBox "Заполните поле <Месяц выпуска>", vbExclamation, "Ошибка"
    Me.ComboBox2.SetFocus
    Exit Sub
End If
If Me.ComboBox3.Text = "" Then
    MsgBox "Заполните поле <Причина поломки>", vbExclamation, "Ошибка"
    Me.ComboBox3.SetFocus
    Exit Sub
End If
If Me.TextBox1 = "" Then
    MsgBox "Заполните поле <Количество>", vbExclamation, "Ошибка"
    Me.TextBox1.SetFocus
    Exit Sub
End If
Dim FR As Range, cl%, rw%
With Sheets(ComboBox1.Text)
Set FR = .Range("A1:CC1000").Find(ComboBox1.Text)
If FR Is Nothing Then MsgBox "Заполните все поля": Exit Sub
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
   ActiveWorkbook.Save
   MsgBox "Информация добавлена!", vbInformation, "Отлично!"
End Sub
Изменено: Павел Ершов - 10.09.2018 09:03:00 (Добавил текст)
С уважением, Ершов Павел


Макрос для внесения данных на разные листы и в разные таблицы, Помощь в составлении правильного макроса
 
Друзья, всем привет! Прошу помощи!!!!
Попробую описать суть проблемы: Для технологов нужен файл в который будут вноситься данные о модели насоса, годе изготовления, месяц изготовления и причин поломки насосов. Это необходимо для выявления причин брака на производстве! Вложенный файл почти сделан (желательно в котором поправить макрос), но не могу додумать, как заставить код вписать в определенную таблицу данные.
Макрос, который сейчас используется находится на кнопке в форме под названием "Добавить данные". Очень будет удобно если в макросе при выборе всех параметров он записывал информацию в нужную ячейку и в нужную таблицу, чтобы потом формулы сами посчитали процент брака и рисовался график брака.
Спасибо всем тем, кто откликнется!))))
С уважением, Ершов Павел


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


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

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


Страницы: 1
Наверх