Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Копирование строк удовлетворяющим критерию поиска - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Копирование строк удовлетворяющим критерию поиска (Формулы/Formulas)
Копирование строк удовлетворяющим критерию поиска
Klaasnjce Дата: Среда, 18.09.2019, 12:02 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте, имеется сводная таблица (вкладка расходы подразделений) из неё необходимо разнести данные по другим листам, по заданным критериям. Например из вкладки "Расходы подразделений" необходимо перенести все строки (в том числе повторяющиеся) удовлетворяющие критерию поиска (вкладка Бюджет IT, диапазон G2:G5) на лист "Бюджет IT".
Прошу подсказать решения формулами или макросами.
Спасибо.
К сообщению приложен файл: 9568392.xlsx(55.7 Kb)
 
Ответить
СообщениеЗдравствуйте, имеется сводная таблица (вкладка расходы подразделений) из неё необходимо разнести данные по другим листам, по заданным критериям. Например из вкладки "Расходы подразделений" необходимо перенести все строки (в том числе повторяющиеся) удовлетворяющие критерию поиска (вкладка Бюджет IT, диапазон G2:G5) на лист "Бюджет IT".
Прошу подсказать решения формулами или макросами.
Спасибо.

Автор - Klaasnjce
Дата добавления - 18.09.2019 в 12:02
Klaasnjce Дата: Среда, 18.09.2019, 16:06 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
[vba]
Код
Sub Rashodi()
Dim LastRow As Long, Rw As Long
LastRow = Cells(Rows.Count, 4).End(xlUp).Row
With Sheets("Расходы на связь и IT")
Rw = .Cells(Rows.Count, 4).End(xlUp).Row + 1
For i = 12 To LastRow
If Cells(i, 7) = "Программное и информационное обеспечение (лицензии) (сторонние организации)" Then
Range(Cells(i, 4), Cells(i, 20)).Copy .Cells(Rw, 4)
Rw = Rw + 1
End If
Next
End With
End Sub
[/vba]

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


Сообщение отредактировал Klaasnjce - Четверг, 19.09.2019, 09:29
 
Ответить
Сообщение[vba]
Код
Sub Rashodi()
Dim LastRow As Long, Rw As Long
LastRow = Cells(Rows.Count, 4).End(xlUp).Row
With Sheets("Расходы на связь и IT")
Rw = .Cells(Rows.Count, 4).End(xlUp).Row + 1
For i = 12 To LastRow
If Cells(i, 7) = "Программное и информационное обеспечение (лицензии) (сторонние организации)" Then
Range(Cells(i, 4), Cells(i, 20)).Copy .Cells(Rw, 4)
Rw = Rw + 1
End If
Next
End With
End Sub
[/vba]

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

Автор - Klaasnjce
Дата добавления - 18.09.2019 в 16:06
китин Дата: Четверг, 19.09.2019, 09:10 | Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 5882
Репутация: 914 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
Klaasnjce, - Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
СообщениеKlaasnjce, - Прочитайте Правила форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)

Автор - китин
Дата добавления - 19.09.2019 в 09:10
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Копирование строк удовлетворяющим критерию поиска (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!