Макрос на создание файлов

[Viento]

Доброго Вам времени суток уважаемые программисты!

У меня к вам большая просьба помочь в решении следующей задачи:
Исходные данные:
1)файл "0.xls" который выгружается программой.
2)файл "невыходы.xls" в котором необходимо прописать макрос.
3)все файлы находятся в условной папке "Ноябрь"

Решение:
Создать макрос, который выполнял бы следующие действия:

1)выбрать данные из файла "0.xls" (столбец H (логин) и L(состояние расписания)) относящиеся к дате 01.11.09 (столбец J).
2)Затем создать файл "1.xls", в той же папке, и вставить туда данные Дата,ФИО,Состояние расписания, соответствующие дате 01.11.09.
3) туже процедуру повторить на все 31 день. (2.xls - 02.11.09; 3.xls - 03.11.09 и т.д.)
4) В итоге, в папке ноябрь будет создано 31 файл.

Заранее благодарен за Вашу помощь!
С Уважением ЭБК!

[Viento]

Уважаемые программисты, скажите пожалуйста, мой вопрос полежит решению, или слишком замудренный?
Спасибо!

[EducatedFool]

мой вопрос полежит решению, или слишком замудренный?

Замудрённого в вопросе, вроде бы, ничего нет.

Просто, чтобы написать макрос, надо потратить много времени, чтобы разобраться со структурой ваших файлов (что, откуда и куда копировать).
Да и на написание кода уйдёт немало сил...

Если Вы сами не желаете тратить время на написание макроса, то не удивляйтесь, что и у других не возникает аналогичного желания.
Вам-то хоть за это зарплату платят... а Вы пытаетесь переложить свою работу на нас.

Пробуйте сделать самостоятельно. Если что-то конкретное не будет получаться - обращайтесь, поможем.

А хотите получить готовое решение - платите за работу.

[segail]

Я бы заплатил. Только никто не хочет.
Платите Viento.

[Viento]

ок! спасибо!

[Viento]

Уважаемые программисты, я тут накумекал малек. на форуме нашел пример, и по аналогии сделал.
Все работает, только проблема в том, что работает на 1 день.
Подскажите пожалуйста, где поставить цикл в макросе, чтобы он работал с 1.11.09 до 30.11.09. Заранее благодарен за помощь.

Sub d1()
    Dim i As Long, j As Long, k As Long, c As Long, d1(), b(): Application.ScreenUpdating = False
    
        Workbooks("0.xls").Worksheets("sch_states_csv").Copy:
    
        d1 = Range([A2], Cells(ActiveSheet.UsedRange.Rows.Count, 23)).Value
    
        ReDim b(1 To UBound(d1, 1), 1 To UBound(d1, 2)): k = 1
    
        For i = 1 To UBound(d1, 1)
            If d1(i, 10) = "01.11.09" Then
             For j = 1 To UBound(d1, 2): b(k, j) = d1(i, j): Next
                k = k + 1
    End If: Next
        Range([A1], Cells(UBound(b, 1) + 1, UBound(b, 2))).Value = b
   
End Sub