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

[kzld]

Открываем оба файла.
В файле "kassa_2004.xls" жмем кнопку ДЕБЕТ
Заполняется ненужная строка 657
Если еще раз нажать заполняется строка 658

Как в макросе задать условие, что если в столбе G, не заполнена дата, тогда игнорировать строку

[Skif-F]

Надеюсь, Вы сами писали программу, поэтому привожу прмер кода. Я бы сделал примерно так:

Public Sub kassadebet01()
    Range("B8:C655").ClearContents 'Очищаем диапазон
    With Workbooks("allwork-2004-00-year.xls").Sheets("01")
        For i = 3 To 500         'Цикл по строкам источника'
            'Если Кредит = 441 и ячейка даты не пустая'
            If .Cells(i, 5).Value = 441 And .Cells(i, 7).Value <> "" Then
                For k = 8 To 655     'Цикл по строкам приёмника'
                    'Если ячейка-приёмник пустая и даты совпадают'
                    If Cells(k, 2).Value = 0 And Cells(k, 1).Value = .Cells(i, 7).Value Then
                        Cells(k, 2).Value = .Cells(i, 9).Value
                        Cells(k, 3).Value = .Cells(i, 8).Value
                        Exit For
                    End If
                Next k
            End If
        Next i
    End With
End Sub

[kzld]

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

Надеюсь, Вы сами писали программу, поэтому привожу пример кода.

Нет, не сам. Помогали знатоки с этого форума

Макрос работает. Спасибо.
Попытался переделать макрос под правую сторону таблицы и запутался.
VBA только изучаю.
Буду признателен, если Вы поможете модифицировать макрос для правой половины таблицы kassa_2004.xls

[Skif-F]

Public Sub kassakredit01()
    Range("J8:J655").ClearContents   'Очищаем диапазон'
    With Workbooks("allwork-2004-00-year.xls").Sheets("01")
        For i = 3 To 500  'Цикл по строкам источника'
            'Если Кредит = 441 и ячейка даты не пустая'
            If .Cells(i, 6).Value = 441 And .Cells(i, 7).Value <> "" Then
                For k = 8 To 655  'Цикл по строкам приёмника'
                    'Если ячейка-приёмник пустая и даты совпадают'
                    If Cells(k, 10).Value = 0 And Cells(k, 1).Value = .Cells(i, 7).Value Then
                        Cells(k, 10).Value = .Cells(i, 12).Value
                        Cells(k, 11).Value = .Cells(i, 8).Value
                        Exit For
                    End If
                Next k
            End If
        Next i
    End With
End Sub

[kzld]

Работает, большое спасибо.
Как модифицировать макрос, если листов в обоих книгах будет по 12 штук, по количеству месяцев. Т.е. жмём кнопочку и макрос одним махом заполняет целый год

[Skif-F]

Например, так:

Public Sub kassadebet01()
    For j = 1 To Worksheets.Count
        Worksheets(j).Activate
        Range("B8:C655").ClearContents
        With Workbooks("allwork-2004-00-year.xls").Sheets(j)
            For i = 3 To 500
                If .Cells(i, 5).Value = 441 And .Cells(i, 7).Value <> "" Then
                    For k = 8 To 655
                        If Cells(k, 2).Value = 0 And Cells(k, 1).Value = .Cells(i, 7).Value Then
                            Cells(k, 2).Value = .Cells(i, 9).Value
                            Cells(k, 3).Value = .Cells(i, 8).Value
                            Exit For
                        End If
                    Next k
                End If
            Next i
        End With
    Next j
End Sub

Public Sub kassakredit01()
    For j = 1 To Worksheets.Count
        Worksheets(j).Activate
        Range("J8:J655").ClearContents
        With Workbooks("allwork-2004-00-year.xls").Sheets(j)
            For i = 3 To 500
                If .Cells(i, 6).Value = 441 And .Cells(i, 7).Value <> "" Then
                    For k = 8 To 655
                        If Cells(k, 10).Value = 0 And Cells(k, 1).Value = .Cells(i, 7).Value Then
                            Cells(k, 10).Value = .Cells(i, 12).Value
                            Cells(k, 11).Value = .Cells(i, 8).Value
                            Exit For
                        End If
                    Next k
                End If
            Next i
        End With
    Next j
End Sub

Только следи, чтобы листы шли последовательно

[kzld]

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

Только следи, чтобы листы шли последовательно

В этом то и задача.
В файле источнике имеются лишние листы, на которых суммируются данные по кварталам года, по итогам за весь год, лист с шаблонами.
Как уговорить макрос просматривать только определённые листы файла источника ? Файл источник и файл приёмник имеют одинаковые наименования листов

[Skif-F]

а по какому принципу изменяются имена листов? Если имеется чёткая закономерность, то можно сделать

[kzld]

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

а по какому принципу изменяются имена листов? Если имеется чёткая закономерность, то можно сделать

Наименования листов не изменяются. Среди всех листов книги имеются для данной задачи не нужные. С них брать данные не надо. Имена листов к книге
01,02,03,1_kv,04,05,06,2_kv,07,08,0 9,3_kv,10,11,12,year

[Skif-F]

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