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

Вход

Регистрация

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

 

= Мир MS Excel/Подставить строку под закрепленную область - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подставить строку под закрепленную область
Подставить строку под закрепленную область
pechkin Дата: Вторник, 11.08.2015, 13:28 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 49 ±
Замечаний: 0% ±

2003
Здравствуйте! Подскажите, как подставить нужную строку под закрепленную область? В файле есть таблица. Из выпадающего списка выбрав имя и нажав на кнопку соответствующая строка перемещается под закрепленную область, но если изменить вручную положение строк или сохранить файл когда под закрепленной областью не первое имя - все пропало :( Наверняка есть гораздо проще решение этой задачи, чем мое... Спасибо!
К сообщению приложен файл: 4285448.xls (34.5 Kb)
 
Ответить
СообщениеЗдравствуйте! Подскажите, как подставить нужную строку под закрепленную область? В файле есть таблица. Из выпадающего списка выбрав имя и нажав на кнопку соответствующая строка перемещается под закрепленную область, но если изменить вручную положение строк или сохранить файл когда под закрепленной областью не первое имя - все пропало :( Наверняка есть гораздо проще решение этой задачи, чем мое... Спасибо!

Автор - pechkin
Дата добавления - 11.08.2015 в 13:28
_Boroda_ Дата: Вторник, 11.08.2015, 13:49 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
А если вот так?
[vba]
Код
    x_ = WorksheetFunction.Match(Range("C2"), Range("C11:C29"), 0) - 1
     Range("C11").Activate
     ActiveWindow.SmallScroll Down:=x_
[/vba]
К сообщению приложен файл: 4285448_1.xls (39.5 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА если вот так?
[vba]
Код
    x_ = WorksheetFunction.Match(Range("C2"), Range("C11:C29"), 0) - 1
     Range("C11").Activate
     ActiveWindow.SmallScroll Down:=x_
[/vba]

Автор - _Boroda_
Дата добавления - 11.08.2015 в 13:49
miver Дата: Вторник, 11.08.2015, 14:17 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 190
Репутация: 37 ±
Замечаний: 0% ±

Excel 2010
pechkin, Попробуйте так
[vba]
Код
Sub Подставить()
     Application.Goto Range("C11:C30").Find(Range("C2")).EntireRow, True
End Sub
[/vba]
 
Ответить
Сообщениеpechkin, Попробуйте так
[vba]
Код
Sub Подставить()
     Application.Goto Range("C11:C30").Find(Range("C2")).EntireRow, True
End Sub
[/vba]

Автор - miver
Дата добавления - 11.08.2015 в 14:17
pechkin Дата: Вторник, 11.08.2015, 15:04 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 49 ±
Замечаний: 0% ±

2003
Спасибо! Оба варианта работают. Буду пробовать.
 
Ответить
СообщениеСпасибо! Оба варианта работают. Буду пробовать.

Автор - pechkin
Дата добавления - 11.08.2015 в 15:04
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подставить строку под закрепленную область
  • Страница 1 из 1
  • 1
Поиск:

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