Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
MayaS
0 / 0 / 0
Регистрация: 09.10.2016
Сообщений: 3
1

Как строки из таблицы по условию появлялись на другом листе файла

09.10.2016, 14:30. Просмотров 373. Ответов 2
Метки нет (Все метки)

Добрый день. Помогите, пожалуйста, я в екселе новичок
Есть файл с таблицей (основная база), нужно сделать так, чтобы строки из основной базы по условию попадали автоматически на другие листы этого файла и эти листы сохранялись в отдельные книги. Например, из столбца Х(Агент) основной базы, строки касающиеся КП, попадали на лист КП, строки содержащие МЕГ попадали на лист МЕГ и соответственно строки, содержащие ЛА попадали на лист ЛА. Шапки на всех листах совпадают.
Очень нужна ваша помощь!!! ПОЖАЛУЙСТА
0
Вложения
Тип файла: xlsx основная.xlsx (85.6 Кб, 5 просмотров)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.10.2016, 14:30
Ответы с готовыми решениями:

Как вставку строки на одном листе повторить на другом листе?
Вопрос из области сбора данных из нескольких листов на один лист. Пример (прототип) представлен в...

Удаление строк по условию на другом листе
Раньше скрипт работал. Сейчас база более 10к строк, работать перестал. У меня проблема со...

Добавить значение в конец таблицы на другом листе
Помогите плз решить задачку через VBA Имею два разных листа: LogList и WorkList Мне нужно,...

Автозаполнение таблицы текстом на другом листе в графике нарядов
Есть документ Excel, в нем два листа, необходимо автоматическое заполнение таблицы на листе...

Нужно последние 8 непустых строк из динамической таблицы скопировать в таблицу на другом листе той же книги
Всем добрый день! есть таблица, в которой 1 столбец это дата(А2 - 01.01.2019, А3 - 01.01.2019, А4...

2
toiai
3182 / 937 / 216
Регистрация: 29.05.2010
Сообщений: 2,044
09.10.2016, 19:18 2
Вот пример разборки по листам, но для начала в файле оставить только лист "основная":
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Otdelenie()
    Dim shSrc As Worksheet, rCol1 As Range, c As Range
    Dim cl As New Collection
    Set shSrc = ActiveSheet
    Set rCol1 = shSrc.UsedRange.Columns("X")
    Set rCol1 = rCol1.Cells(2).Resize(rCol1.Cells.Count - 1)
    On Error Resume Next
    For Each c In rCol1.Cells
        cl.Add 0, CStr(c.Value)
        If Err Then
            Err.Clear
        Else
            shSrc.Copy After:=Sheets(Sheets.Count)
            ActiveSheet.Name = c
            ActiveSheet.Range(rCol1.Address).ColumnDifferences(c).EntireRow.Delete
            shSrc.Activate
        End If
    Next
End Sub
0
MayaS
0 / 0 / 0
Регистрация: 09.10.2016
Сообщений: 3
10.10.2016, 13:34  [ТС] 3
Спасибо огромное, попробовала, только мне нужно, чтобы когда заносятся данные в основную таблицу, то они появлялись на соответствующих листах, как только я что-то добавила в базу, это попало на соответствующие листы. ПОЖАЛУЙСТА ПОМОГИТЕ
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.10.2016, 13:34

поиск с выводом полученных результатов на другом листе и предварительным просмотром PDF файла
Всех приветствую! Нуждаюсь в помощи гуру, ибо у самого пока ничего не выходит. Исходное: Имеется...

Как вытащить строки из таблицы на другой лист по условию?
Доброго времени суток! Имеется таблица где в строках содержится информация о жителях ( ФИО, адрес и...

Как выделить ячейку на другом листе
Проблема, не хочет виделять ячейку на другом листе, не могу понять почему , должно же работать ......


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.