Помогите написать макрос

[Neo007]

Друзья, подскажите, в листе to Stores существует некая база данных с номерами магазинов с 8010 по 8023. В книге также созданы одноименные листы с номерами магазинов. Нужен макрос, который бы из листа to Stores копировал информацию со столбца A по столбец K по каждому магазину в лист, относящийся к этому магазину. Выборку можно делать по столбцу B книги to Stores, т.е. именно этот столбец содержит информацию о магазине в формате: Store 8010, Store 8011 ... Store 8023

[SAS888]

Посмотрите вложение. Запустите макрос "Distribute".

[Rom1k06]

Хороший код.
А не напишеть коментарии к коду
Хотелось бы понять принцип работы макроса.
А то я делаю чтото вроде того но у меня на это уходит много времени и код получается в 4 раза длинней а это хороший пример для меня чтобы в будующем писать компактнее.

[IgorGO]

надеюсь SAS888 не обидится. комментарии будут за строкой кода

Sub Distribution()
Application.ScreenUpdating = False
не обновлять экран
Dim i As Long, j As Long, a As Long, b As Long, ws As Worksheet
Sheets("to stores").Select 'Макрос может запускаться при любом активном листе
выбран лист "to stores" (стал активным)
For i = 9 To Cells(Rows.Count, "B").End(xlUp).Row
цикл начиная с 9-го ряда до конца списка
On Error GoTo Metka 'Если такой лист не существует
Set ws = Sheets(Right(Cells(i, "B"), 4))
забираем 4 правых символа из ячейки В. на этот лист необходимо будет копировать очередной (i-й) ряд данных с листа-источника
a = ws.Cells(Rows.Count, "A").End(xlUp).Row
определяем последний ряд по колонке А на листе-приемнике
b = ws.Cells(Rows.Count, "B").End(xlUp).Row
определяем последний ряд по колонке В (на всякий случай)
j = IIf(a > b, a + 1, b + 1)
опредеем ряд куда копировать данные по большему из А или В, + 1
Rows(i).Copy ws.Rows(j)
копируем ряд
Metka: Next
End Sub

Код действительно очень компактный.
На мой взгляд, сомнительна необходимость строки с запретом обновления экрана. Потому как открыт у нас постоянно лист "to stores", а данные заносятся на закрытые листы, могу предположить, что эксель ничего не обновляет в данной ситуации (это предположение). Ну, и после Next, видимо, необходимо было снова включить обновление экрана.

[SAS888]

Спасибо IgorGO. Комментарии подробнейшие.
По поводу Application.ScreenUpdating:
1. Согласен, в данном случае это излишне (вставил на автомате).
2. По завершении работы макроса Application.ScreenUpdating возвращается в состояние True автоматически.