Копирование строки при совпадении

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Копирование строки при совпадении - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование строки при совпадении (Макросы/Sub)

Копирование строки при совпадении

andreyzacman

Дата: Пятница, 17.02.2023, 17:12 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Доброго времени уважаемые знатоки, помогите пожалуйста. Нужна работа макроса при совпадении фамилии в ячейке С3 со списком фамилий в столбцеB, вся строка С3:F3 копировалась, рядом согласно совпавшей фамилии. Пример прилагаю.

К сообщению приложен файл: primer_777.xlsx (12.8 Kb)

Ответить

Serge_007

Дата: Пятница, 17.02.2023, 17:30 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Здравствуйте

Например так можно:
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rR As Range
        If Target.Address = "$C$3" Then
        Range("c5:f12").ClearContents
            For Each rR In Range("b5:b12")
                If rR = Cells(3, 3) Then
                Range("c3:f3").Copy Cells(rR.Row, 3)
                End If
            Next rR
        End If
End Sub

[/vba]

К сообщению приложен файл: 20230217_andreyzacman.xls (47.5 Kb)

ЮMoney:41001419691823 | WMR:126292472390

Ответить

andreyzacman

Дата: Пятница, 17.02.2023, 17:34 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Serge_007, Огромное спасибо! Все работает! Благодарю!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование строки при совпадении (Макросы/Sub)

Страница 1 из 1
1