поиск по диапазону и подстановка значения в зависимости от результата

[Hugo121]

Копирование и оповещение можно сделать макросом http://hugo.nxt.ru/CompareFiles.Find.rar
В настройках указываете что с чем сравнивать, что куда копировать, куда писать пометки о парах. Этот файл можно с этими настройками сохранить для следующего раза.
В самом рабочем файле макросы не нужны.
Но 15 раз бесплатно, потом ставите пиво

Файл - приёмник: C:\tmp\Bumek\Bumek Copy of Xl0000073.xls
Файл - источник: C:\tmp\Bumek\Bumek Copy of Xl0000073.xls
Столбцы сравнения в приёмнике: b
Столбцы сравнения в источнике: d
Лист - приёмник (№): 1
Лист - источник (№): 2
Столбцы - приёмники данных копирования: g,e,f
Столбцы - источники данных копирования: g,p,l
Столбец для пометок в приёмнике: v
Столбец для пометок в источнике: v


Хотя Ваш макрос тоже несложно наладить...

[Bumek]

Спасибо, помогло. Подскажите еще пожалуйста, заменил часть кода

Sub Сверка()  'Вставка расхода'
    Dim a As Range
    Set a = Range("A1:A10") 'Обрабатываемый диапазон'
    Call SearchID(a)
End Sub
Sub SearchID(diap As Range)
    Dim BaseDiap As Range, x As Range, c As Range
    
    Set BaseDiap = Range("C1:C10")  'Диапазон с исходными данными'
    For Each x In diap
        Set c = BaseDiap.Find(What:=x.Value, LookIn:=xlValues, LookAt:=xlWhole)
            If Not Intersect(Range("A1"), Range("C1:C10")) Is Nothing Then
                MsgBox "Все ячейки входят в диапазон"
            Else
                MsgBox "Ячейка " & Cells(x.Row, x.Column) & " невходит в диапазон"
            End If
    Next x
End Sub

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

[Bumek]

Спасибо за помощь, немного подумав и построив логическую цепочку работы макроса, даже не зная что и как у меня получилось, правда конечно не все, но уведомления выскакивают))))))) Спасибо!!

[Bumek]

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

Sub Zagruzka()
    Dim a As Range
    Set a = Range("Гар.№_" & ActiveSheet.Name) 'Диапазон Что ищем'
    Call SearchID(a)
End Sub
Sub SearchID(diap As Range)
    Dim BaseDiap As Range, x As Range, c As Range
    
    Set BaseDiap = Workbook("тэп_" & ActiveSheet.Name & "_" & Forma.ComboBox1.Value & ".xls").Sheets(1).Range("D5:D600") 'Диапазон Где ищем'
    For Each x In diap
        Set c = BaseDiap.Find(What:=x.Value, LookIn:=xlValues, LookAt:=xlWhole)
        If Not (c Is Nothing) Then
            'Если что-то нашли то копируем значение из соседнего столбца'
            Cells(x.Row, x.Column + 1).Value = Workbook("тэп_" & ActiveSheet.Name & "_" & Forma.ComboBox1.Value & ".xls").Sheets(1).Cells(c.Row, c.Column + 1).Value    
            Cells(x.Row, x.Column + 2).Value = Workbook("тэп_" & ActiveSheet.Name & "_" & Forma.ComboBox1.Value & ".xls").Sheets(1).Cells(c.Row, c.Column + 2).Value     
            Cells(x.Row, x.Column + 3).Value = Workbook("тэп_" & ActiveSheet.Name & "_" & Forma.ComboBox1.Value & ".xls").Sheets(1).Cells(c.Row, c.Column + 3).Value     
        End If
    Next x
    MsgBox "Подстановка значений завершена"
End Sub

[Bumek]

помогите пожалуйста разобраться в причине неработы макроса...

[IgorGO]

ошибки...
надо написать в какой строке и какая ошибка.
c ведь нашли уже, в той, открытой книге, чего бы им не воспользоваться:

            x.offset(0,1).Value = c.offset(0,1).Value    
            x.offset(0,2).Value = c.offset(0,2).Value     
            x.offset(0,3).Value = c.offset(0,3).Value

[Bumek]

Сделал как вы написали, спасибо, заметно экономнее получается, но ошибка не исчезла. При выполнении кода выделяет желтой заливкой текст

Sub SearchID12(diap As Range)

а также слово Workbook в строке

Set BaseDiap = Workbook("тэп_" & ActiveSheet.Name & "_" & Forma.ComboBox1.Value & ".xls").Sheets(1).Range("D5:D600")

и выдает ошибку с текстом Sub or Function not defined.
подскажите что не так. Как я понимаю необходимо задать еще условие в макрос... помогите пожалуйста...

[Bumek]

получается что копируем с книги (открытой) название которое определяется названием активного листа и выбранным параметром из комбобокса формы...