не работает раскраска повторов.

[danika24]

Sub поискивставка()
UserForm1.Show:
End Sub
Sub UserForm_Initialize()

End Sub
    Dim wb As Workbook
    For Each wb In Workbooks
        ComboBox1.AddItem CStr(wb.Name): ComboBox2.AddItem CStr(wb.Name)
    Next
Sub вставка()
Dim i As Long, x As Range, Fst As String, c1 As Long, c2 As Long
    Application.ScreenUpdating = False: Workbooks(ComboBox1.Text).Sheets(Val(TextBox3)).Activate
    c1 = Val(TextBox1.Text): c2 = Val(TextBox2.Text)
    With Workbooks(ComboBox2.Text).Sheets(Val(TextBox4))
        Columns(c1).Interior.ColorIndex = xlNone: .Columns(c2).Interior.ColorIndex = xlNone
        For i = 2 To Cells(Rows.Count, c1).End(xlUp).Row
            If Cells(i, c1) <> "" Then
                Set x = .Columns(c2).Find(what:=Cells(i, c1), LookAt:=xlWhole)
                If Not x Is Nothing Then
                    Cells(i, c1).Interior.ColorIndex = 6: Fst = x.Address
                    Do
                        .Cells(x.Row, c2).Interior.ColorIndex = 6
                        Set x = .Columns(c2).FindNext(x)
                    Loop While Fst <> x.Address
                End If
            End If
        Next
    End With
    Unload Me
End Sub

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

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Aleksandr H.]

В какой строке ошибка?

[danika24]

Сообщение от Aleksandr H.

В какой строке ошибка?

Columns(c1).Interior.ColorIndex = xlNone:

[Serge_Bliznykov]

проверил. в MS Excel (MS Office 2010) работает.

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

Цитата:
Сообщение от Aleksandr H.
В какой строке ошибка?
Columns(c1).Interior.ColorIndex = xlNone:

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

c1 = Val(TextBox1.Text): c2 = Val(TextBox2.Text)

Вы, скорее всего, неверно задаёте входные данные для макроса.
в TextBox1 и TextBox2 нужно указывать номера столбцов, начиная от 1 (единицы) (1 - это столбец "A")

[danika24]

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

проверил. в MS Excel (MS Office 2010) работает.




Вы, скорее всего, неверно задаёте входные данные для макроса.
в TextBox1 и TextBox2 нужно указывать номера столбцов, начиная от 1 (единицы) (1 - это столбец "A")

Не в шаблоне прописано столбец надо задавать какой с каким сравнивать.
выглядит так книга какая второе окно какой лист третье окно столбец.

[danika24]

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

Не в шаблоне прописано столбец надо задавать какой с каким сравнивать.
выглядит так книга какая второе окно какой лист третье окно столбец.

задумка была такая брать книгу и сравнить разные листы данные из столбцов, они могут быть в разных местах листов, которые задаются формой .

[Serge_Bliznykov]

вот я и говорю, проверьте, что у Вас все параметры

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

так книга какая второе окно какой лист третье окно столбец.

заданы корректно.

p.s. или файлики (тестовые + файл с макросом/формой) запакуйте в архив и архив прикрепите к сообщению на форуме.

[danika24]

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

вот я и говорю, проверьте, что у Вас все параметры

заданы корректно.

p.s. или файлики (тестовые + файл с макросом/формой) запакуйте в архив и архив прикрепите к сообщению на форуме.

Файл

[Serge_Bliznykov]

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

Файл
Вложения
Поиск и вывод на другой лист1.rar (43.4 Кб, 2 просмотров)

Вы не ошиблись?
данный файл не имеет ничего общего с обсуждаемым в теме макросом.

[danika24]

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

Вы не ошиблись?
данный файл не имеет ничего общего с обсуждаемым в теме макросом.

Ошиблись ( вот файл