Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
[ Закрыто] Создание макроса для сортировки данных таблицы по разным листам
 
Здравствуйте. Пишу опять. Под новым и вроде как правильным заголовком...

Мне нужна сортировка данных.
С первой страницы с основной таблицей по остальным листам.
У меня получилось Формулами сделать только просто копирование всех данных на каждый лист. А уже макросом нашла как отсортировать(скрыть в моем примере) ненужные строки. (я в excel не особо шарю, что нашла то и использовала).

Может поможете просто сразу с макрасом, который будет сортировать мои данные со Страницы1 (по столбцу А:А на остальные.
на странице 2 остаются строки только с 1-ми в столбце А.
на странице 3 - только с 2-ми
на странице 4 - только с 3-ми
и т.д

Пример:
Исходная таблица на странице1
123332145
25632467864
1400455676768
24589063
367853458
1897546863567
Страница 2
123332145
1400455676768
1897546863567
Страница 3
25632467864
24589063
Страница4
367853458
Изменено: Sve1us1k - 20.03.2018 20:15:35
Применение макроса для разных страниц Excel
 
Цитата
vikttur написал:
и заголовок не соответствует задаче
Окей. создам новую тему. Хотела не плодить их. Ну ладно. Задам этот вопрос в другой теме. Только потом напишете что я два раза одно и тоже спрашиваю...(((
Применение макроса для разных страниц Excel
 
За юнную леди отдельное спасибо)
Применение макроса для разных страниц Excel
 
Так может кто-нить объяснит в чем дело?
Применение макроса для разных страниц Excel
 
Цитата
vikttur написал:
Измените логин в своем профиле (см, правила форума
Если вы про пункт
3.2. Использовать в сообщениях, подписях, именах и логинах на форумах нецензурную лексику, текст с пЕреМеНнЫм регистром или бессмысленным набором символов.
То не вижу проблем. Меня зовут Светусик. А это мой логин. Там нет ни переменного регистра, ни бессмысленного набора символов.
Опишите проблему подробнее?
Применение макроса для разных страниц Excel
 
Может я не с той стороны зашла.
Мне вообще нужна сортировка данных.
С первой страницы на остальные.
У меня получилось Формулами сделать только просто копирование всех данных на каждый лист. А уже макросом нашла как отсортировать(скрыть в моем примере) ненужные строки. (я в excel не особо шарю, что нашла то и использовала).

Может поможете просто сразу с макрасом, который будет сортировать мои данные со Страницы1 (по столбцу А:А на остальные.
на странице 2 остаются строки только с 1-ми в столбце А.
на странице 3 - только с 2-ми
на странице 4 - только с 3-ми
и т.д
123332145
25632467864
1400455676768
24589063
367853458
1897546863567
Изменено: Sve1us1k - 20.03.2018 18:47:29
Применение макроса для разных страниц Excel
 
Я вам как раз там ответила. и скинула файл
Применение макроса для разных страниц Excel
 
kavaka,
Что-то не вышло...
Ругается на:
Код
If cell.Value = c.Item(st.Name) Then
Применение макроса для разных страниц Excel
 
Цитата
kavaka написал:
Sub asd()    Dim c As New Collection         c.Add 2, "Лист1"    c.Add 3, "Лист2"         For Each st In ActiveWorkbook.Sheets        For Each cell In st.UsedRange.Columns(1).Cells            If cell.Value = c.Item(st.Name) Then cell.EntireRow.Hidden = True        Next    NextEnd Sub
Спасибо. Сейчас попробую
Применение макроса для разных страниц Excel
 
Я в Excele вообще не бумбум(((( Если подскажете еще проще способ - буду очень признательна
Применение макроса для разных страниц Excel
 
Цитата
Hugo написал:
- как минимум нужен список соответствия страница/критерий.
Страница2 - If cell.Value > "1" Then cell.EntireRow.Hidden = True
Страница3 - If cell.Value > "2" Then cell.EntireRow.Hidden = True (КАК ЗДЕСЬ ЕЩЕ УКАЗАТЬ, ЧТО И ЕДИНИЦА ТОЖЕ, если =1 и >2)
Страница4 - If cell.Value > "3" Then cell.EntireRow.Hidden = True (=1, =2 и >3)

Т.е. на странице 2 остаются строки только с 1-ми
на странице 3 - только с 2-ми
на странице 4 - только с 3-ми
и т.д.

Мне вообще нужна сортировка данных. С первой страницы на остальные. У меня получилось Формулами сделать только просто копирование всех данных на каждый лист. А уже макросом нашла как отсортировать(скрыть в моем примере) ненужные строки.  
Применение макроса для разных страниц Excel
 
Здравствуйте.
Подскажите, как применить данный макрос к разным страницам.
Но при этом критерий в макросе на каждой странице будет другим. Здесь =2. На другой странице будет = 3 и тд.

Чтобы не писать на каждую страницу макрос.
А чтобы его запустить и он сработает по всем страницам по заданным критериям.


Sub Hide()    
Dim cell As Range  
Application.ScreenUpdating = False                                                   'отключаем обновление экрана для ускорения
  For Each cell In ActiveSheet.UsedRange.Columns(1).Cells              'проходим по всем ячейкам первого столбца
      If cell.Value = "2" Then cell.EntireRow.Hidden = True                        'если в ячейке 2 - скрываем строку
  Next
  Application.ScreenUpdating = True
End Sub
Изменено: Sve1us1k - 20.03.2018 17:53:51
Страницы: 1
Наверх