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

Вход

Регистрация

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

 

= Мир MS Excel/Форматирование и перенос определенных строк в столбец - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Форматирование и перенос определенных строк в столбец (Макросы/Sub)
Форматирование и перенос определенных строк в столбец
stargard Дата: Вторник, 08.08.2017, 18:45 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация: 0 ±
Замечаний: 60% ±

Excel 2007
Добрый день! Помогите пожалуйста написать макрос для след. задачи: дан файл, в нем есть два столбца (выделены желтым цветом) Нужно сделать так что бы в первом желтом столбце производился поиск строк со значением больше 19, и с первого столбца эти строки переносились бы в столбец "сюда" со второго столбца значения которые были напротив значений >19 переносились бы в столбец рядом с "Сюда" ( название " и сюда)
К сообщению приложен файл: 2690744.xlsx (44.0 Kb)
 
Ответить
СообщениеДобрый день! Помогите пожалуйста написать макрос для след. задачи: дан файл, в нем есть два столбца (выделены желтым цветом) Нужно сделать так что бы в первом желтом столбце производился поиск строк со значением больше 19, и с первого столбца эти строки переносились бы в столбец "сюда" со второго столбца значения которые были напротив значений >19 переносились бы в столбец рядом с "Сюда" ( название " и сюда)
Автор - stargard
Дата добавления - 08.08.2017 в 18:45
nilem Дата: Вторник, 08.08.2017, 19:41 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
stargard, привет
так?:
[vba]
Код
Sub ttt()
With Range("E1").CurrentRegion
    .AutoFilter Field:=1, Criteria1:=">19"
    .Copy Range("K1")
    .AutoFilter
End With
End Sub
[/vba]

Яндекс.Деньги 4100159601573
 
Ответить
Сообщениеstargard, привет
так?:
[vba]
Код
Sub ttt()
With Range("E1").CurrentRegion
    .AutoFilter Field:=1, Criteria1:=">19"
    .Copy Range("K1")
    .AutoFilter
End With
End Sub
[/vba]
Автор - nilem
Дата добавления - 08.08.2017 в 19:41
stargard Дата: Вторник, 08.08.2017, 19:48 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 41
Репутация: 0 ±
Замечаний: 60% ±

Excel 2007
Да, огромное спасибо
 
Ответить
СообщениеДа, огромное спасибо
Автор - stargard
Дата добавления - 08.08.2017 в 19:48
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Форматирование и перенос определенных строк в столбец (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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