Цикл по столбцам

[niqx]

Вот. В файле "результат" нажимаем кнопочку, выбираем "Накладная".

[SAS888]

У Вас синтаксическая ошибка.
По всему коду исправьте 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

[niqx]

Спасибо огромное! Замечательный у вас форум, не только помидорами не закидали, а еще и все рассказали, помогли, причем очень вежливо! Аж неловко как-то Еще раз спасибо!

[niqx]

Ребят, я запутался... Работает без ошибок, но функцию свою не выполняет...

Псмотрите плиз - при нажатии на кнопку выбираем файл с накладной. Программа должна сравнить каждую строчку столбца "С" из накладной (начиная с 9ой) с каждым столбцом строки 2 начиная с "М" листа "Результат". Если есть свопадение, то значение столбца "L" соответствующей строки накладной должно копироваться в строку 7 соответствующего столбца результата. Новый лист накладной - новая строка в "Результате", то есть результаты уже будут копироваться в 8ую строку каждого столбца, где есть совпадение и т.д.

Очень срочно надо...

[SAS888]

Посмотрите вложение. Необходимо следить за тем, чтобы одни и те же названия (заголовки) были написаны одинаково.
Совет на будущее: не располагайте код в модуле листа, если требуется работать с разными книгами. Лучше расположить код макроса в стандартном (общем) модуле и откуда угодно запускать этот макрос.

[niqx]

Спасибо! Ого, я ничего в вашем коде не понял (ну не программист я )... А как так цикл задать, чтобы он считал количество листов в накладной и всех их проверял? А то их, как правило больше 2ух Пытался for i=1 to activeworkbook.sheets.count, но он не так работает...

[КаМММ]

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")
У меня сработало
Если второе не поменять данные добавляет не поймёшь откуда
Названия строк из накладной берёт с каждого листа
А данные (сумму) только с первого
Хотя когда названия строк в накладной не совпадает ни с одним из названий
в листе "результат" то данные просто никуда не вносятся.

[SAS888]

Безусловно, КаМММ прав. Ссылка на лист обязательно нужна:

.Cells(r + 1, x.Column) = Sheets(list).Cells(i, "L")

А что делать, если нет совпадения, автор не оговаривает. Вот я ничего и не делаю.

[niqx]

Если нет совпадения - надо ручками поправить в накладной Спасибо!