Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » pnv
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
удалить все строки, кроме выбранных фильтром
 
#
28.11.2018 10:13:19
Добрый день.

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

Прошу помочь. Спасибо.
Изменено: pnv - 28.11.2018 12:13:51
 
Перейти    
Поиск слова по нескольким ячейкам наполненных текстом с пробелами
 
#
22.06.2018 10:33:04
Добрый день.

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

Спасибо за ответы. Николай.
 
Перейти    
Сортировка в сводной таблице
 
#
08.09.2017 08:19:41
Добрый день.

Некорректно сортируются строки в таблице.
Код
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 сортировка строк в сводной таблице
 
#
07.09.2017 09:53:45
Добрый день.

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

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

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