Пытаюсь соединить два макроса.

[kzld]

Работать отказывается.
В чём ошибка

[EducatedFool]

Если Вы так любите использовать оператор GoTo и метки (хотя код при использовании Goto становится трудночитаемым, в связи с чем рекомендуется вообще не использовать этот оператор в программах),
то помните, что метки внутри макроса должны быть уникальными
(например, 3, 10, sss, 24f, 6)

А у Вас в макросах метки повторяются: 5, 10, 5, 10

[kzld]

Сообщение от EducatedFool

Если Вы так любите использовать оператор GoTo и метки (хотя код при использовании Goto становится трудночитаемым, в связи с чем рекомендуется вообще не использовать этот оператор в программах),
то помните, что метки внутри макроса должны быть уникальными
(например, 3, 10, sss, 24f, 6)

А у Вас в макросах метки повторяются: 5, 10, 5, 10

Спасибо за ответ.
Я начинающий макрописатель. Многого не знаю.
Да и макрос не мой, я его пытаюсь подправить под мои нужды.
Прошу подсказать как его подправить

[SAS888]

Если не вдаваться в подробности, то Ваш макрос можно изменить, например, так:

Public Sub kassadebet_feb()
    Dim i As Long, s As Long: Application.ScreenUpdating = False
    Union([B9:C176], [J9:K176]).ClearContents
    With Workbooks("allwork-2005-year.xlsm").Sheets("02")
        For i = 3 To 500
            If .Cells(i, 5) = 451 Then
                For s = 9 To 179
                    If Cells(s, 2) = 0 Then
                        If Cells(s, 1) = .Cells(i, 7) Then
                            Cells(s, 2) = .Cells(i, 9): Cells(s, 3) = .Cells(i, 8): Exit For
            End If: End If: Next: End If
            If .Cells(i, 6) = 451 Then
                For s = 9 To 179
                    If Cells(s, 10) = 0 Then
                        If Cells(s, 1) = .Cells(i, 7) Then
                            Cells(s, 10) = .Cells(i, 12): Cells(s, 11) = .Cells(i, 8): Exit For
    End If: End If: Next: End If: Next: End With
End Sub

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

[kzld]

Сообщение от SAS888

Если не вдаваться в подробности, то Ваш макрос можно изменить, например, так:
Но, как мне кажется, можно сделать проще. Подробно сформулируйте задачу и прикрепите оба файла. И еще. Насколько я понял, то этот макрос предназначен для работы для одного месяца. Вы собираетесь делать 12 подобных макросов для каждого листа?

Ура! Спасибо.Работает.
Действительно у меня 12 месяцев.
Я задавал вопрос, однако никто не ответил.
Можно ли создать форму с выпадающим списком или навешать кнопочек для каждого месяца и нажимать кнопочки нужного мне месяца

[kzld]

Сообщение от SAS888

Если не вдаваться в подробности, то Ваш макрос можно изменить, например, так:
Но, как мне кажется, можно сделать проще.

А как можно сделать проще?

[SAS888]

Можно ли создать форму с выпадающим списком или навешать кнопочек для каждого месяца и нажимать кнопочки нужного мне месяца

Можно. Нужно подробное описание файлов, имен листов и задания.

А как можно сделать проще?

Например, использовать метод Find. Для более подробного ответа нужны оба файла и подробное описание задачи, ибо и не знаю, чего Вам конкретно нужно от макроса.

[kzld]

Сообщение от SAS888

Можно. Нужно подробное описание файлов, имен листов и задания.

Например, использовать метод Find. Для более подробного ответа нужны оба файла и подробное описание задачи, ибо и не знаю, чего Вам конкретно нужно от макроса.

Прилагаю оба файла.
Макрос должен заполнить файл "kassa_2005_question.xlsm"
данными из файла "allwork-2005-year.xlsm"
Соответственно по месяцам
Для уменьшения веса в каждом файле оставил только по два месяца.
Вообще месяцев будет 12

[SAS888]

А что конкретно нужно искать, по каким критериям и куда вставлять?
Где описание задания?

[kzld]

Сообщение от SAS888

А что конкретно нужно искать, по каким критериям и куда вставлять?
Где описание задания?

Описание во вложенном файле