Сбор даных с разных книг в одну

[Hugo121]

Ну тогда осталось:

zaccol = 0 - это если дата=0, что не может быть;
zac не определилось, что тоже вряд ли;

Может лист защищён от изменений?

[Pao]

Вот пытаюсь за 15 число перенести данные с помощью макроса
zaccol = 30 колонка правильноя соответствует числу
dt = 15 число тоже правильно
iLastRow = 20 полследняя строка в таблице экспорта правильная
terminal = маг.ХХХ тоже правильно.
zac = той ячейки которой нужно правильно
com = тоже верно
А может быть из-за того что в исходной сводной таблице несколько листов с названиями месяцов, и несколько листов с диаграммами?

[Hugo121]

Ну так ведь
ThisWorkbook.Sheets(1). - это копируем в первый по порядку лист, как в примере. У Вас там наверное диаграмма. Напишите вместо 1 название листа в кавычках.

[Pao]

Нашел ошибку
ThisWorkbook.Sheets(1).Cells(terminal + 4, zaccol).Value = zac 'заносим "Зачислено"
походу он не понимает это выражение так как назмание терминала идет текстом и пишет что это выражение = Type mismatch

[Hugo121]

Ну не знаю, например код
Sub tt()
x = [a1]
y = x + 1
End Sub
прекрасно работает, если в А1 число в виде текста. Надо пример видеть.
Если конечно название цифрами, как в примере. Не хотите же Вы сказать, что название буквами написано?

[Pao]

Неполучается, чесно скажу я в этом плохо разбираюсь, не могу собразить что я делаю не правильно. В архиве исходная итоговая таблица и несколько файлов из экспорта.

[Hugo121]

не могу собразить что я делаю не правильно

- привели неправильный пример.
Теперь надо код переделывать, наверное даже весь. У меня сейчас нет времени, народ, помогайте

[Pao]

Извиняюсь что не верно выложил пример изначально. Первый раз просто с таким сталкиваюсь.

[Hugo121]

Глянул - вообще-то переделок немного:

Sub export()
dt = Format([General_TODATE], "dd") 'определяем дату отчёта
zaccol = dt * 2 'определяем колонку для записи "Зачислено"
iLastRow = Cells(Rows.Count, 2).End(xlUp).Row 'определяем последнюю строку
terminal = Cells(iLastRow - 1, 5) 'определяем терминал
zac = Cells(iLastRow, 13) 'определяем "Зачислено"
com = Cells(iLastRow, 12) 'определяем "Комиссия"

Set x = ThisWorkbook.Sheets(1).Columns(1).Find(terminal, , , , xlWhole)
If Not x Is Nothing Then
ThisWorkbook.Sheets(1).Cells(x.Row, zaccol).Value = zac   'заносим "Зачислено"
ThisWorkbook.Sheets(1).Cells(x.Row + 1, zaccol + 1).Value = com 'заносим "Комиссия"
End If
End Sub

Но -
Станиславского, 34 м-н Перекресток
и
ул.Станиславского 34 маг.Перекресток

совсем разные названия, согласитесь...
Поэтому такой код не работает, пока названия магазинов не будут всюду одинаковы. Из трёх примеров в двух названия не совпадают.

Можно вот эту часть так написать:

If Not x Is Nothing Then
ThisWorkbook.Sheets(1).Cells(x.Row, zaccol).Value = zac   'заносим "Зачислено"
ThisWorkbook.Sheets(1).Cells(x.Row + 1, zaccol + 1).Value = com 'заносим "Комиссия"
Else
MsgBox "Not Find!!!"
End If

Тогда будет сразу видно, что это название не найдено.

P.S. А как там - есть пометка "Ответ от*оператора: прием платежа невозможен", и состояние "Отложен", а в общую сумму вошло?

Так, ещё можно добавить определение месяца (аналогично определению даты) и тогда копирование данных не на первый лист ( или какой там сейчас в Вашем коде будет) а именно на лист этого месяца. Но надо тогда или листы переименовать, или в коде добавить через select case соответствие номеров с названиями.

[Pao]

Огромное спасибо имена терминалов поправил все работает.