![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
![]() |
#11 |
Регистрация: 07.10.2008
Сообщений: 9
|
![]()
Вот. В файле "результат" нажимаем кнопочку, выбираем "Накладная".
|
![]() |
![]() |
#12 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
![]()
У Вас синтаксическая ошибка.
По всему коду исправьте Cell(x, y) на Cells(x, y). После этого - код работоспособен, только выскачет ошибка при превышении количества листов в книге (у Вас цикл по листам от 1 до 100, а листов всего 2). И еще: при определении переменных необходимо описывать каждую. Например Dim list As Integer, i As Integer, j As Integer. А при Вашей записи Dim list, i, j As Integer, тип Integer будет иметь только переменная j. Остальные - тип Variant. Также лучше присвоить тип Book As Workbook
Чем шире угол зрения, тем он тупее.
|
![]() |
![]() |
#13 |
Регистрация: 07.10.2008
Сообщений: 9
|
![]()
Спасибо огромное! Замечательный у вас форум, не только помидорами не закидали, а еще и все рассказали, помогли, причем очень вежливо! Аж неловко как-то
![]() |
![]() |
![]() |
#14 |
Регистрация: 07.10.2008
Сообщений: 9
|
![]()
Ребят, я запутался... Работает без ошибок, но функцию свою не выполняет...
Псмотрите плиз - при нажатии на кнопку выбираем файл с накладной. Программа должна сравнить каждую строчку столбца "С" из накладной (начиная с 9ой) с каждым столбцом строки 2 начиная с "М" листа "Результат". Если есть свопадение, то значение столбца "L" соответствующей строки накладной должно копироваться в строку 7 соответствующего столбца результата. Новый лист накладной - новая строка в "Результате", то есть результаты уже будут копироваться в 8ую строку каждого столбца, где есть совпадение и т.д. Очень срочно надо... |
![]() |
![]() |
#15 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
![]()
Посмотрите вложение. Необходимо следить за тем, чтобы одни и те же названия (заголовки) были написаны одинаково.
Совет на будущее: не располагайте код в модуле листа, если требуется работать с разными книгами. Лучше расположить код макроса в стандартном (общем) модуле и откуда угодно запускать этот макрос.
Чем шире угол зрения, тем он тупее.
|
![]() |
![]() |
#16 |
Регистрация: 07.10.2008
Сообщений: 9
|
![]()
Спасибо! Ого, я ничего в вашем коде не понял (ну не программист я
![]() ![]() |
![]() |
![]() |
#17 |
Почти "Чайник"
Форумчанин
Регистрация: 09.06.2008
Сообщений: 134
|
![]()
For list = 1 To 2
заменил на For list = 1 To ActiveWorkbook.Sheets.Count И .Cells(r + 1, x.Column) = Cells(i, "L") заменить на .Cells(r + 1, x.Column) = Sheets(list).Cells(i, "L") У меня сработало Если второе не поменять данные добавляет не поймёшь откуда Названия строк из накладной берёт с каждого листа А данные (сумму) только с первого Хотя когда названия строк в накладной не совпадает ни с одним из названий в листе "результат" то данные просто никуда не вносятся. Последний раз редактировалось КаМММ; 09.10.2008 в 20:00. |
![]() |
![]() |
#18 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
![]()
Безусловно, КаМММ прав. Ссылка на лист обязательно нужна:
Код:
Чем шире угол зрения, тем он тупее.
|
![]() |
![]() |
#19 |
Регистрация: 07.10.2008
Сообщений: 9
|
![]()
Если нет совпадения - надо ручками поправить в накладной
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Сортировка по 2-м столбцам по модулю... | xamillion | Microsoft Office Excel | 2 | 06.10.2008 20:18 |
двумерный массив, нати макс.сумму по столбцам | mau6 | Помощь студентам | 5 | 04.06.2008 21:14 |
Вывод результата по столбцам | Mary_star | SQL, базы данных | 4 | 03.03.2008 13:15 |
Цикл с предусловием. ( цикл while) Цикл с постусловием. (цикл repeat ... until) | Mr.User | Помощь студентам | 9 | 23.11.2007 01:34 |