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

Вход

Регистрация

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

 

= Мир MS Excel/Поиск и копирование плавающей ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск и копирование плавающей ячейки (Макросы/Sub)
Поиск и копирование плавающей ячейки
Xaden Дата: Пятница, 13.06.2014, 16:56 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Доброго всем времени суток.
Уважаемые специалисты, помогите пжл с кодом для поиска ячейки и копирования ее в другой фаил.
Строка ячейки постоянно будет меняться, столбец же постоянный.
Но как это написать ума не приложу, остался последний штрих во всем макросе.
Фаил прилагаю, ячейку которую надо копировать выделил желтым цветом.
ЗЫ буду благодарен даже за примеры кода.
К сообщению приложен файл: 2185741.xlsx (29.4 Kb)
 
Ответить
СообщениеДоброго всем времени суток.
Уважаемые специалисты, помогите пжл с кодом для поиска ячейки и копирования ее в другой фаил.
Строка ячейки постоянно будет меняться, столбец же постоянный.
Но как это написать ума не приложу, остался последний штрих во всем макросе.
Фаил прилагаю, ячейку которую надо копировать выделил желтым цветом.
ЗЫ буду благодарен даже за примеры кода.
Автор - Xaden
Дата добавления - 13.06.2014 в 16:56
_Boroda_ Дата: Пятница, 13.06.2014, 17:00 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16957
Репутация: 6631 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
Range("L" & Rows.Count).End(xlUp).Copy Range("K60")
[/vba]Вместо Range("K60") пишите куда копировать нужно

или
[vba]
Код
Range("K60") = Range("L" & Rows.Count).End(xlUp).Value
[/vba]можно без .Value

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
Range("L" & Rows.Count).End(xlUp).Copy Range("K60")
[/vba]Вместо Range("K60") пишите куда копировать нужно

или
[vba]
Код
Range("K60") = Range("L" & Rows.Count).End(xlUp).Value
[/vba]можно без .Value
Автор - _Boroda_
Дата добавления - 13.06.2014 в 17:00
Xaden Дата: Пятница, 13.06.2014, 17:17 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
да, а можно краткое пояснение
Код
& Rows.Count)
этого кусочка кода?


Сообщение отредактировал Xaden - Пятница, 13.06.2014, 17:19
 
Ответить
Сообщениеда, а можно краткое пояснение
Код
& Rows.Count)
этого кусочка кода?
Автор - Xaden
Дата добавления - 13.06.2014 в 17:17
Xaden Дата: Пятница, 13.06.2014, 17:24 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
прощу прощения за мою невежливость,
Благодарю за оперативную помощь.
 
Ответить
Сообщениепрощу прощения за мою невежливость,
Благодарю за оперативную помощь.
Автор - Xaden
Дата добавления - 13.06.2014 в 17:24
_Boroda_ Дата: Пятница, 13.06.2014, 17:25 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16957
Репутация: 6631 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Ячейка Ln, где n - количество строк на листе Excel. Для 2003 - L65536, для 2007 и выше - L1048576
Потом, с помощью End(xlUp) скачем от нее наверх до нижней заполненной ячейки (это как на листе встать в L65536 и нажать Контрл + Стрелка вверх).

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЯчейка Ln, где n - количество строк на листе Excel. Для 2003 - L65536, для 2007 и выше - L1048576
Потом, с помощью End(xlUp) скачем от нее наверх до нижней заполненной ячейки (это как на листе встать в L65536 и нажать Контрл + Стрелка вверх).
Автор - _Boroda_
Дата добавления - 13.06.2014 в 17:25
Xaden Дата: Пятница, 13.06.2014, 17:34 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
благодарю за пояснение, главное запомнить теперь. :D
 
Ответить
Сообщениеблагодарю за пояснение, главное запомнить теперь. :D
Автор - Xaden
Дата добавления - 13.06.2014 в 17:34
Hugo Дата: Пятница, 13.06.2014, 18:02 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3859
Репутация: 819 ±
Замечаний: 0% ±

365
Запишите :)
И такая тонкость - Rows.Count берётся у активного листа. Если например кодом обрабатываете xlsx, а активный xls (или наоборот) - будет ошибка или неправильно.
Поэтому в общем случае желательно явно указать чьё используете - книга.лист.Rows.Count

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеЗапишите :)
И такая тонкость - Rows.Count берётся у активного листа. Если например кодом обрабатываете xlsx, а активный xls (или наоборот) - будет ошибка или неправильно.
Поэтому в общем случае желательно явно указать чьё используете - книга.лист.Rows.Count
Автор - Hugo
Дата добавления - 13.06.2014 в 18:02
Xaden Дата: Пятница, 13.06.2014, 18:20 | Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Так и сделал, указал сразу что именно должно обрабатываться. Хоть один фаил был xls а другой xlsx ошибок не возникло все обработало так как я хотел =)
 
Ответить
СообщениеТак и сделал, указал сразу что именно должно обрабатываться. Хоть один фаил был xls а другой xlsx ошибок не возникло все обработало так как я хотел =)
Автор - Xaden
Дата добавления - 13.06.2014 в 18:20
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск и копирование плавающей ячейки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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