![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Форумчанин
Регистрация: 15.12.2011
Сообщений: 355
|
![]()
Добрый день.
Написал простой код LastRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count LastPRow = Worksheets("Здесь").UsedRange.Row + Worksheets("Здесь").UsedRange.Rows. Count Worksheets("Здесь").Range("F2:F25") .Copy Range("B" & LastRow) Как сделать, что б метод Copy переносил только значения, потому как в диапазоне ("F2:F25") есть формулы? И как правильно сделать диапазон динамичeским. С определением последней строки, а не F25. Я попытался через LastPRow, не получилось. А в ячейки столбца "F" активного листа вставить текущую дату для каждой скопированной записи. Возможно такое без цикла? Спасибо. Последний раз редактировалось riniks17; 16.04.2013 в 13:12. |
![]() |
![]() |
![]() |
#2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
![]()
Вы бы файл свой прикрепили,
на нём показали, что есть изначально, и что должно получиться в результате копирования... |
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 15.12.2011
Сообщений: 355
|
![]()
Вот. Мысль такая. Нажимаем на кнопку листа таблица. Копируется список из листа работники из столбца Ф и проставляются текущие даты.
|
![]() |
![]() |
![]() |
#4 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
![]()
Проверяйте:
Код:
|
![]() |
![]() |
![]() |
#5 |
Старожил
Регистрация: 08.02.2012
Сообщений: 2,173
|
![]() Код:
upd. опоздал...
Правильно поставленная задача - три четверти решения.
Последний раз редактировалось DiemonStar; 16.04.2013 в 14:46. |
![]() |
![]() |
![]() |
#6 | |
Форумчанин
Регистрация: 15.12.2011
Сообщений: 355
|
![]() Цитата:
Что должен за элегантное решение? |
|
![]() |
![]() |
![]() |
#7 | |
Старожил
Регистрация: 08.02.2012
Сообщений: 2,173
|
![]() Цитата:
Правильно поставленная задача - три четверти решения.
|
|
![]() |
![]() |
![]() |
#8 |
Форумчанин
Регистрация: 15.12.2011
Сообщений: 355
|
![]()
Когда на работе спросили, как я это делал, многозначительно со скромным видом опустил глаза.
![]() |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Копирование диапазона | Kvint_Sertoriy | Microsoft Office Excel | 4 | 27.02.2012 21:37 |
Поиск и копирование диапазона | Wind-up Bird | Microsoft Office Excel | 3 | 16.11.2011 23:25 |
Копирование выделенного диапазона | 6306617 | Microsoft Office Excel | 7 | 24.03.2011 15:49 |
Копирование динамического диапазона | vik85 | Microsoft Office Excel | 3 | 27.06.2010 14:40 |
Копирование части диапазона с шагом | valerij | Microsoft Office Excel | 5 | 08.12.2009 17:53 |