Добрый день! Прошу в очередной раз подсказки. Задача описана в файле. Прошу знатоков подсказать код макроса, который помог автоматизировать процесс заполнения отчетных документов. По регламенту ежедневно должны производится коучинги менеджеров с заполнением чек листа. По итогу коучинга данные переносятся в общий файл развития менеджера. Данные необходимые для переноса обозначены в листе Чек лист. "Вопрос. Какой должен быть код макроса, чтобы он данные из чек листа переносил именно в ту таблицу, которая соответствует менеджеру указанному в Чек листе. При чем делал бы это в следующем свободном столбце таблицы." Прошу прощения! Файл перевложен. Задача описана.
Добрый день! Прошу в очередной раз подсказки. Задача описана в файле. Прошу знатоков подсказать код макроса, который помог автоматизировать процесс заполнения отчетных документов. По регламенту ежедневно должны производится коучинги менеджеров с заполнением чек листа. По итогу коучинга данные переносятся в общий файл развития менеджера. Данные необходимые для переноса обозначены в листе Чек лист. "Вопрос. Какой должен быть код макроса, чтобы он данные из чек листа переносил именно в ту таблицу, которая соответствует менеджеру указанному в Чек листе. При чем делал бы это в следующем свободном столбце таблицы." Прошу прощения! Файл перевложен. Задача описана.KolyvanOFF
KolyvanOFF, Вы так и нарываетесь на конфликт с администрацией! 183 сообщения! Может пора хоть бегло ознакомиться с правилами форума? П.3 например. В Ваших же интересах.. [p.s.] файл открывать не стал, мне тоже лень.
KolyvanOFF, Вы так и нарываетесь на конфликт с администрацией! 183 сообщения! Может пора хоть бегло ознакомиться с правилами форума? П.3 например. В Ваших же интересах.. [p.s.] файл открывать не стал, мне тоже лень.KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Алгоритм: 1)По очереди открываешь все файлы нужного типа в папке 2)Из нужного поля берешь ФИО менеджера и в своей табличке через поиск ищешь ячейку с таким ФИО 3)Настраиваешь копирование с помощью объекта .cells //(i-3,j-3) - с помощью него можно сразу настроить смещение всех параметров Тут правда проверку нужно добавить - если столбец занят, то до прибавлять столбец пока табличка твоя не кончится 4)Закрываешь, открываешь следующий
Ничего сложного вроде нет
Алгоритм: 1)По очереди открываешь все файлы нужного типа в папке 2)Из нужного поля берешь ФИО менеджера и в своей табличке через поиск ищешь ячейку с таким ФИО 3)Настраиваешь копирование с помощью объекта .cells //(i-3,j-3) - с помощью него можно сразу настроить смещение всех параметров Тут правда проверку нужно добавить - если столбец занят, то до прибавлять столбец пока табличка твоя не кончится 4)Закрываешь, открываешь следующий
Option Explicit Private Sub Чек() With [Свод!C:C,Свод!R:R].Find(Me.[K4], , xlValues, 1).Offset(4).Offset(, 1).Resize(9, 11) If Application.CountA(.Rows(1)) < 11 Then If .Cells(1, Application.CountA(.Rows(1))) = Me.[N1] Then MsgBox "Дата уже есть!": Exit Sub Else: .Columns(Application.CountA(.Rows(1)) + 1) = Me.[R18:R26].Value End If Else: MsgBox "нет пустых столбцов!" End If End With End Sub
[/vba]
В R26 можно написать формулу
Код
=СРЗНАЧ(R19:R25)
(наверно)
[vba]
Код
Option Explicit Private Sub Чек() With [Свод!C:C,Свод!R:R].Find(Me.[K4], , xlValues, 1).Offset(4).Offset(, 1).Resize(9, 11) If Application.CountA(.Rows(1)) < 11 Then If .Cells(1, Application.CountA(.Rows(1))) = Me.[N1] Then MsgBox "Дата уже есть!": Exit Sub Else: .Columns(Application.CountA(.Rows(1)) + 1) = Me.[R18:R26].Value End If Else: MsgBox "нет пустых столбцов!" End If End With End Sub
Вот теперь полный мир и смерть! Я зашел в модуль листа. Убрал Private, назначил на кнопку макрос, потом обратно вставил. Или я что то не правильно сделал?
Вот теперь полный мир и смерть! Я зашел в модуль листа. Убрал Private, назначил на кнопку макрос, потом обратно вставил. Или я что то не правильно сделал?KolyvanOFF