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

[valerij]

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

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

Вспомнил!!!!!!!!

If Target.Address = "$A$" & mm & "" Then

В цикле

For dat = 0 To 30
 If Target.Address = "$A$" & (3 + dat * 15) & "" Then

[Казанский]

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

Вспомнил!!!!!!!!
If Target.Address = "$A$" & mm & "" Then

А пустая строка зачем?
И цикл не нужен

If Target.Column = 1 Then
  If Target.Count = 1 Then
    If Target.Row < 454 And Target.Row Mod 15 = 3 Then

[valerij]

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

А пустая строка зачем?
И цикл не нужен

Это где пустая строка, ткните ?
Да, тут не нужен, всё работает.
У меня просто дальше код с этим циклом, но интересно, может и я избавлюсь от цикла по такому алгоритму!!
Хотя навряд ли - Я!!!
Отпишусь, что получится.
Спасибо.

(\__/)
(='.'=)
E[:]|||[:]З
(")_(")

[Казанский]

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

Это где пустая строка, ткните

If Target.Address = "$A$" & mm & "" Then
Котик очень милый

[valerij]

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

If Target.Address = "$A$" & mm & "" Then

Увидел!!
Спасибо.
Вот никак не понимаю, почему всегда по разному с этой &??
Вот к примеру, почему по разному?
Formula1:=a & "," & b & "," & c '& "," & d
У меня есть даже тхт файл где собрано все виды применения &

Ну да ладно, вот попробовал без цикла, не въезжаю.
Далеко не пойдём.
Как без цикла применить дальнейшее умножение(формулы нет, макрос, шаг 15)?
С3 = А3*1,2

[c3].Offset(dat * 15) = [а3].Offset(dat * 15) * 1,2

[IgorGO]

Вот никак не понимаю, почему всегда по разному с этой &??

Валера, у меня такие же непонятки с водкой - вкус вроде один и тот же, а приключения постоянно разные!!!

[valerij]

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

Валера, у меня такие же непонятки с водкой - вкус вроде один и тот же, а приключения постоянно разные!!!

Ты же супер пупер мод., а оффтопом занимаешься, хороший пример!!
Полечись!
---------------
| ^^пиво^^ \\|""\\_,_
|___________||___|__|)
(@)(@)""*|(@)(@)**(@)

[valerij]

Вот так получилось без цикла!!!

Private Sub Worksheet_Change(ByVal Target As Range)
Dim newVal
If Target.Column = 1 Or Target.Column = 3 Then
If Target.Count = 1 Or Target.Count = 3 Then
If Target.Row < 454 And Target.Row Mod 15 = 3 Then
    Application.EnableEvents = False
    newVal = Target.Value 
    Application.Undo
    On Error Resume Next
    Target.Value = Target.Value + newVal
    Cells(Target.Row, 3) = Target.Value * 1.2
    Application.EnableEvents = True
End If
End If
End If
End Sub

Попробую далее!!