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

Вход

Регистрация

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

 

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

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

Excel 2007
Добрый день! Помогите пожалуйста написать макрос для след. задачи: дан файл, в нем есть два столбца (выделены желтым цветом) Нужно сделать так что бы в первом желтом столбце производился поиск строк со значением больше 19, и с первого столбца эти строки переносились бы в столбец "сюда" со второго столбца значения которые были напротив значений >19 переносились бы в столбец рядом с "Сюда" ( название " и сюда)
К сообщению приложен файл: 2690744.xlsx(44Kb)
 
Ответить
СообщениеДобрый день! Помогите пожалуйста написать макрос для след. задачи: дан файл, в нем есть два столбца (выделены желтым цветом) Нужно сделать так что бы в первом желтом столбце производился поиск строк со значением больше 19, и с первого столбца эти строки переносились бы в столбец "сюда" со второго столбца значения которые были напротив значений >19 переносились бы в столбец рядом с "Сюда" ( название " и сюда)

Автор - stargard
Дата добавления - 08.08.2017 в 18:45
nilem Дата: Вторник, 08.08.2017, 19:41 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1286
Репутация: 463 ±
Замечаний: 0% ±

Excel 2013
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 из 11
Поиск:

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