Копирование из одной ячейки в другую

Дата: Пятница, 08.02.2013, 15:04 | Сообщение № 1

Группа: Гости

Добрый день, уважаемые знатоки!!! smile

Помогите решить вопрос по сабжу, Есть ячейка А2, А3, А4 и т.д необходимо чтобы при выполнение макроса данные (из этих ячеек) заполнялись в другие соответствующие ячейки, например B2, В3, В4. Суть такова что данные из ячеек всегда вставляются в одну строку, только уже в другую ячейку, это может быть и С2, И D2 и т.д. Как можно реализовать данный макрос? smile

помогите не совсем знатоку smile

Дата: Пятница, 08.02.2013, 15:45 | Сообщение № 2

Группа: Гости

В идеале нужен макрос который сам запускается по событию внесения значения в ячейке. Запускать если есть изменения в столбце А, в любой ячейке и данные копируются в соответствующую ячейку В.
Пысы:простите за мой французский, изложил как мог.

Дата: Пятница, 08.02.2013, 15:56 | Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 832

Репутация: 255 ±

Замечаний: 0% ±

Excel 2003, 2013

В идеале, нужно правила прочитать, перед тем как постить

Excel 2003 EN, 2013 EN

Дата: Пятница, 08.02.2013, 16:55 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Прошу прощения, исправлюсь.
Поправка к ТЗ: когда вносим значение в столбец К (ячейка может быть любая из этого столбца), необходимо чтобы значения из ячейки D4, скопировались в L4, из F4 в M4, и значение из ячейки K4 в О4.
На примере в аттаче выделена строка, про то что писал выше.

К сообщению приложен файл: 9155658.jpg (48.1 Kb)

Дата: Пятница, 08.02.2013, 17:35 | Сообщение № 5

Группа: Друзья

Ранг: Ветеран

Сообщений: 832

Репутация: 255 ±

Замечаний: 0% ±

Excel 2003, 2013

Цитата (Правила)

3. Кратко, но ёмко опишите задачу в теле поста. ВСЕГДА прикладывайте файл-пример, кроме тех случаев, когда вопрос носит общий характер и не касается конкретно Вашего файла. Темы касающиеся конкретного файла, но без приложенного примера, будут закрываться или удаляться.

Viktor85,
файл-пример это не картинка.

Excel 2003 EN, 2013 EN

Дата: Пятница, 08.02.2013, 17:51 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Прикрепил нормальный пример.
Такое дело что, это условие должно выполняться при внесение слова "продан", при любом другом значении "свободен" "зарезервирован" только меняется статус в столбце "O"
sad

К сообщению приложен файл: 9504337.xls (35.0 Kb)

AlexM

Дата: Пятница, 08.02.2013, 18:18 | Сообщение № 7

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

Репутация: 1129 ±

Замечаний: 0% ±

Excel 2003

Что-то со столбцами путаница.
в D4 руб , а в L4 время

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Дата: Пятница, 08.02.2013, 18:18 | Сообщение № 8

Группа: Друзья

Ранг: Ветеран

Сообщений: 832

Репутация: 255 ±

Замечаний: 0% ±

Excel 2003, 2013

Цитата (Viktor85)

Поправка к ТЗ: когда вносим значение в столбец К (ячейка может быть любая из этого столбца), необходимо чтобы значения из ячейки D4, скопировались в L4, из F4 в M4, и значение из ячейки K4 в О4.

Как это соотносится с вашим примером?!
Разбираться уже некогда.
Сделал "в соответствии с ТЗ".
Авось, разберётесь, как поменять нужные наименования столбцов. (Макрос Worksheet_Change в листе Лист1)

Тьфу! Запутался впопыхах...
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.EntireRow.Range("I1") = "ïðîäàí" Then Exit Sub

Application.EnableEvents = False
      If Not Intersect(Target, Me.Columns("K")) Is Nothing Then
          Target.EntireRow.Range("L1") = Target.EntireRow.Range("D1")
          Target.EntireRow.Range("M1") = Target.EntireRow.Range("F1")
          Target.EntireRow.Range("O1") = Target
      End If
    Application.EnableEvents = True
End Sub

[/vba]

файл перезалил

К сообщению приложен файл: 7939465.xls (44.0 Kb)

Excel 2003 EN, 2013 EN

Сообщение отредактировал Формуляр - Пятница, 08.02.2013, 18:26

Дата: Пятница, 08.02.2013, 19:28 | Сообщение № 9

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Цитата (Формуляр)

Спасибо тебе добрый человек, ГУД функционирует (со столбцами конечно разобрался)!!! В карму +
еще осталась разобраться как выключить когда не нужно.

Дата: Пятница, 08.02.2013, 20:34 | Сообщение № 10

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Что-то ESC и CTRL + BREAK не помогают cry