Добрый день, прошу помочь разобраться в проблеме. Написала макрос для переноса по условию, но условие не выполняется, данные просто копируются. Скорее всего, я некорректно задала само условие, но найти ошибку не могу
Суть: Есть лист "1" и "2", три колонки везде A,B,C.
На первом листе условия А = ID, B = номер договора, С = пустой столбец, в него нужно вставить данные из листа "2"
На втором листе А = ID, B = номер договора, С = данные.
Условие - чтобы данные присваивались, если ID и номер клиента совпадают
Суть: Есть лист "1" и "2", три колонки везде A,B,C.
На первом листе условия А = ID, B = номер договора, С = пустой столбец, в него нужно вставить данные из листа "2"
На втором листе А = ID, B = номер договора, С = данные.
Условие - чтобы данные присваивались, если ID и номер клиента совпадают
Код |
---|
Sub Перенос() With Worksheets("1") Ir = 2 For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Range("A" & i).Value = Range("A" & i) And Range("B" & i).Value = Range("B" & i) Then .Range("C" & Ir).Value = Range("C" & i).Value Ir = Ir + 1 End If Next End With End Sub |