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

Вход

Регистрация

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

 

= Мир MS Excel/Копирование ячейки при её заполнении - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Копирование ячейки при её заполнении (Формулы/Formulas)
Копирование ячейки при её заполнении
Dmitry1992_92 Дата: Четверг, 28.12.2017, 13:27 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте!

Имеется формула на ячейке B1 которая позволяет копировать содержимое ячейки A1, при том условии если что-нибудь написать в ячейке A1:
[vba]
Код
=ЕСЛИ(Лист1!A1<>"";Лист1!A1;"")
[/vba]
Вопрос: как сделать так чтобы при заполнении ячейки A1 она копировалась и вставлялась в ячейку B2, потом можно было стереть ячейку А1, написать в ней что-нибудь другое и она копировалась и вставлялась в ячейку B3, и.т.д., то есть сделать так, чтобы ячейка B2 не перезаписывалась, а оставалась такой как есть, а ниже неё вставлялся новый текст из ячейки А1. То есть, если в ячейке В2 уже есть какой-то текст, то он не будет перезаписываться.
 
Ответить
СообщениеЗдравствуйте!

Имеется формула на ячейке B1 которая позволяет копировать содержимое ячейки A1, при том условии если что-нибудь написать в ячейке A1:
[vba]
Код
=ЕСЛИ(Лист1!A1<>"";Лист1!A1;"")
[/vba]
Вопрос: как сделать так чтобы при заполнении ячейки A1 она копировалась и вставлялась в ячейку B2, потом можно было стереть ячейку А1, написать в ней что-нибудь другое и она копировалась и вставлялась в ячейку B3, и.т.д., то есть сделать так, чтобы ячейка B2 не перезаписывалась, а оставалась такой как есть, а ниже неё вставлялся новый текст из ячейки А1. То есть, если в ячейке В2 уже есть какой-то текст, то он не будет перезаписываться.

Автор - Dmitry1992_92
Дата добавления - 28.12.2017 в 13:27
sboy Дата: Четверг, 28.12.2017, 13:57 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2116
Репутация: 606 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
в модуль листа
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target.Value = "" Then Exit Sub
    lr = Cells(Rows.Count, 2).End(xlUp).Row
        If lr = 1 Then
            If Cells(lr, 2).Value = "" Then
                Cells(lr, 2).Value = Target.Value
                Else: Cells(lr + 1, 2) = Target.Value
            End If
        Else: Cells(lr + 1, 2) = Target.Value
        End If
End Sub
[/vba]
К сообщению приложен файл: 9495924.xlsm(14.5 Kb)
 
Ответить
СообщениеДобрый день.
в модуль листа
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target.Value = "" Then Exit Sub
    lr = Cells(Rows.Count, 2).End(xlUp).Row
        If lr = 1 Then
            If Cells(lr, 2).Value = "" Then
                Cells(lr, 2).Value = Target.Value
                Else: Cells(lr + 1, 2) = Target.Value
            End If
        Else: Cells(lr + 1, 2) = Target.Value
        End If
End Sub
[/vba]

Автор - sboy
Дата добавления - 28.12.2017 в 13:57
Dmitry1992_92 Дата: Четверг, 28.12.2017, 14:26 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
sboy, спасибо, всё работает, а можно ли сделать так чтобы всё осталось, но только копировалось на 2-ю страницу?
 
Ответить
Сообщениеsboy, спасибо, всё работает, а можно ли сделать так чтобы всё осталось, но только копировалось на 2-ю страницу?

Автор - Dmitry1992_92
Дата добавления - 28.12.2017 в 14:26
sboy Дата: Четверг, 28.12.2017, 14:27 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2116
Репутация: 606 ±
Замечаний: 0% ±

Excel 2010
и на первом и на втором листе? или только на втором?
 
Ответить
Сообщениеи на первом и на втором листе? или только на втором?

Автор - sboy
Дата добавления - 28.12.2017 в 14:27
Dmitry1992_92 Дата: Четверг, 28.12.2017, 14:35 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
sboy, ну вот чтобы я написал на первом листе в ячейке А1 слово "привет" например, и это слово копировалось и вставилось на вторую страницу в ячейку B1.
 
Ответить
Сообщениеsboy, ну вот чтобы я написал на первом листе в ячейке А1 слово "привет" например, и это слово копировалось и вставилось на вторую страницу в ячейку B1.

Автор - Dmitry1992_92
Дата добавления - 28.12.2017 в 14:35
sboy Дата: Четверг, 28.12.2017, 14:38 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 2116
Репутация: 606 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target.Value = "" Then Exit Sub
    With Sheets(2)
        If .Cells(1, 2).Value = "" Then
            .Cells(1, 2).Value = Target.Value
        Else: .Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) = Target.Value
        End If
    End With
End Sub
[/vba]
К сообщению приложен файл: 0412685.xlsm(15.1 Kb)
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target.Value = "" Then Exit Sub
    With Sheets(2)
        If .Cells(1, 2).Value = "" Then
            .Cells(1, 2).Value = Target.Value
        Else: .Cells(.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) = Target.Value
        End If
    End With
End Sub
[/vba]

Автор - sboy
Дата добавления - 28.12.2017 в 14:38
Dmitry1992_92 Дата: Четверг, 28.12.2017, 14:45 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
sboy, всё ок, спасибо!


Сообщение отредактировал Dmitry1992_92 - Четверг, 28.12.2017, 14:53
 
Ответить
Сообщениеsboy, всё ок, спасибо!

Автор - Dmitry1992_92
Дата добавления - 28.12.2017 в 14:45
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Копирование ячейки при её заполнении (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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