|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
17.02.2017, 07:03 | #1 |
Пользователь
Регистрация: 12.02.2017
Сообщений: 87
|
Ошибка в завершении макроса
Обращаюсь к специалистам (я точно не из их числа) у меня не получается дописать макрос...
Задача макроса скопировать данные с разных ячеек одного листа на 4-строку второго листа (до этого момента макрос работает) а в конце нужно чтоб макрос скопировал эту 4-строку на 3-лист в первую свободную строку (записи ведутся сверху вниз - допустим строки 1,2,3 заняты - значит вставить на 4-строку) и вот здесь у меня какая-то ошибка Код:
Последний раз редактировалось СтаСС; 17.02.2017 в 07:28. |
17.02.2017, 07:32 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
попробуйте так: (вместо всего приведенного вами кода)
Код:
|
17.02.2017, 07:38 | #3 |
Пользователь
Регистрация: 12.02.2017
Сообщений: 87
|
Yessss!
EducatedFool большое спасибо! Просто огромное а то я сам три часа голову ломал)) |
17.02.2017, 07:57 | #4 |
Пользователь
Регистрация: 12.02.2017
Сообщений: 87
|
Подскажите еще пожалуйста как исправить чтоб вставляло только значение - не меняя конечного форматирования у меня уже голова совсем не варит ))
ОТБОЙ )) Разобрался.. вопрос окончательно решен.. еще раз СПАСИБО! Последний раз редактировалось СтаСС; 17.02.2017 в 08:25. |
08.03.2017, 16:05 | #5 |
Пользователь
Регистрация: 12.02.2017
Сообщений: 87
|
Объясните что я делаю не так?
В задумке с листа1 копируем строку 6 и вставляем ее на первую свободную на листе2 сохранив значение и исходное форматирование (плюс активируются ячейки a1 на обоих листах)... вот код: Код HTML:
Sheets("1").Select Range("6:6").Copy Sheets("2").Range("A" & Sheets("2").Rows.Count).End(xlUp).Offset(1) Rows("6:6").Select Selection.Copy Sheets("2").Select Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _ , SkipBlanks:=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A1").Select Sheets("1").Select Range("A1").Select Последний раз редактировалось СтаСС; 08.03.2017 в 16:07. |
08.03.2017, 17:34 | #6 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
08.03.2017, 17:44 | #7 | |
Пользователь
Регистрация: 12.02.2017
Сообщений: 87
|
IgorGO, сделал так
Цитата:
|
|
08.03.2017, 17:48 | #8 | |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Цитата:
а что нужно-то?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
|
08.03.2017, 17:50 | #9 | |
Пользователь
Регистрация: 12.02.2017
Сообщений: 87
|
то было старое.. а вот что сейчас нужно пост№5
Цитата:
|
|
08.03.2017, 17:54 | #10 |
Пользователь
Регистрация: 12.02.2017
Сообщений: 87
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ошибка в открытии макроса | ZHDN | Microsoft Office Excel | 3 | 28.11.2011 12:36 |
Ошибка макроса | flyinsky | Microsoft Office Excel | 3 | 16.06.2011 11:30 |
Ошибка при завершении программы | _-Re@l-_ | Общие вопросы Delphi | 2 | 01.09.2010 21:32 |
выполнение макроса по завершении редактирования конкретной ячейки | Обыватель | Microsoft Office Excel | 2 | 20.05.2010 11:52 |
ошибка макроса | maxillion | Microsoft Office Excel | 6 | 15.05.2010 02:13 |