вложенные циклы, заполнение матрицы при выполнении условия (vba excel)

[Tai]

Здравствуйте!
Пытаюсь разобраться с следующей задачей: есть список заявок, для каждой дано: номер, дата заезда, дата выезда, число человек в группе. Дана таблица, в которой для каждого номера, на весь период планирования указан статус 0- свободен, 1 - занят. Заявка принимается, если номеров на нужные даты хватает на всех людей в заявке.
В общем алгоритм решения такой:
для каждой заявки (s)
счетчик = 0
для каждого человека в заявке (v)
по всем номерам
своб. = 0
на нужные даты :
если а = 0, то число своб. + 1,
в ячейку а номер группы (s),
переход к след дате,
если своб. = нужному кол-ву дней, то счетчик + 1,
переход к след номеру
переход к следующему человеку в заявке
если счетчик = числу человек в заявке, то отмечаем заявку принятой
иначе на нужные даты
где а = s, a = 0
след заявка

В файле то, что у меня пока получилось и таблицы, которые нужно использовать и заполнять.
Буду благодарна, если кто-то сможет помочь!=)

[gsg]

если, конечно правильно понял задачу

[Tai]

Извините, не очень поняла, что за файлы в приложении... нужен просто экселевский с макросом в нем

Это пока всё, что я смогла придумать:

Sub greedy()
Dim s As Range, v As Variant
Dim free As Variant, ch As Variant, i As Integer
Dim d As Variant
Dim q As Variant, w As Variant, b As Range
Dim n As Variant
Dim c As Range
Set s1 = Range("A12:A20")
Set a1 = Range("B2:K8")
For Each s In s1
Worksheets("Лист3").Cells(s).Activate
ActiveCell.Offset(0, 1).Select
Set c = Application.ActiveCell.Value
Worksheets("Лист3").Cells(s).Activate
ActiveCell.Offset(0, 2).Select
Set b = ActiveCell.Value
Worksheets("Лист3").Cells(s).Activate
ActiveCell.Offset(0, 3).Select
Set v = ActiveCell.Value
Set n1 = Range("A2:A8")
    ch = 0
        For i = 1 To v
            For Each n In n1
            free = 0
            For d = c To b
ActiveSheet.Range("B2").Offset(0, c).Select
Set q = Worksheets("Лист3").ActiveCell.Address
ActiveSheet.Range("B8").Offset(0, b).Select
Set w = Worksheets("Лист3").ActiveCell.Address
Set a2 = Worksheets("Лист3").Range("q:w")
                        For Each a In a2
                        If a = 0 Then free = free + 1
                        Worksheets("Лист3").Cells(a).Value = s
                        Next
                            Next d
 If free = (b - c) Then ch = ch + 1
                            Next n
                               Next i
                               If ch = v Then Worksheets("Лист3").Range.Cells(s, 7).Value = 1
                                    For Each a In a2
                                    If a.Value = s Then Set a.Value = 0
                                                        Next
Next s
End Sub

ругается уже на "Set c = Application.ActiveCell.Value"

[gsg]

прошу прощения, перепутал файл

[Tai]

я так и подумала
спасибо за помощь!