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

Вход

Регистрация

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

 

= Мир MS Excel/Копирование данных из ячейки в другую если она меняется - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Копирование данных из ячейки в другую если она меняется (Формулы/Formulas)
Копирование данных из ячейки в другую если она меняется
h1dex Дата: Пятница, 27.11.2015, 01:58 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
добрый день! :)

извиняюсь если уже обсуждалось..найти не могу тему похожую т.к. не знаю как правильно и точно сформулировать вопрос

вообщем мне нужно чтобы из одной ячейки данные копировались в другую если она меняется т.е. если в A1 меняются вручную данные то в А2 данные из А1 копируются..получается бэкап данных ячейки А1 в А2

желательно это решить с помощью макросов yes
 
Ответить
Сообщениедобрый день! :)

извиняюсь если уже обсуждалось..найти не могу тему похожую т.к. не знаю как правильно и точно сформулировать вопрос

вообщем мне нужно чтобы из одной ячейки данные копировались в другую если она меняется т.е. если в A1 меняются вручную данные то в А2 данные из А1 копируются..получается бэкап данных ячейки А1 в А2

желательно это решить с помощью макросов yes
Автор - h1dex
Дата добавления - 27.11.2015 в 01:58
_Boroda_ Дата: Пятница, 27.11.2015, 02:23 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16901
Репутация: 6613 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
Dim a_

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "A1" Then Range("A2") = a_
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address(0, 0) = "A1" Then a_ = Target
End Sub
[/vba]
лучше вот так (защита от ввода сразу в несколько ячеек и от ввода с помощью Контрл Ентер)
[vba]
Код
Dim a_

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then Range("A2") = a_: Range("A2").Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then a_ = Target
End Sub
[/vba]
К сообщению приложен файл: 4867861.xlsm (12.4 Kb) · 4867861_1.xlsm (13.1 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
Dim a_

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "A1" Then Range("A2") = a_
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address(0, 0) = "A1" Then a_ = Target
End Sub
[/vba]
лучше вот так (защита от ввода сразу в несколько ячеек и от ввода с помощью Контрл Ентер)
[vba]
Код
Dim a_

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then Range("A2") = a_: Range("A2").Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then a_ = Target
End Sub
[/vba]
Автор - _Boroda_
Дата добавления - 27.11.2015 в 02:23
h1dex Дата: Пятница, 27.11.2015, 02:46 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
работает..спасибо! hands
только я неверно написал..мне нужно не А2, а B1..но это уже нюансы..исправил :)
 
Ответить
Сообщениеработает..спасибо! hands
только я неверно написал..мне нужно не А2, а B1..но это уже нюансы..исправил :)
Автор - h1dex
Дата добавления - 27.11.2015 в 02:46
h1dex Дата: Пятница, 27.11.2015, 03:15 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
дико извиняюсь за наглость..а можно не на ячейки сделать..а на столбцы? т.е. со столбца А данные копируются в B т.е. из А1 в B1..А2 в B2 и т.д.
что-то я протупил :( ..мне не в одну ячейку нужно будет вносить..а в большое количество
 
Ответить
Сообщениедико извиняюсь за наглость..а можно не на ячейки сделать..а на столбцы? т.е. со столбца А данные копируются в B т.е. из А1 в B1..А2 в B2 и т.д.
что-то я протупил :( ..мне не в одну ячейку нужно будет вносить..а в большое количество
Автор - h1dex
Дата добавления - 27.11.2015 в 03:15
_Boroda_ Дата: Пятница, 27.11.2015, 10:09 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16901
Репутация: 6613 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Тогда так (я уж со множественным вводом возиться не стал)
[vba]
Код
Dim a_

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then Range("B" & Target.Row) = a_: Range("A" & Target.Row + 1).Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then a_ = Target
End Sub
[/vba]
К сообщению приложен файл: 4867861_2.xlsm (13.4 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТогда так (я уж со множественным вводом возиться не стал)
[vba]
Код
Dim a_

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then Range("B" & Target.Row) = a_: Range("A" & Target.Row + 1).Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then a_ = Target
End Sub
[/vba]
Автор - _Boroda_
Дата добавления - 27.11.2015 в 10:09
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Копирование данных из ячейки в другую если она меняется (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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