Регистр сдвига вводимых цифр

[elyu13]

Интересно  кто нибудь делал регистр сдвига вводимых цифр по строке!!! Примерно так вводим цифру3 в ячейке A1 , а она автоматом сдвигается  в ячейку А2 и так далее  , но нужно чтобы порядок вводимых цифр сохранялись в ячейках и производили сдвиг по строчке!!

[Serge 007]

Вводите цифры в А1

[elyu13]

Вводите цифры в А1

Сергей!! Спасибо огромное!! То что надо!!!!

[runner]

Вводите цифры в А1

Странно, работает, но не для цифры "1"

[ViktorG]

А так?
Да простит меня Serge 007.

[Serge 007]

Вот так лучше, подойдёт и для текста:

Код Выделить Развернуть

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") <> "" Then
    Range("A1").Insert Shift:=xlDown
    End If
    Range("A1").Select
End Sub

[runner]

Вот так лучше, подойдёт и для текста:

Так почти совсем хорошо! Вы предупредили мою следующую придирку - чтобы активной оставалась ячейка A1.
Но теперь с A1 вообще не уйдёшь!

[_Boroda_]

замените SelectionChange на Change

[Alex_ST]

О! Формулист Серж в "макрушники" перекрашивается!
Молодец! Давно бы так.

[Serge 007]

замените SelectionChange на Change

Саш, а зачем?

О! Формулист Серж в "макрушники" перекрашивается!
Молодец! Давно бы так.

Лёш, всё не так уж плохо
Я освоил макрорекордер

[Alex_ST]

Врешь ты всё! Не прибедняйся - не мог тебе макрорекордер такого подсказать:

Код Выделить Развернуть

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") <> "" Then
   Range("A1").Insert Shift:=xlDown
   End If
   Range("A1").Select
End Sub

[Alex_ST]

замените SelectionChange на Change

Саш, а зачем?

Затем, что у тебя Range("A1").Select почему-то после End If написано. Поэтому при каждом Worksheet_SelectionChange ты будешь возвращаться на А1

[Serge 007]

...у тебя Range("A1").Select почему-то после End If написано. Поэтому при каждом Worksheet_SelectionChange ты будешь возвращаться на А1

Ну дык так и требовалось:

...Вы предупредили мою следующую придирку - чтобы активной оставалась ячейка A1.
Но теперь с A1 вообще не уйдёшь!