Как дважды ввести данные в одну ячейку?

[valerij]

Всем привет!!
Подскажите?

Пример:

В А1 вносим данные, пусть 10, яч. С1 = А1*1,2
получил в
яч. А1 - 10 в С1 - 12

а, теперь нужно ещё в А1 внести 100
ЧТО БЫ:
в А1 = 110, а в С1 = 132

Как макросом это сделать?
(не хочется пару ячеек задействовать, придётся фейс менять)
А бывает и три ввода нужно сделать.

в С1 можно так
С1 =(С1 + А1)*1,2
а
как с А1 - ??

Спасибо.

[Казанский]

С1 оставьте как есть, а в код листа (правый клик по ярлычка - Исходный текст)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim newVal
  If Target.Address = "$A$1" Then
    Application.EnableEvents = False
    newVal = Target.Value
    Application.Undo
    On Error Resume Next
    Target.Value = Target.Value + newVal
    Application.EnableEvents = True
  End If
End Sub

[valerij]

Сообщение от Казанский

С1 оставьте как есть, а в код листа (правый клик по ярлычка - Исходный текст)....

Отлично!!
А можно для книги? - Получилось.

А как исправлять ошибку?
Внёс 100, а нужно 50?
Или обнулить?
А -а!!
с минусом вводить.

[IgorGO]

а можно так
в А1 =10 в С1 сосчиталось 12
нужно добавить 100
так и пишем А1 =10+100 в С1 тут же сосчиталось 132

и в С1 все считается и в А1 видна история как что добавлялось

[valerij]

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

а можно так
в А1 =10 в С1 сосчиталось 12
нужно добавить 100
так и пишем А1 =10+100 в С1 тут же сосчиталось 132

и в С1 все считается и в А1 видна история как что добавлялось

В строку формул - не подходит.
(это же я не под себя делаю)

[IgorGO]

отличный вариант...

один раз случайно ошибся в наборе числа - а в А1 уже такое насчиталось!!! а ввод ЛЮБОГО очередного значения только усугубляет ситуацию (досчитывает и досчитывает к тому, что там было)

не знаю как ты, а я очень не люблю выслушивать от заказчика в свой адрес отборные проклятия

[lion_art]

Сообщение от Казанский

С1 оставьте как есть, а в код листа (правый клик по ярлычка - Исходный текст)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim newVal
  If Target.Address = "$A$1" Then
    Application.EnableEvents = False
    newVal = Target.Value
    Application.Undo
    On Error Resume Next
    Target.Value = Target.Value + newVal
    Application.EnableEvents = True
  End If
End Sub

А можно это не для конкретной ячейки, а для всего столбца?

[IgorGO]

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

Private Sub Worksheet_Change(ByVal Target As Range)
Dim newVal
  If Target.Count > 1 Then Exit Sub
  If Not Intersect(Target, Columns(11)) Is Nothing Then
    Application.EnableEvents = False
    ...

Безумству храбрых - венки со скидкой!

[valerij]

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

а я очень не люблю выслушивать от заказчика в свой адрес отборные проклятия

Я уже > 40 лет терплю, заказчик у меня - жена!!
Ей хочу облегчить работу.

За ошибкой ввода, есть контрольная цифра в накладной, правда только в первой, но то потом порешаем....

А теперь вопрос
Как мне в цикле сделать
[a1].Offset(dat * 15)
If Target.Address = "$A$1" Then
так не катит:
If Target.Address = "$[a].Offset(dat * 15)$1" Then
If Target.Address = "$A$1.Offset(dat * 15)" Then

[Казанский]

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

Как мне в цикле сделать [a1].Offset(dat * 15)

Что сделать? Словами объясните.