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

Вход

Регистрация

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

 

= Мир MS Excel/Автозаполнение ячеек в строке по порядку - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Автозаполнение ячеек в строке по порядку (Формулы/Formulas)
Автозаполнение ячеек в строке по порядку
outsider Дата: Вторник, 21.07.2020, 15:32 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Всем доброго дня.
Заранее прошу прощения, если мой вопрос покажется слишком дилетантским, но сам найти ответа не могу, возможно все дело в моей некорректной формулировке вопроса.
На первом листе есть столбец значений, на втором листе своеобразный архив этих значений на тех же строках. Как сделать, чтобы при изменении значений на первом листе они автоматом добавлялись во второй лист в те же строки, заполняя следующие пустые ячейки по порядку.
Пример во вложении.
Заранее спасибо.
К сообщению приложен файл: 4716227.xlsx(8.8 Kb)


Сообщение отредактировал outsider - Вторник, 21.07.2020, 15:40
 
Ответить
СообщениеВсем доброго дня.
Заранее прошу прощения, если мой вопрос покажется слишком дилетантским, но сам найти ответа не могу, возможно все дело в моей некорректной формулировке вопроса.
На первом листе есть столбец значений, на втором листе своеобразный архив этих значений на тех же строках. Как сделать, чтобы при изменении значений на первом листе они автоматом добавлялись во второй лист в те же строки, заполняя следующие пустые ячейки по порядку.
Пример во вложении.
Заранее спасибо.

Автор - outsider
Дата добавления - 21.07.2020 в 15:32
китин Дата: Вторник, 21.07.2020, 15:38 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 6249
Репутация: 961 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
outsider, - Прочитайте Правила форума
- п.4 Правил форума: один вопрос - одна тема


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениеoutsider, - Прочитайте Правила форума
- п.4 Правил форума: один вопрос - одна тема

Автор - китин
Дата добавления - 21.07.2020 в 15:38
outsider Дата: Вторник, 21.07.2020, 15:42 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
китин, Прошу прощения. Поправил.
 
Ответить
Сообщениекитин, Прошу прощения. Поправил.

Автор - outsider
Дата добавления - 21.07.2020 в 15:42
китин Дата: Вторник, 21.07.2020, 16:20 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 6249
Репутация: 961 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
на коленке не проверял. в модуль листа
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TT_ As Long
Dim RR_ As Long
Dim CC_ As Long
Dim YY_ As Long
TT_ = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
  If Target.Count > 1 Then Exit Sub
  If Not Intersect(Target, Sheets("Лист1").Range("A1:A" & TT_)) Is Nothing Then
    RR_ = Target.Row
 
    CC_ = Sheets("Лист2").Cells(RR_, Columns.Count).End(xlToLeft).Column
     Sheets("Лист2").Cells(RR_, CC_ + 1) = Target.Value
  End If

End Sub
[/vba]
К сообщению приложен файл: 4716227.xlsm(15.6 Kb)


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениена коленке не проверял. в модуль листа
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TT_ As Long
Dim RR_ As Long
Dim CC_ As Long
Dim YY_ As Long
TT_ = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
  If Target.Count > 1 Then Exit Sub
  If Not Intersect(Target, Sheets("Лист1").Range("A1:A" & TT_)) Is Nothing Then
    RR_ = Target.Row
 
    CC_ = Sheets("Лист2").Cells(RR_, Columns.Count).End(xlToLeft).Column
     Sheets("Лист2").Cells(RR_, CC_ + 1) = Target.Value
  End If

End Sub
[/vba]

Автор - китин
Дата добавления - 21.07.2020 в 16:20
outsider Дата: Вторник, 21.07.2020, 17:13 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
китин, Спасибо большое, принцип верен, но есть два момента, которые хочу уточнить
Как сделать, чтобы по такому же принципу формировался лист3 на основании 2 столбца, лист4 на основании, к примеру, 6 и т.д.
Если сейчас ввести данные на первом листе, а потом нажать отмену, на втором добавятся в строку и то, что я вводил и предыдущее, то есть вместо того, чтобы вернуться к изначальному состоянию добавятся два ненужных значения на лист2
 
Ответить
Сообщениекитин, Спасибо большое, принцип верен, но есть два момента, которые хочу уточнить
Как сделать, чтобы по такому же принципу формировался лист3 на основании 2 столбца, лист4 на основании, к примеру, 6 и т.д.
Если сейчас ввести данные на первом листе, а потом нажать отмену, на втором добавятся в строку и то, что я вводил и предыдущее, то есть вместо того, чтобы вернуться к изначальному состоянию добавятся два ненужных значения на лист2

Автор - outsider
Дата добавления - 21.07.2020 в 17:13
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Автозаполнение ячеек в строке по порядку (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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