Как автоматически перенести ячейку в другую без формулы?

[krestsoft]

Сообщение от AlexM12

If Intersect(Range("A2:A9999"), Target) Is Nothing Then Exit Sub
В этой строке делается проверка. Если изменение значения произошло не в диапазоне A2:A9999, то макрос завершает работу.
Если вы измените значение в диапазоне B2:B9999, то макрос не сработает
Поэтому нужно так

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Range("A2:B9999"), Target) Is Nothing Then Exit Sub
    Cells(Target.Row, 3) = Cells(Target.Row, 1)
    Cells(Target.Row, 4) = Cells(Target.Row, 2)
End Sub

И всё равно ведь как-то неправильно работает, видимо в строке проверки нужно что-то изменить, чтобы макрос не закрывался после каждой строки.

Суть в том, чтобы вбить два столбика фраз (A и B), и чтобы они перенеслись в другие два столбика (C и D) и чтобы можно было их править. Так сказать массовый перенос.

Сейчас же по одной строке переносится только.

[IgorGO]

сделать можно все
но для того чтобы это "все" сделать нужно точно понимать что делать:
1. какой диапазон взять под контроль
2. какие манипуляции необходимо выполнить, когда произошло контрольное событие
описывать желательно со всей необходимой степенью детализации выполняемых действий
когда описана задача, тут, буквами, тогда ее можно решить, а пока задача только в Ваших мыслях - обращаетесь на форум экстрасенсов и там Вам помогут. хотя... нормальные экстрасенсы уже должны были почувствовать, что Вы нуждаетесь в помощи и известными только им одним заклинаний уже решить ее
а пока экстрасенсы ничего не чувствуют или ничего не могут, помогите себе сами - опишите задачу. на форуме есть люди, которые умет читать и, скорее всего, смогут помочь

[krestsoft]

Сообщение от IgorGO

на форуме есть люди, которые умет читать и, скорее всего, смогут помочь

Пардон. Полностью согласен с Вами.
Просто по-очереди решали задачи с AlexM12, очень помог мне разобраться )

В данным момент рассматривается такая задача:

Вставляем фразы в столбики A и B (количество фраз заранее не определено, может быть 10 фраз, может быть и 1000).

Необходимо, чтобы фразы автоматически переносились (соблюдая регистр!) из столбиков A в С и из B в D так, чтобы их можно было уже в столбиках C и D исправлять.

Например:

Беру и вставляю 7 фраз в столбик A - сразу же автоматически фразы пишутся в столбик С, где я могу их исправить/дополнить/переписать.
То же и со столбиком B.

Фраз в столбиках A и B будет либо одинаковое кол-во, либо больше в столбике A.

[AlexM12]

Сообщение от krestsoft

Беру и вставляю 7 фраз в столбик A

Как вы это делаете распишите подробно.
Возможно вы копируете откуда-то диапазон ячеек с фразами и вставляете в столбец А.
Если так, то прикладывайте пример с фразами, чтобы можно было их также как вы взять и вставить.

[krestsoft]

Сообщение от AlexM12

Как вы это делаете распишите подробно.
Возможно вы копируете откуда-то диапазон ячеек с фразами и вставляете в столбец А.
Если так, то прикладывайте пример с фразами, чтобы можно было их также как вы взять и вставить.

Фразы берём из столбика Excel или из notepad, любой вариант можно использовать.

Конкретный пример прикрепил.
Копировать можно и из 1 столбика и из 2 сразу.
Переносится только одна строчка и макрос перестаёт работать.

[AlexM12]

Проверяйте

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Intersect(Range("C2:D9999"), Target) Is Nothing Then Exit Sub
    For Each iCell In Target
        iCell.Offset(, 2) = iCell
    Next
    Application.ScreenUpdating = True
End Sub

[krestsoft]

Сообщение от AlexM12

Проверяйте

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Intersect(Range("C2:D9999"), Target) Is Nothing Then Exit Sub
    For Each iCell In Target
        iCell.Offset(, 2) = iCell
    Next
    Application.ScreenUpdating = True
End Sub

Спасибо большое! Всё как и задумывалось.