Сохранение ранее введенных данных в ячейке на втором листе

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

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

Сохранение ранее введенных данных в ячейке на втором листе (Макросы/Sub)

marat-0178

Дата: Понедельник, 19.08.2019, 15:39 | Сообщение № 1

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

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

Сообщений: 6

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

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

Excel 2010

Имеется таблица Excel в которой на первой странице вводятся данные по образованию, по мере прохождения времени сотрудник получает следующее образование или проходит повышение квалификации. Необходимо чтобы при вводе нового образования на втором листе сохранялись ранее введенные данные. В настоящее время сделано только по первому сотруднику. Подскажите как сделать на количество сотрудников N количества. Файл прикреплен

К сообщению приложен файл: 4522185.xlsm (18.8 Kb)

Ответить

boa

Дата: Понедельник, 19.08.2019, 16:44 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 559

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

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

365

marat-0178,
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow&, iCol&
    If Target.Column = 7 And Target.Count = 1 Then
        If Target.Value <> Empty And Target.Value <> oldValue Then
            With Worksheets("Лист2")
                iCol = .Rows(1).Find(Cells(Target.Row, 2), LookIn:=xlValues, LookAt:=xlWhole).Column
                iRow = .Cells(.Rows.Count, iCol).End(xlUp).Row + 1
                .Cells(iRow, iCol) = Target.Value
            End With
        End If
    End If
End Sub

[/vba]