|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.02.2013, 15:30 | #1 |
Пользователь
Регистрация: 18.02.2013
Сообщений: 18
|
В чем ошибка?
Требуется написать макрос, который в зависимости от значений по двум ячейкам (в примере Р2 и Р3) будет копировать и вставлять данные с разных листов и диапазонов в подготовленную таблицу.
Как вариант реализации такой задачи написал следующее: Sheets("Лист1").Select If Range("P2") = 1 Then Range("P3").Select If Range("P3") = 1 Then Sheets("Вова").Select Range("B3:F6").Select Selection.Copy Sheets("Лист1").Select Range("G9").Select ActiveSheet.Paste End If Sheets("Лист1").Select If Range("P2") = 1 Then Range("P3").Select If Range("P3") = 2 Then Sheets("Вова").Select Range("G3:K6").Select Selection.Copy Sheets("Лист1").Select Range("G9").Select ActiveSheet.Paste End If Sheets("Лист1").Select If Range("P2") = 2 Then Range("P3").Select If Range("P3") = 1 Then Sheets("Петя").Select Range("B3:F6").Select Selection.Copy Sheets("Лист1").Select Range("G9").Select ActiveSheet.Paste End If Sheets("Лист1").Select If Range("P2") = 2 Then Range("P3").Select If Range("P3") = 2 Then Sheets("Петя").Select Range("G3:K6").Select Selection.Copy Sheets("Лист1").Select Range("G9").Select ActiveSheet.Paste End If End Sub При выполнении макроса почему-то происходит копирование и вставка данных исключительно с листа "Петя" даже когда по условию должно копироваться с "Вова". При разделении на два макроса все работает ок. Для решения задачи необходим именно один макрос, в котором будет много листов источников данных и диапазонов (значения Р2 и Р3 будут меняться в диапазоне от 1 до 400). Пожалуйста помогите понять, что необходимо исправить для исправления ошибки и реализации задачи!!! |
18.02.2013, 15:54 | #2 |
Форумчанин
Регистрация: 21.10.2012
Сообщений: 208
|
Файлик приложи пожалуйста.
|
18.02.2013, 16:26 | #3 | |
Старожил
Регистрация: 08.02.2012
Сообщений: 2,173
|
Код:
Цитата:
Правильно поставленная задача - три четверти решения.
|
|
19.02.2013, 15:00 | #4 |
Пользователь
Регистрация: 18.02.2013
Сообщений: 18
|
Большое спасибо, с небольшим количеством данных пока все ок, дальше буду пробовать.
Листов планируется десятка полтора, но с каждого листа при разных условиях будет копироваться разный диапазон данных и таких диапазонов будет не одна сотня. Возможно задача имеет другое более простое решение, но я пока его не вижу(( |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
В чем ошибка? | Dimabara | Помощь студентам | 1 | 16.11.2012 23:40 |
В чем ошибка? | Ast4 | Microsoft Office Excel | 11 | 25.02.2011 16:07 |
В чем ошибка? | Benderbej | PHP | 4 | 23.02.2011 00:50 |
В чем ошибка? | Angelic_fiend | Помощь студентам | 12 | 02.06.2010 15:52 |
В чем ошибка? | Smartbass | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 28.05.2009 21:55 |