Сравнение двух столбцов в разных книгах

[Cayman]

а возможно ли убрать абсолютные названия файлов?
к примеру открыты только 2 документа и ничего более, чтоб он сам определил с каким файлом сравнивать? =))

[EducatedFool]

Вместо абсолютной ссылки на книгу используйте эту функцию:
http://excelvba.ru/code/GetAnotherWorkbook

[The_Prist]

Игорь, я бы посоветовал чуть подработать код(точнее его часть - ту, что за занесение книг в коллекцию отвечает)
Вместо:

For Each WB In Workbooks
        If WB.Name <> ThisWorkbook.Name Then coll.Add CStr(WB.Name)
Next WB

For Each WB In Workbooks
        If WB.Name <> ThisWorkbook.Name Then
            If WB.Windows(1).Visible Then coll.Add CStr(WB.Name)
        End If
Next WB

А то ненароком можно и надстройки и PERSONAL.XLS в список затащить. Они не всегда попадают в коллекцию Workbooks, но известны случаи....

[EducatedFool]

Спасибо, Дима, исправил.

Да я этот код только что написал за несколько минут - для одного проекта понадобился.
А тут как раз просили что-то подобное.

Там ещё очень много дорабатывать, если делать по-человечески...

[The_Prist]

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

исправил.

Исправь еще, ориентируясь на код выше. Я его тоже поправил.

[Cayman]

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

[SAS888]

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

Sub Main()
    If Workbooks.Count <> 2 Then
        MsgBox "Должно быть открыто 2 рабочих книги!": Exit Sub
    End If
    Dim i As Long, x As Range, Fst As String, wb As Workbook
    Application.ScreenUpdating = False: ThisWorkbook.Sheets(1).Activate
    If Workbooks(1).Name = ThisWorkbook.Name Then Set wb = Workbooks(2) Else Set wb = Workbooks(1)
    With wb.Sheets(1)
        Columns("A").Interior.ColorIndex = xlNone: .Columns("A").Interior.ColorIndex = xlNone
        For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
            Set x = .Columns("A").Find(what:=Cells(i, "A"), LookAt:=xlWhole)
            If Not x Is Nothing Then
                Cells(i, "A").Interior.ColorIndex = 6: Fst = x.Address
                Do
                    .Cells(x.Row, "A").Interior.ColorIndex = 6
                    Set x = .Columns("A").FindNext(x)
                Loop While Fst <> x.Address
    End If: Next: End With
End Sub

Пример во вложении. Откройте оба файла и запустите макрос "Main". Если количество открытых файлов не равно 2, то макрос выполнен не будет.

[Cayman]

спасибо! ну а всетаки можно сделать с окошком выбора документов?? этот макрос для шефа, у него постоянно открыто много книг Excel..будет не удобно очень.заранее благодарю!

[Cayman]

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

[SAS888]

а всетаки можно сделать с окошком выбора документов?

Нужно было сразу сказать. Тогда бы мы не гадали, что это за 2-й файл.
Посмотрите вложение. Откройте файл "Книга1.xlsm" и запустите макрос "Main".
P.S. Перед открытием выбранного файла можно добавить требуемые проверки.