Макрос на разноску данных по книгам

[804040]

Есть данные:
003 4000.00
005 3044.00
...
099 5300.00

Нужен макрос который разнесет эти данные по книгам в указанный лист и в указанную ячейку...
т.е. в книгу 003.xlsx на указанный мной лист(Лист1) и указанную мной ячейку(A1) попадало значение 4000.00
в книгу 005.xlsx значение 3044.00 и тд.
Все книги идентичного содержания и структуры

Есть ли такой макрос?

[Hugo121]

Есть ли такой макрос?

Нет такого макроса. Ещё нет...

[Hugo121]

Теперь есть. Заготовка, раз Вашего примера нет.

Option Explicit

Sub tt()
Dim cc As Range
Application.ScreenUpdating = False

For Each cc In [a1:a3].Cells
With Workbooks.Open(ThisWorkbook.Path & "\" & cc.Value)
.Sheets(1).[a1] = cc.Offset(, 1)
.Close True
End With
Next

Application.ScreenUpdating = True

End Sub

Кстати, у меня отработало с xls как раз вот так, без указания расширения
With Workbooks.Open(ThisWorkbook.Path & "\" & cc.Value)
Но может быть нужно его добавить. ( & ".xlsx")

[804040]

Не работает чтото

А на примере нужно, чтобы:
В файле "Исход" есть данные - название книги : сумма.
Нужно чтобы макрос запускался и спрашивал путь папки, в которой находятся файлы, далее спрашивал название листа книг в которые будет копироваться значение и ячейка в которую будет вставляться данные из файла "Исход"

Допустим:
В файле "Исход"
003-001 577
004-001 333
005-001 584
006-001 956
007-001 745
Нужно чтобы в книги которые указаны в списке в Лист1 в ячейки h16 каждой книги разнеслись значения

[804040]

Помогите плиз...

[804040]

такое вообще возможно? Или я просто не смог объяснить нормально?)

[Hugo121]

Возможно. Но у меня 2000 на работе, извините...

[804040]

Проспонсирую написание)

[804040]

________ 10 wmz
skype opanuby

[kuklp]

Попробуйте.