Скоро сдавать лабу. Макрос в excel

[terredis]

Здравствуйте. Помогите написать макрос. Нужно что бы по нажатию на кнопку "Заполнить". все остальные листы заполнялись (столбиком) датой с названием соответствующего листа. то есть на листе "Сентябрь" были все даты за сентябрь, в "Октябрь"- за октябрь и т.д. причем год должен браться из ячеек A2 и B2. с сентября до декабря должен формироваться столбец с годом указанным в ячейке A2, а с сентября по август - из B2. кому не сложно, прошу откликнуться.
(на листе "Сентябрь" пример того, как должно выглядеть заполнение листов. каждая дата должна повторяться 8 раз!)

[DiemonStar]

для 2013 офиса можно попробовать так:

Sub Fill()
  Application.ScreenUpdating = False
  If [B2] > [A2] Then
    For I = 9 To 8 + ([B2] - [A2]) * 12
      Set Sh = Worksheets.Add(After:=Worksheets(Worksheets.Count))
      Dt = DateSerial([A2] + I \ 12, (I - 1) Mod 12 + 1, 1)
      Sh.Name = Format$(Dt, "mmmm yyyy")
      For J = 1 To (DateAdd("m", 1, Dt) - Dt) * 8
        Sh.Cells(J, 1) = DateAdd("d", (J - 1) \ 8, Dt)
      Next J
    Next I
  End If
  Application.ScreenUpdating = True
End Sub

[terredis]

для 2013 офиса можно попробовать так:

Спасибо. действительно работает. А как сделать чтобы он в существующие листы вписывал дату, а не создавал новые?

[DiemonStar]

Set Sh = Worksheets.Add(After:=Worksheets(Worksheets.Count))
      Dt = DateSerial([A2] + I \ 12, (I - 1) Mod 12 + 1, 1)
      Sh.Name = Format$(Dt, "mmmm yyyy")

вот этот блок поправьте на такой:

Dt = DateSerial([A2] + I \ 12, (I - 1) Mod 12 + 1, 1)
Set Sh = Worksheets(Format$(Dt, "mmmm yyyy"))

[terredis]

вот этот блок поправьте на такой:

К сожалению выдает ошибку на этой строке:

 Set Sh = Worksheets(Format$(Dt, "mmmm yyyy"))

[DiemonStar]

1. Какую ошибку выдает?
2. а есть ли лист с таким названием?

[terredis]

1. Какую ошибку выдает?
2. а есть ли лист с таким названием?

1. Rubn-time error '9':
Subscript out of range
2.Название листов показаны в файле "Пример.rar". там сразу созданы листы со след названиями: Сентябрь, Октябрь, Ноябрь, Декабрь, Январь, Февраль (1-ый семестр), Февраль (2-ой Семестр), Март, Апрель, Май, Июнь, Июль, Август.

[DiemonStar]

Subscript out of range

означает, что в коллекции нет элемента с таким кодом. (в данном случае - листа с таким именем)

Название листов показаны в файле "Пример.rar". там сразу созданы листы со след названиями: Сентябрь, Октябрь, Ноябрь, Декабрь, Январь, Февраль (1-ый семестр), Февраль (2-ой Семестр), Март, Апрель, Май, Июнь, Июль, Август.

ну так поправьте формат:

Set Sh = Worksheets(Format$(Dt, "mmmm"))

з.ы. по каким критериям разделять февраль на 1 и 2 семестры Вы ни слова не сказали (а без этого нормально адресоваться на листы не представляется возможным)
з.з.ы. вариант с созданием листов в данном случае, по моему мнению, более корректен.

[terredis]

.ы. по каким критериям разделять февраль на 1 и 2 семестры Вы ни слова не сказали (а без этого нормально адресоваться на листы не представляется возможным)
з.з.ы. вариант с созданием листов в данном случае, по моему мнению, более корректен.

Вы правы, когда удалил Февраль(1 семестр) и Февраль (2-ой семестр), и вместо них создал лист "Февраль", то все заработало.
как можно сместить на пару ячеек заполнение столбцов. он заполняет с начала столбца A (A1). необходимо, что бы он начинал заполнение с ячейки A4.
А как вариант возможно написать код для Февраль (1-ый семестр) и Февраль (2-ой семестр отдельно?)

[terredis]

з.ы. по каким критериям разделять февраль на 1 и 2 семестры Вы ни слова не сказали (а без этого нормально адресоваться на листы не представляется возможным)
з.з.ы. вариант с созданием листов в данном случае, по моему мнению, более корректен.

Со всем разобрался кроме того, как начать заполнение с ячейки A4. Какой код нужно добавить или изменить?