Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Сохранение ранее введенных данных в ячейке на втором листе - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение ранее введенных данных в ячейке на втором листе (Макросы/Sub)
Сохранение ранее введенных данных в ячейке на втором листе
marat-0178 Дата: Понедельник, 19.08.2019, 15:39 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Имеется таблица Excel в которой на первой странице вводятся данные по образованию, по мере прохождения времени сотрудник получает следующее образование или проходит повышение квалификации. Необходимо чтобы при вводе нового образования на втором листе сохранялись ранее введенные данные. В настоящее время сделано только по первому сотруднику. Подскажите как сделать на количество сотрудников N количества. Файл прикреплен
К сообщению приложен файл: 4522185.xlsm(18.8 Kb)
 
Ответить
СообщениеИмеется таблица Excel в которой на первой странице вводятся данные по образованию, по мере прохождения времени сотрудник получает следующее образование или проходит повышение квалификации. Необходимо чтобы при вводе нового образования на втором листе сохранялись ранее введенные данные. В настоящее время сделано только по первому сотруднику. Подскажите как сделать на количество сотрудников N количества. Файл прикреплен

Автор - marat-0178
Дата добавления - 19.08.2019 в 15:39
boa Дата: Понедельник, 19.08.2019, 16:44 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 407
Репутация: 115 ±
Замечаний: 0% ±

2013, 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]
К сообщению приложен файл: 4522185-2.xlsm(25.2 Kb)




Сообщение отредактировал boa - Понедельник, 19.08.2019, 16:54
 
Ответить
Сообщение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]

Автор - boa
Дата добавления - 19.08.2019 в 16:44
marat-0178 Дата: Понедельник, 19.08.2019, 19:57 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
boa, супер огромное спасибо hands hands hands hands
 
Ответить
Сообщениеboa, супер огромное спасибо hands hands hands hands

Автор - marat-0178
Дата добавления - 19.08.2019 в 19:57
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение ранее введенных данных в ячейке на втором листе (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!