|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
21.06.2010, 09:21 | #11 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Ну тогда осталось:
zaccol = 0 - это если дата=0, что не может быть; zac не определилось, что тоже вряд ли; Может лист защищён от изменений?
webmoney: E265281470651 Z422237915069 R418926282008
|
21.06.2010, 10:57 | #12 |
Пользователь
Регистрация: 16.06.2010
Сообщений: 16
|
Вот пытаюсь за 15 число перенести данные с помощью макроса
zaccol = 30 колонка правильноя соответствует числу dt = 15 число тоже правильно iLastRow = 20 полследняя строка в таблице экспорта правильная terminal = маг.ХХХ тоже правильно. zac = той ячейки которой нужно правильно com = тоже верно А может быть из-за того что в исходной сводной таблице несколько листов с названиями месяцов, и несколько листов с диаграммами? |
21.06.2010, 11:27 | #13 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Ну так ведь
ThisWorkbook.Sheets(1). - это копируем в первый по порядку лист, как в примере. У Вас там наверное диаграмма. Напишите вместо 1 название листа в кавычках.
webmoney: E265281470651 Z422237915069 R418926282008
|
21.06.2010, 11:49 | #14 |
Пользователь
Регистрация: 16.06.2010
Сообщений: 16
|
Нашел ошибку
ThisWorkbook.Sheets(1).Cells(terminal + 4, zaccol).Value = zac 'заносим "Зачислено" походу он не понимает это выражение так как назмание терминала идет текстом и пишет что это выражение = Type mismatch |
21.06.2010, 11:55 | #15 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Ну не знаю, например код
Sub tt() x = [a1] y = x + 1 End Sub прекрасно работает, если в А1 число в виде текста. Надо пример видеть. Если конечно название цифрами, как в примере. Не хотите же Вы сказать, что название буквами написано?
webmoney: E265281470651 Z422237915069 R418926282008
|
21.06.2010, 12:15 | #16 |
Пользователь
Регистрация: 16.06.2010
Сообщений: 16
|
Неполучается, чесно скажу я в этом плохо разбираюсь, не могу собразить что я делаю не правильно. В архиве исходная итоговая таблица и несколько файлов из экспорта.
|
21.06.2010, 12:29 | #17 | |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Цитата:
Теперь надо код переделывать, наверное даже весь. У меня сейчас нет времени, народ, помогайте
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 21.06.2010 в 12:32. |
|
21.06.2010, 12:32 | #18 |
Пользователь
Регистрация: 16.06.2010
Сообщений: 16
|
Извиняюсь что не верно выложил пример изначально. Первый раз просто с таким сталкиваюсь.
|
21.06.2010, 13:50 | #19 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Глянул - вообще-то переделок немного:
Код:
Станиславского, 34 м-н Перекресток и ул.Станиславского 34 маг.Перекресток совсем разные названия, согласитесь... Поэтому такой код не работает, пока названия магазинов не будут всюду одинаковы. Из трёх примеров в двух названия не совпадают. Можно вот эту часть так написать: Код:
P.S. А как там - есть пометка "Ответ от*оператора: прием платежа невозможен", и состояние "Отложен", а в общую сумму вошло? Так, ещё можно добавить определение месяца (аналогично определению даты) и тогда копирование данных не на первый лист ( или какой там сейчас в Вашем коде будет) а именно на лист этого месяца. Но надо тогда или листы переименовать, или в коде добавить через select case соответствие номеров с названиями.
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 21.06.2010 в 14:18. |
21.06.2010, 14:35 | #20 |
Пользователь
Регистрация: 16.06.2010
Сообщений: 16
|
Огромное спасибо имена терминалов поправил все работает.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
сбор данных с разных книг в одну | Ledy1987 | Microsoft Office Excel | 26 | 20.04.2011 21:33 |
Сбор данных с множества книг в одну по шаблонам | Adeletto | Microsoft Office Excel | 3 | 11.06.2010 17:07 |
Обьединение разных типов даных | женя2010 | Microsoft Office Excel | 3 | 21.04.2010 12:56 |
Сбор данных из разных книг | 804040 | Microsoft Office Excel | 2 | 19.04.2010 15:33 |
Сбор данных с разных файлов | Fess111 | Microsoft Office Excel | 2 | 09.03.2010 10:13 |