Вставить значения на той же фамилии

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#1 14.02.2017 12:05:25 Fara, автомат защиты скрыл Ваши сообщения. Попробуйте ещё раз. Если не получится, то я продублирую.

Fara

Пользователь

Сообщений: 15 Регистрация: 02.02.2016

14.02.2017 13:30:17

Доброго времени суток дорогие знатоки форумчане.
Много чего научился, много чего сделал в эксель. Но сейчас не как не могу, не получается.
Есть у меня две таблицы. Вернее два листа Лист1 и Лист2.
Проблема такова.
С "Лист1" значения столбца "F" скопировав и переходим на "Лист2" находим в столбце "B" фамилию вставим только значение на столбец "R" на строке тойже фамилии. Если нет той фамилии на Листе2, то значения "F" меняем цвет на красный на Листе1.
На пример: "Лист1" первый по списку в столбце "E" "Иванов" копируем ячейку "F" значение "23"
Далее находим на "Лист2" в столбце "B" "Иванов" и вставим только значение на ячейку "R" и т. д. все значения по списку.

Нюансы: Нельзя сортировать. Последовательность фамилий меняется каждый раз.
Заранее СПАСИБО за вашу помощь

P.S. Файл у меня большой очень много макросов, из за этого приклепляю только нужную часть файла.

Прикрепленные файлы

Книга1.xlsx (21.26 КБ)

Пытливый

Пользователь

Сообщений: 4725 Регистрация: 22.12.2012

14.02.2017 14:06:21

А если на листе 2 есть фамилия, которой нет на листе 1, тогда что с ней делать?

P.S. Вариант для "ничего не делать":

Скрытый текст

Код

Sub T_263()
Dim whIn As Worksheet, whOut As Worksheet
Dim lngI As Long
    Set whIn = Worksheets("Лист1")
    Set whOut = Worksheets("Лист2")
        For lngI = 1 To whIn.Range("b1").CurrentRegion.Rows.Count
            If Not whOut.Range("B2:B" & whOut.Cells(whOut.Rows.Count, 2). _
            End(xlUp).Row).Find(what:=whIn.Cells(lngI, 5).Value) Is Nothing Then
                whOut.Range("B2:B" & whOut.Cells(whOut.Rows.Count, 2). _
                End(xlUp).Row).Find(what:=whIn.Cells(lngI, 5).Value).Offset(0, 16) = whIn.Cells(lngI, 6)
            Else
                whIn.Cells(lngI, 6).Font.Color = vbRed
            End If
        Next lngI
             
End Sub

Изменено: Пытливый - 14.02.2017 14:08:47

Кому решение нужно - тот пример и рисует.

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#4 14.02.2017 14:07:19 Если однофамильцы, что делаем?

Fara Пользователь Сообщений: 15 Регистрация: 02.02.2016	#5 14.02.2017 14:10:26 Если однофамильцы пишу инициалы даже если совподают пронумерую

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#6 14.02.2017 14:20:18 Тогда так. Прикрепленные файлы Данные по фамилии 01.xlsm (30.65 КБ)

Fara Пользователь Сообщений: 15 Регистрация: 02.02.2016	#7 14.02.2017 14:37:40 Супер, дорогие друзья СПАСИБО ОЧЕНЬ БЛАГОДАРЕН ВАМ

Читают тему