Проверка условия. Поправить макрос

[kzld]

Сообщение от Skif-F

Имена листов в книгах соответствуют? Если нет, то укажите таблицу соответствия

Имена листов к книге источнике
01,02,03,1_kv,04,05,06,2_kv,07,08,0 9,3_kv,10,11,12,year
Имена листов к книге приёмнике
01,02,03,04,05,06,07,08,0 9,10,11,12

[Skif-F]

попробуй:

Public Sub kassadebet01()
    Dim Sht1 As Worksheet, Sht2 As Worksheet, flag As Boolean
    
    For Each Sht1 In Workbooks("kassa_2004.xls").Worksheets
        flag = False
        For Each Sht2 In Workbooks("allwork-2004-00-year.xls").Worksheets
            If Sht2.Name = Sht1.Name Then
                flag = True
                Exit For
            End If
        Next
        If flag Then
            Sht1.Range("B8:C655").ClearContents
            For i = 3 To 500
                If Sht2.Cells(i, 5).Value = 441 And Sht2.Cells(i, 7).Value <> "" Then
                    For k = 8 To 655
                        If Sht1.Cells(k, 2).Value = 0 And Sht1.Cells(k, 1).Value = Sht2.Cells(i, 7).Value Then
                            Sht1.Cells(k, 2).Value = Sht2.Cells(i, 9).Value
                            Sht1.Cells(k, 3).Value = Sht2.Cells(i, 8).Value
                            Exit For
                        End If
                    Next k
                End If
            Next i
        End If
    Next
End Sub

[kzld]

Сообщение от Skif-F

попробуй:

То что надо.
Вот только этот макрос заполняет только левую половину таблицы, а как его уговорить заполнять правую половину.
Прилагаю новые файлы, в каждом по 12 листов

[Skif-F]

Надеюсь, что не поздно. Вроде бы всё сделал. Проверь.
Кнопки можно с листов убрать - я поставил панель инструментов. У меня в Excel 2007 всё работает на 2003 не пробовал.

[kzld]

Сообщение от Skif-F

Надеюсь, что не поздно. Вроде бы всё сделал. Проверь.
Кнопки можно с листов убрать - я поставил панель инструментов. У меня в Excel 2007 всё работает на 2003 не пробовал.

Спасибо, в 2007 работает.