Распределить данные из одного листа.

[Zhiltsov]

Добрый вечер господа!
Помогите, пожалуйста, с задачкой:
Есть книга. В книге есть лист «Сводная» в нем таблица со строками от a до h и столбцы от а до в2, нужно из этой таблицы разнести данные по листам a-h в столбцы а-в2 в строки с датой указанной в листе «Сводная», курсы должны копироваться с листа Сводная в лист Курсы в строку с датой указанной в курсах.
Данные в «Сводной подгружаются из разных текстовых файлов с помощью макроса.
Хотелось бы чтобы это все работало следующим образом:
1, Загрузить данные в лист «Сводная» (выполнено. макрос)
2, Импортировать данные Курсов в лист курсы из интернета (выполнено)
3, расписать данные из листа сводная по остальным листам(макрос) – вот с этим пунктом не могу справиться.

[SAS888]

Посмотрите вложение. Запустите макрос "Distribution".
Значения ячеек в диапазоне "B2:J9" на листе "Сводная" внесены для визуализации результата работы макроса.

[Zhiltsov]

Спасибо огромное! Все работает!
Еще вопрос. Вот макрос который импортирует данные из текстового файла в эксель, можно его как нибудь оптимизировать. а то у меня такой макрос есть для каждого из двадцати файлов, которые(макросы) запускаются поочереди и пока они работают все мелькает на экрани(Очень быстро открываются новые листы беруться оттуда данные вставляются в нужный лист, закрываются и так 20раз, а в перспективе ещё больше)

[SAS888]

Попробуйте так:

Sub Main()
    Dim sh1 As Worksheet, sh2 As Worksheet
    Application.DisplayAlerts = False: Application.ScreenUpdating = False
    Workbooks.OpenText Filename:="N:\Folder\Folder1\FileName1.txt", _
        Origin:=1251, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _
        Array(0, 1), Array(11, 1), Array(29, 1), Array(48, 1), Array(67, 1), Array(86, 1), Array( _
        105, 1), Array(124, 1), Array(143, 1), Array(162, 1), Array(181, 1), Array(200, 1), Array( _
        219, 1)), TrailingMinusNumbers:=True
    Set sh1 = Sheets("Sheet1"): Set sh2 = Sheets("Sheet2"): sh1.Move After:=Workbooks("FileName2.xls").Sheets(1)
    sh2.[B3] = sh1.[L36]: sh2.[C3] = sh1.[L38]: sh2.[D3] = sh1.[L40]: sh2.[E3] = sh1.[L72]
    sh2.[F3] = sh1.[L74]: sh2.[G3] = sh1.[L76]: sh2.[H3] = sh1.[L108]: sh2.[I3] = sh1.[L110]
    sh2.[J3] = sh1.[L112]: sh2.[K3] = sh1.[B2]: Sheets("Sheet1").Delete
End Sub

[Zhiltsov]

Все ок. спасибо.

[Zhiltsov]

SAS888, а как сделать так, чтобы в макросе распределения значения курсов валют в лист Курсы вставлялись в числовом формате, а то приходится прощелкивать "F2-Enter"

[SAS888]

Какой исходно установлен формат ячеек в листе "Курсы", в таком формате и будут отображаться вставленные данные.

[Zhiltsov]

ясен. спасибо.

[badiv]

Здравствуйте
Помогите, пожалуйста, с задачкой:
Есть книга. В книге есть лист «Сводная» в нем таблица со строками постоянно пополняющимися данными, нужно из этой таблицы разнести данные по листам т.е 4,6,7.....112 (название соответствует столбцу С в сводной) в аналогичные столбцы на вкладках (с названием строк по С т.е 4,6,7.....112) кроме этой самой С (т.к вкладки и так соответствуют названию по С в сводной)

Хотелось бы чтобы это все работало следующим образом:
1. Записываем данные в лист «Сводная» (макрос)
2. Данные распределяются на основании столбца С в сводной, по своим вкладкам
я вижу что предыдущая дискуссия похожа, но не могу разобраться тк не знаю макросов


пример как должно выглядеть во вкладке 4 с данных по сводной

за ранее спасибо

[SAS888]

Посмотрите пример во вложении.
Макрос "Main" очистит таблицы всех листов с числовыми именами и распределит по этим листам данные из листа "Svodnaya".
Макрос не проверяет наличие листа с текущим именем из столбца "C". Если нужно, то можно добавить такую проверку, но Вы не указали, что делать в этом случае.
Все ли так, как нужно? Нужны ли комментарии к коду?