Добрый день! Подскажите пожалуйста, какие строки макроса надо напеисать, что бы согласно списку людей, которых нет в столбце "B", макрос ставил пустую ячейку или нолик в выгрузке которая справа, в столбце "Принято"? А то получается так, что если кого то нет, то он смещает вверх все значения? В данном случае, на работу не вышел сотрудник Прядилов, и в следствии чего, его нет в столбце "B"
Добрый день! Подскажите пожалуйста, какие строки макроса надо напеисать, что бы согласно списку людей, которых нет в столбце "B", макрос ставил пустую ячейку или нолик в выгрузке которая справа, в столбце "Принято"? А то получается так, что если кого то нет, то он смещает вверх все значения? В данном случае, на работу не вышел сотрудник Прядилов, и в следствии чего, его нет в столбце "B"SicVolo
SicVolo, здравствуйте. Вы уже во второй своей теме пишете про какой-то макрос, а сам макрос не показываете. Боюсь, что при таком подходе тема опять останется без ответа
SicVolo, здравствуйте. Вы уже во второй своей теме пишете про какой-то макрос, а сам макрос не показываете. Боюсь, что при таком подходе тема опять останется без ответа Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Pelena, Здравствуйте. В данном случае, мне надо макрос с нуля именно по данному Exel файлу, что бы он согласно фамилии перенес количество принятых звонков в столбы которые справа. Я могу полностью скинуть макрос, там задействованы 3 файла. Третий файл уже написан. Макрос в файле статистика.
Pelena, Здравствуйте. В данном случае, мне надо макрос с нуля именно по данному Exel файлу, что бы он согласно фамилии перенес количество принятых звонков в столбы которые справа. Я могу полностью скинуть макрос, там задействованы 3 файла. Третий файл уже написан. Макрос в файле статистика.SicVolo
Dim WB1 As Workbook Set WB1 = Application.Workbooks.Open("D:\Служебное\2\Макрос\Zvonok.xls")
[/vba]
Вот с этих строк должен начаться макрос для определения количества звонков сотрудников. Проблема в том, что он не учитывает людей, которых нет на работе. А я хочу, что бы он шел по алфавиту, и там, кого нет ставил ноль или пустую ячейку.
' Открытие файла [vba]
Код
Dim WB1 As Workbook Set WB1 = Application.Workbooks.Open("D:\Служебное\2\Макрос\Zvonok.xls")
[/vba]
Вот с этих строк должен начаться макрос для определения количества звонков сотрудников. Проблема в том, что он не учитывает людей, которых нет на работе. А я хочу, что бы он шел по алфавиту, и там, кого нет ставил ноль или пустую ячейку.SicVolo
Pelena, Доброе утро! Подскажите пожалуйста. При копировании данных из столбцов в файл статистика, он копирует его как текст, помечая его зеленым уголком в ячейке. Как его можно скопировать как числовые значения, так как формат ячейки не помогает?
Pelena, Доброе утро! Подскажите пожалуйста. При копировании данных из столбцов в файл статистика, он копирует его как текст, помечая его зеленым уголком в ячейке. Как его можно скопировать как числовые значения, так как формат ячейки не помогает?SicVolo
Pelena, Pelena, извините меня за наглость такую, но доверять могу только Вам) Я хочу вот эту статистику вести на каждом листе, согласно дню. То есть новый лист новый день. Лист должен обзываться дню, когда он создался, как я это сделал в поле период. Я прописал строки в самом верху макроса : sheets.add after:= activesheet После чего, в вашем макросе «‘ Отерываем статистику по звонкам» добавил строки Dim list_name as string list_name = “Лист” + cstr(application.worksheets.count + 1)
Лист он создаёт, но вот статистику считать по звонкам он не хочет. То есть на Листе 2 или Лист 3 он считать звонки не хочет, а вот на Лист 1 все считает замечательно. И последний вопрос, как мне сделать так, что бы Файлы Zvonok и Export , после того как я с Ними поработал, они закрывались и сохранялись с именами Zvonok1, Zvonok2 в общем +1 был?
Файл я сброшу чуть позже, так как пишу с телефона на работе.
Pelena, Pelena, извините меня за наглость такую, но доверять могу только Вам) Я хочу вот эту статистику вести на каждом листе, согласно дню. То есть новый лист новый день. Лист должен обзываться дню, когда он создался, как я это сделал в поле период. Я прописал строки в самом верху макроса : sheets.add after:= activesheet После чего, в вашем макросе «‘ Отерываем статистику по звонкам» добавил строки Dim list_name as string list_name = “Лист” + cstr(application.worksheets.count + 1)
Лист он создаёт, но вот статистику считать по звонкам он не хочет. То есть на Листе 2 или Лист 3 он считать звонки не хочет, а вот на Лист 1 все считает замечательно. И последний вопрос, как мне сделать так, что бы Файлы Zvonok и Export , после того как я с Ними поработал, они закрывались и сохранялись с именами Zvonok1, Zvonok2 в общем +1 был?
Файл я сброшу чуть позже, так как пишу с телефона на работе.SicVolo
Pelena, Подскажите пожалуйста, а то, что при добавлении листа и записи макроса на Лист2, Лсит3 макрос по принятым звонкам, который Вы делали, перестает работать - это можно тут оставить? Файл прикладываю.
Pelena, Подскажите пожалуйста, а то, что при добавлении листа и записи макроса на Лист2, Лсит3 макрос по принятым звонкам, который Вы делали, перестает работать - это можно тут оставить? Файл прикладываю.SicVolo
Чтобы работал мой макрос, на новый лист должны быть записаны фамилии, а они у Вас пишутся на активный лист. Либо после вставки листа активируйте его, либо обращайтесь явно, то есть не Range("A4"), а Sheets(list_name).Range("A4") А лучше используйте оператор With...End With
Чтобы работал мой макрос, на новый лист должны быть записаны фамилии, а они у Вас пишутся на активный лист. Либо после вставки листа активируйте его, либо обращайтесь явно, то есть не Range("A4"), а Sheets(list_name).Range("A4") А лучше используйте оператор With...End WithPelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Pelena, Я в соседней теме узнал про строчку с добавлением даты в наименование листа. Получается я добавляю еще строчки:
[vba]
Код
Sheets.Add After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Select Sheets(Sheets.Count).Name = CStr(Date) Dim list_name As String list_name = "Лист" + CStr(Application.Worksheets.Count + 1)
[/vba]
Если правильно понимаю, то строчки [/code][/vba]list_name = "Лист" + CStr(Application.Worksheets.Count + 1)[/code][/vba] мне уже не нужны, верно?
Pelena, Я в соседней теме узнал про строчку с добавлением даты в наименование листа. Получается я добавляю еще строчки:
[vba]
Код
Sheets.Add After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Select Sheets(Sheets.Count).Name = CStr(Date) Dim list_name As String list_name = "Лист" + CStr(Application.Worksheets.Count + 1)
[/vba]
Если правильно понимаю, то строчки [/code][/vba]list_name = "Лист" + CStr(Application.Worksheets.Count + 1)[/code][/vba] мне уже не нужны, верно?SicVolo
Сообщение отредактировал SicVolo - Понедельник, 26.02.2018, 20:18