Умный перенос данных по ячейкам в ячейки другого листа

[Toffifee]

как это сделать?

[Hugo121]

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

Option Explicit

Dim wb As Workbook ' эта книга будет доступна из любого макроа модуля

Sub Создать_Ежедневный_Отчет()
Set wb = ActiveWorkbook ' ссылка на новую созданную книгу

Perenos 'вызываем второй макрос
End Sub

Sub Perenos()
Dim a(), oDict As Object, i&, x As Range, iFirstAddress$, ii&
Application.ScreenUpdating = False

With wb.Sheets("1С И ПРОЧЕЕ") ' переход на лист "1С и прочее" в новой книге
End With

Application.ScreenUpdating = True
End Sub

[Toffifee]

Я так поняла он не может найти Листок "Бюджет" в этой книге, потому что его там и нет. Он же в книге "Едежневный отчет".

Хотя этот лист ведь мы копируем из Книги "С мая отчет"? который открыт, может с него тянуть данные?

[Hugo121]

Можно и оттуда тянуть. Но как именно - точно не скажу, запутался вконец
Смотрите - если книга активна, можно брать без указания книги. Если неактивна - значит ранее нужно задать через set ссылку на эту книгу или сразу на этот лист в этой книге, а потом обращаться через ссылку.
Если ссылку задаём в одном макросе, а обращаться нужно из другого - делаем эту переменную публичной для этого модуля.

[Toffifee]

Попробую всё разложить по полочкам, всё с самого начала.

1. У нас есть рабочая книга, в которой 53 листа. Называется она "Анализ прибыли". Вот в ней мы запускаем макрос Sub Создать_Ежедневный_Отчет().
Что делает этот макрос:
1. Берет 3 листа из книги "Анализ прибыли", (это листы: "КАССА ИТОГ", "1С И ПРОЧЕЕ", "АНАЛИЗ ПРИБЫЛИ").
2. Берет один лист - "Бюджет" из книги "С мая ИТОГ". Эта книга при копировании из неё листа просто открыта на компе. Вот этим куском кода макрос ищет эту открытую книгу и копирует из неё нужный листок:
Dim itogWB As Workbook
For Each itogWB In Workbooks
If InStr(itogWB.Name, "С") Then
itogWB.Sheets("Бюджет").Copy Before:=wb.Worksheets(1)

3. Всё, скопировали мы в общей сложности 4 листа, с 2-х разных книг. Вот их названия:
а) Бюджет
б) КАССА ИТОГ
в) 1С И ПРОЧЕЕ
г) АНАЛИЗ ПРИБЫЛИ
Эти 4 листа мы помещаем в новую книгу, которую создает макрос, и называет он её "Ежедневный отчет".


Теперь надо чтоб макрос работал уже с созданной книгой, которую он назвал "Ежедневный отчет". Он должен в ней цифры скопировать с одного листа (Бюджет) на другой (1С И ПРОЧЕЕ). Точнее подставить, руководствуясь списком городов, который называется "Spisok_gorodov" и лежит в папке "C:\Temp".

Вот в принципе и всё ))))))
Всё это должно запускаться одним макросом, нажатием на одну кнопку, которая будет располагаться в нашей главной рабочей книге "Анализ прибыли".

[Hugo121]

Эти три файла ( "Анализ прибыли", "С мая ИТОГ", "Spisok_gorodov" с обрезанными данными, оставьте 10 строк) можете выложить?
И чтоб там была текущая версия макроса

[Toffifee]

"С мая итог" и "Spisok_gorodov" вложить могу спокойно, а вот "Анализ прибыли" никак не могу (((((((

[Toffifee]

Всё, все 3 файла вложила.

В модуле первом работающая программа, которая создает "Едежневный отчет".

В во втором модуле тот который не работает и выдает ошибку. Вот ))

Spisok_gorodov.rar
С мая итог.rar
Анализ прибыли.rar

[Hugo121]

У меня всё корректно отработало, запускал Создать_Ежедневный_Отчет() из второго модуля. Который совмещённый.
Там только строка
Dim nsheet As Worksheet
лишняя, но и не мешает.
Файл создался, только у меня Эксель2000, поэтому не совсем чистый эксперимент
Почему у Вас не работает - не понятно...

[Toffifee]

Да, я попробовала, у меня тоже вот на этих примерах что я отправила работает... а там не работает (((((((((