Макрос для нахождения текстового значения с определенными условиями

[Екатерина Максимова]

Объясняю задачу более полно. Необходимо в таблице найти значение Н/Д(в столбике С), в этой же строке в стоблике А должно быть значение ЖКХ и при совпадении этих данных копируется номер из столбика В и вставляется во вкладку ВПР в конец таблицы. Код который я составила не работает и выдает ошибку. В VBA только начала работать, поэтому не все понимаю.

If Cells(y, x).Value = "#Н/Д" Then
           
            If Cells(y, x - 2).Value = "ЖКХ" Then
                Range(y, x - 1).Copy
                Dim lLastRow As Long
                lLastRow = Cells(Rows.Count, 1).End(xlUp).Row 'номер последней заполненной ячейки в первом столбце
                Range("ВПР", lLastRow + 1).Paste
            End If
        End If

[vikttur]

Зачем дубль? Почему не продолжаете в предыдущей теме?

[Екатерина Максимова]

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

[kuklp1]

В модуль листа2:

Код Выделить Развернуть

Public Sub www()
    On Error Resume Next
    Dim lr&
    lr = Sheets("ВПР").Cells(Rows.Count, 1).End(xlUp).Row
    With [a1].CurrentRegion
        .AutoFilter 3, "#n/a", xlOr, "#Н/Д": .AutoFilter 1, "ЖКХ"
        .Offset(1).Columns(2).SpecialCells(12).Copy Sheets("ВПР").Cells(lr + 1, 1)
        .AutoFilter
    End With
End Sub