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

Страницы: 1
удалить все строки, кроме выбранных фильтром
 
JayBhagavan, спасибо, но много ручных действий, нужно автоматом
удалить все строки, кроме выбранных фильтром
 
Добрый день.

Задача автоматически удалить все строки, кроме выбранных фильтром.

Прошу помочь. Спасибо.
Изменено: pnv - 28.11.2018 12:13:51
Поиск слова по нескольким ячейкам наполненных текстом с пробелами
 
да все работает
Поиск слова по нескольким ячейкам наполненных текстом с пробелами
 
всем спасибо
Поиск слова по нескольким ячейкам наполненных текстом с пробелами
 
Цитата
Юрий М написал:
ознакомились с Правилами
Ознакомился (было полезно в т.ч. п. 2.4. про персональные данные). Спасибо.
Поиск слова по нескольким ячейкам наполненных текстом с пробелами
 
Цитата
Андрей VG написал:
Power Query
Спасибо, но существующий офис не поддерживает Power Query.
Не из Екатеринбурга.
Поиск слова по нескольким ячейкам наполненных текстом с пробелами
 
Я был бы очень признателен, если бы Вы исправили макрос. Хотя я не понял про номер строки.
Поиск слова по нескольким ячейкам наполненных текстом с пробелами
 
Юрий М, слово "файл" не находит, а должно
Поиск слова по нескольким ячейкам наполненных текстом с пробелами
 
1. Прилагаю, слова "тест" или "файл" найти не могу - в этом проблема.
2. Результат должен сообщать присутствует или нет искомое слово.
Поиск слова по нескольким ячейкам наполненных текстом с пробелами
 
если в ячейке не одно слово, присутствуют другие символы - не получается
Поиск слова по нескольким ячейкам наполненных текстом с пробелами
 
Добрый день.

Можно ли автоматически найти слово (без учета регистра) по нескольким ячейкам наполненным текстом (с пробелами). Результат вернуть любом виде.

Спасибо за ответы. Николай.
Сортировка в сводной таблице
 
RAN,спасибо
Сортировка в сводной таблице
 
RAN,спасибо за пояснение. Не подскажите, как в таком случае можно организовать сортировку? дело в том, что в сводной таблице могут быть, а могут и не быть "поз1-9"
Изменено: pnv - 09.09.2017 10:23:13
Сортировка в сводной таблице
 
Извините, не понимаю. Понятно, что "поз6" и "поз7" нет, но для организован пропуск ошибок (On Error Resume Next и On Error GoTo 0). "Поз8" в любом случае должно стоять выше "поз9". Чего я не понимаю?
Изменено: pnv - 09.09.2017 10:20:31
Сортировка в сводной таблице
 
Добрый день.

Некорректно сортируются строки в таблице.
Код
On Error Resume Next    ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз1"). _ 
       Position = 1 
   ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз2"). _ 
       Position = 2 
   ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз3"). _ 
       Position = 3 
   ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз4"). _ 
       Position = 4 
   ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз5"). _ 
       Position = 5 
   ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз6"). _ 
       Position = 6 
   ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз7"). _ 
       Position = 7 
   ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз8"). _ 
       Position = 8 
   ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз9"). _ 
       Position = 9 
On Error GoTo 0 

Результат:
поз1
поз2
поз3
поз4
поз5
поз9
поз8

Где ошибка? Заранее спасибо.
vba сортировка строк в сводной таблице
 
спасибо за ответ, результат сортировки кода:
Код
On Error Resume Next
    ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз1"). _
        Position = 1
    ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз2"). _
        Position = 2
    ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз3"). _
        Position = 3
    ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз4"). _
        Position = 4
    ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз5"). _
        Position = 5
    ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз6"). _
        Position = 6
    ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз7"). _
        Position = 7
    ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз8"). _
        Position = 8
    ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("поз9"). _
        Position = 9
On Error GoTo 0
теперь странный:
поз1
поз2
поз3
поз4
поз5
поз9
поз8
Почему?
Изменено: pnv - 07.09.2017 17:24:56
vba сортировка строк в сводной таблице
 
Добрый день.

Нужно упорядочить строки в сводной таблице, для этого использую:
Код
    ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("тест1"). _
        Position = 1
    ActiveSheet.PivotTables("Сводная таблица3").PivotFields("3").PivotItems("тест2"). _
        Position = 2

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

Заранее спасибо.
Страницы: 1
Наверх