Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Макрос который создает листы и разносит по ним отфильтрованные данные
 
На одном листе имеем перечень поставщиков и товаров для мониторинга цен.
Необходимо перечень по каждому сотруднику вынести на отдельный лист, который будет назваться именем сотрудника.

В конечном итоге, сотрудники будут заходить на свои листы заполнять цены, которые я буду собирать на главном листе.
Пример во вложении
 
Цитата
Необходимо перечень по каждому сотруднику вынести на отдельный лист
А поиском не пробовали пользоваться, вот половина вашей задачи
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=128273
 
ChupaChups,  часть из ссылки
Код
Sub ListTempl()
Dim lr As Long, i As Long
Dim shname As String
Dim SH As Worksheet
Dim RNG As Range
Dim SHT As Worksheet
Set SHT = Worksheets("Ìîíèòîðèíã")
lr = SHT.Cells(Rows.Count, 2).End(xlUp).Row
Set RNG = SHT.Range(Cells(2, 2), Cells(lr, 2))
For i = 3 To lr
On Error Resume Next
shname = SHT.Cells(i, 2)
Set wsSh = Worksheets(shname)
If Err.Number <> 0 Then
RNG.AutoFilter Field:=2, Criteria1:=shname
SHT.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy
With Worksheets.Add(After:=Worksheets(Worksheets.Count))
    .Range("A1").PasteSpecial xlPasteColumnWidths
    .Range("A1").PasteSpecial xlPasteFormats
    .Range("A1").PasteSpecial xlPasteValues
    .Name = shname
    .Range("A1").Select
End With
    SHT.Activate
    SHT.ShowAllData
End If
    On Error GoTo 0
Next i
End Sub
    

 
Mershik, огромное спасибо! Все работает! (Исправил только название главного листа в коде на 7й строке)
Изменено: ChupaChups - 19 июн 2020 11:30:58
Страницы: 1
Читают тему (гостей: 1)
Наверх