Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Поиск совпадений по столбцам, Добрый день! Помогите с макросом)))
 
#1
03.08.2020 08:48:40

Добрый день!

Помогите с макросом)))

Суть такова есть файл в нем столбцы поделены,

Есть Таб.№ и ФИО и две кнопочки, должно получиться так, при нажатии кнопки должно найти совпадение по Таб.№ или ФИО.

Спасибо всем за помощь))

Всем добра)))
 
 
 
#2
03.08.2020 10:08:25
Александр Жуков, ДД. а покажите в файле желаемый результат
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#3
03.08.2020 10:12:55
Вот при нажатии одной из кнопок выделяются совпадения  
Всем добра)))
 
 
 
#4
03.08.2020 10:16:56
Александр Жуков, а почему не выделана допустим строка с № 305?
она же есть в таблицу A:C ??? так как пояснений нет - сделал как понял.
Удачи
Код
Sub dd()
Dim i As Long
Dim cell As Range, rng As Range
Dim lr As Long, lr2 As Long
    lr = Cells(Rows.Count, 3).End(xlUp).Row
    lr2 = Cells(Rows.Count, 7).End(xlUp).Row
Set rng = Range("B2:B" & lr)
For i = 2 To lr2
    Set cell = rng.Find(Cells(i, 6), LookIn:=xlValues)
    If Not cell Is Nothing Then
        Range(Cells(cell.Row, 2), Cells(cell.Row, 3)).Interior.ColorIndex = 3
        Range(Cells(i, 6), Cells(i, 7)).Interior.ColorIndex = 3
    End If
Next i
End Sub
Код
Sub dd2()
Dim i As Long
Dim cell As Range, rng As Range
Dim lr As Long, lr2 As Long
    lr = Cells(Rows.Count, 3).End(xlUp).Row
    lr2 = Cells(Rows.Count, 7).End(xlUp).Row
Set rng = Range("C2:C" & lr)
For i = 2 To lr2
    Set cell = rng.Find(Cells(i, 7), LookIn:=xlValues)
    If Not cell Is Nothing Then
        Range(Cells(cell.Row, 2), Cells(cell.Row, 3)).Interior.ColorIndex = 6
        Range(Cells(i, 6), Cells(i, 7)).Interior.ColorIndex = 6
    End If
Next i
End Sub
Изменено: Mershik - 03.08.2020 10:38:29
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#5
03.08.2020 10:49:38
См. вариант.
И не нужно писать через строку - исправьте своё сообщение.
 
 
 
#6
03.08.2020 11:27:02
Всем спасибо огромное! все отлично)
Всем добра)))
 
 
 
Страницы: 1
Наверх