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

[Aleksandr H.]

вот "это" раскрашивает на тестовом файле 100%

Private Sub CommandButton1_Click()
    Dim i As Long, x As Range, Fst As String, A1 As Long, A2 As Long
    Application.ScreenUpdating = False: Workbooks(ComboBox1.Text).Sheets(Val(TextBox3)).Activate
    A1 = Val(TextBox1.Text): A2 = Val(TextBox2.Text)
    With Workbooks(ComboBox2.Text).Sheets(Val(TextBox4))
        Columns(A1).Interior.ColorIndex = xlNone: .Columns(A2).Interior.ColorIndex = xlNone
        For i = 2 To Cells(Rows.Count, A1).End(xlUp).Row
            Set x = .Columns(A2).Find(what:=Cells(i, A1), LookAt:=xlWhole)
            If Not x Is Nothing Then
                Cells(i, A1).Interior.ColorIndex = 6: Fst = x.Address
                Do
                    .Cells(x.Row, A2).Interior.ColorIndex = 6
                    Set x = .Columns(A2).FindNext(x)
                Loop While Fst <> x.Address
    End If: Next: End With
    Unload Me
End Sub

из сообщения 1 этой темы надо оставить только

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

все остальное в модуле - шлак который только отвлекает

[danika24]

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

[Aleksandr H.]

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

книгу внутри с макросом, который у вас работает

___

[Serge_Bliznykov]

угу. добавлю. проблема в том, что на кнопку в форме "Сравнить" назначен
такой код:

Private Sub CommandButton1_Click()
    Dim i As Long, x As Range, Fst As String, A1 As Long, A2 As Long
    Application.ScreenUpdating = False: Workbooks(ComboBox1.Text).Sheets(Val(TextBox3)).Activate
    A1 = Val(TextBox1.Text): A2 = Val(TextBox2.Text)
    With Workbooks(ComboBox2.Text).Sheets(Val(TextBox4))
        Columns(A1).Interior.ColorIndex = xlNone: .Columns(A2).Interior.ColorIndex = xlNone
        For i = 2 To Cells(Rows.Count, A = 1).End(xlUp).Row
            Set x = .Columns(A2).Find(what:=Cells(i, A1), LookAt:=xlWhole)
            If Not x Is Nothing Then
                Cells(i, A1).Interior.ColorIndex = 6: Fst = x.Address
                Do
                    .Cells(x.Row, A2).Interior.ColorIndex = 6
                    Set x = .Columns(A2).FindNext(x)
                Loop While Fst <> x.Address
    End If: Next: End With
    Unload Me
End Sub

красным я выделил код, который и приводит к ошибке

[danika24]

Не работает ошибка.

[Serge_Bliznykov]

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

Не работает ошибка.

проверил. работает.

попробуйте ещё раз.
файл с макросом: Выделение повторов.zip
(я переименовал его, чтобы Вы не путались, какой запускать)

при запуске и открытии формы заполняем параметры:
pos1.jpg

после нажатия на кнопку "Сравнить":
pos2.png

[danika24]

все спасибо оказалось нам что то сделали с екселм на работе переустановила все заработало. И вопрос еще не могу вспомнит как код спрятанный увидить, чтобы перенести в другую книгу.

[Serge_Bliznykov]

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

И вопрос еще не могу вспомнит как код спрятанный увидить

alt-F11
или, тоже самое - в главное меню "Разработчик" - "Visual Basic"

[danika24]

Еще нужна строка кода которая проставляет значение из листа 2 второго столбца, в 1 лист третьего столбца .(чтобы увидеть изменения в названии если есть.

[Serge_Bliznykov]

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

Еще нужна строка кода которая проставляет значение из листа 2 второго столбца, в 1 лист третьего столбца

может быть, устроит прописать ручками вызов функции =ВПР() в третьем столбце?

можно, конечно, и макрос допилить.
но тогда,
- либо универсальность вся коту под хвост (смысл задавать книги, номера листов и столбцов, если в коде будет прописано: " значение из листа 2 второго столбца, в 1 лист третьего столбца")
- либо городить дополнительные поля в форме - а это явно не одна и не две строчки в коде.