Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Перенос данных из одной таблицы в другую с шагом вниз по ячейке
 
#1
02.03.2016 10:47:45
Здравствуйте, гуру Excel. Как можно перенести данные, которые меняются постоянно, из таблицы №1 "Книга1" в таблицу №2 "Книга2", при этом данные должны вставляться на строку ниже, создавая при этом список.
Я ввожу ФИО человека в таблицу в Книге 1. А в книге 2 хочу получить список людей которых вводила на протяжении некоторого времени. Пример: сегодня это Иванов Иван Иванович, завтра Петров Петр Петрович, послезавтра Сидоров Сидор Сидорович и т.д.
 
 
 
#2
02.03.2016 11:10:46
В модуль листа. Данные будут переноситься только после ввода Отчества
Код
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
    If Not Intersect(Target, [C1]) Is Nothing And Target.Count = 1 Then
        With Worksheets("Лист2")
            .Range("A" & .Cells(.Rows.Count, 1).End(xlUp).Row + 1).Value = Target.Offset(, -2) & " " & Target.Offset(, -1) & " " & Target
        End With
    End If
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
02.03.2016 11:46:27
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C1")) Is Nothing Then Exit Sub
Sheets(2).Activate
Sheets(2).Range("A1").Activate
        Do Until IsEmpty(ActiveCell)
            ActiveCell.Offset(1, 0).Select
        Loop
        ActiveCell = Sheets(1).[A1] & [B1] & [C1]
End Sub
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#4
02.03.2016 12:14:39
Sanja, Владимир! Спасибо вам огромнейшее  :*
 
 
 
#5
02.03.2016 14:06:34
По коду Sanja внесла изменения "под себя", но ни чего не получается. Из листа "ФормаЗаполнения" в "Список".  
 
 
 
#6
02.03.2016 14:53:04
Спасибо, разобралась  ;) Объединила оба кода и заработало (свой в файле и Sanja)
 
 
 
#7
02.03.2016 15:00:08
Цитата
SOU написал:внесла изменения "под себя"
Из файла
Цитата
Private Sub Worksheet_Change_2
:D.  Такой фокус не пройдет
Согласие есть продукт при полном непротивлении сторон
 
 
 
#8
04.03.2016 08:07:41
Sanja, спасибо огромнейшее  :*
PS: Да, фокусник из меня ни какой.
 
 
 
Страницы: 1
Читают тему
Наверх