Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 29.12.2008, 12:48   #1
Iskin
Форумчанин
 
Регистрация: 22.09.2008
Сообщений: 309
По умолчанию Копирование данных с др. книги

Здравствуйте, всех с наступающим!
В свое время EducatedFool написал мне модуль, который по маске файла вставляет значения в другую книгу. Теперь задача немного другая. Дело в том, что лист, куда надо скопировать значения, в столбцах J и К имеет формулы и данные при помощи этого модуля вставляются ниже строк, в которых и стоят эти формулы. Подскажите, чт нужно поправить в модуле?
В прикрепленном файле, есть файл откуда надо брать данные и файл куда надо вставить данные.
Вложения
Тип файла: rar temp.rar (29.5 Кб, 25 просмотров)
Думайте глобально - действуйте локально!
Iskin вне форума
Старый 29.12.2008, 17:21   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,858
По умолчанию

Внёс изменения.

1) Убрал строки .Cells.ClearContents - теперь содержимое листа не очищается перед началом обработки файлов.

2) Добавил функцию GetFirstCell_from_the_next_blank_ro w, которая на листе для вставки данных ищет первую пустую строку (производя поиск только в столбцах с 1-го по 8-й).

3) вставляются данные только со столбцов "a:i" обрабатываемых файлов (чтобы лишние столбцы не затирали формулы)
За это отвечает строка tWB.Worksheets(1).UsedRange.EntireR ow.Range("a:i").Copy
Вложения
Тип файла: rar макрос2.rar (29.0 Кб, 67 просмотров)
EducatedFool вне форума
Старый 30.12.2008, 07:32   #3
Iskin
Форумчанин
 
Регистрация: 22.09.2008
Сообщений: 309
По умолчанию

Еще раз огромное спасибо! Успехов всем в следующем году!
Думайте глобально - действуйте локально!
Iskin вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Получение пользовательской функцией данных с закрытой книги KozakMamaj Microsoft Office Excel 18 22.10.2008 06:55
Импорт данных из другой книги AntonFox Microsoft Office Excel 8 18.08.2008 17:17
Перенос данных из одной книги со многих листов в другую gavrylyuk Microsoft Office Excel 34 20.07.2008 21:39
Копирование данных из реестра delphin100 Общие вопросы Delphi 5 06.05.2008 16:36
Копирование данных из Excell в Word Dimon_isu Microsoft Office Excel 6 13.02.2008 17:38