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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование строк с условием. (Макросы/Sub)
Копирование строк с условием.
S0LDAT Дата: Вторник, 19.05.2015, 09:28 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Добрый день.
Есть таблица, надо по значению из одного столбца (число 25 столбец В) выбрать и скопировать на новый лист строки. У меня кусок получилось сделать, но заданное значение ищется не в столбце, а в строке. Может подскажите рещение?
Спасибо.
К сообщению приложен файл: 123.xlsm (19.6 Kb)


Сообщение отредактировал S0LDAT - Вторник, 19.05.2015, 09:28
 
Ответить
СообщениеДобрый день.
Есть таблица, надо по значению из одного столбца (число 25 столбец В) выбрать и скопировать на новый лист строки. У меня кусок получилось сделать, но заданное значение ищется не в столбце, а в строке. Может подскажите рещение?
Спасибо.
Автор - S0LDAT
Дата добавления - 19.05.2015 в 09:28
nilem Дата: Вторник, 19.05.2015, 10:01 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Привет,
попробуйте с фильтром (нужно добавить строку с заголовками)
[vba]
Код
Sub ertert112() 'http://www.excelworld.ru/board/vba/tricks/autofilter_advancedfilter/9-1-0-23
Application.ScreenUpdating = False
With ActiveSheet.Range("A1").CurrentRegion
     .Parent.AutoFilterMode = False
     .AutoFilter 2, 25
     .Copy Worksheets.Add.Range("a1")
     .AutoFilter
End With: Application.ScreenUpdating = True
End Sub
[/vba]
К сообщению приложен файл: _123.xlsm (17.7 Kb)

Яндекс.Деньги 4100159601573
 
Ответить
СообщениеПривет,
попробуйте с фильтром (нужно добавить строку с заголовками)
[vba]
Код
Sub ertert112() 'http://www.excelworld.ru/board/vba/tricks/autofilter_advancedfilter/9-1-0-23
Application.ScreenUpdating = False
With ActiveSheet.Range("A1").CurrentRegion
     .Parent.AutoFilterMode = False
     .AutoFilter 2, 25
     .Copy Worksheets.Add.Range("a1")
     .AutoFilter
End With: Application.ScreenUpdating = True
End Sub
[/vba]
Автор - nilem
Дата добавления - 19.05.2015 в 10:01
S0LDAT Дата: Вторник, 19.05.2015, 10:30 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
nilem, спасибо! :D
 
Ответить
Сообщениеnilem, спасибо! :D
Автор - S0LDAT
Дата добавления - 19.05.2015 в 10:30
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование строк с условием. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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