Макрос добавление строки, копирование данных с условием

[IgorGO]

там вроде немного кода и по смыслу все довольно очевидно))
закомментируйте (или удалите)

If Target.Column <> 4 Then Exit Sub

и этот макрос начнет срабатывать по двойному клику по любой ячейке (а надо-ли???)
а в чем проблема - вставить формулу, не понимаю... например так:

Cells(r, 22).formula = "=today()"

[smz1]

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

там вроде немного кода и по смыслу все довольно очевидно))
закомментируйте (или удалите)

If Target.Column <> 4 Then Exit Sub

Спасибо за ответ.
Попіытаюсь обьяснить.
Например.
Есть строки.
Наименование, размер, материал, и.т.д.
В какой то части таблицы мне необходимо добавить строку с таким же материалом,остальные(размер, наименование) очистить. "Кликаю" материал.
Где то добавить строку схожую по размеру остальные(наименование, материал) оставив пустыми. "Кликаю" размер
И.т.д.
Т.е. разные но назначенные ячейки - разные условия.
Из скрипта я понял как менять кликабельную ячкйку и как добавить очищаемые ячейки.
Я не рзобрался как на тот же лист поставить еще один скрипт с двойным кликом.
Может это невозможно?
.....
С формулой разобрался. Спасибо. Просто я "турист"
Когда увидел понял свою ошибку.

[IgorGO]

Я не рзобрался как на тот же лист поставить еще один скрипт с двойным кликом.
Может это невозможно?

1. это исключено
2. а зачем это нужно?

после того как получена копия исходной строки под ней
1) удаляем из нее все константы, включив обработку ошибок на случай отсутсвия констант в исходной строке

  On Error Resume Next
  Rows(target.Row + 1).SpecialCells(xlCellTypeConstants).ClearContents
  If Err Then Err.Clear
  On Error GoTo 0

2) копируем содержимое ячейки, в которой был двойной клик, в новую строку

  target.Offset(1, 0) = target

[smz1]

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

1. это исключено
2. а зачем это нужно?

Большое спасибо, Игорь.
Вы меня поняли!
Именно это я и имел ввиду!

[Hugo121]

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

как на тот же лист поставить еще один скрипт с двойным кликом.
Может это невозможно?

Невозможно, но возможно в одном скрипте анализировать target, и соответственно выполнять разные действия.

[aleksen]

Добавьте в скрипт

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim r As Long
If Target.Column <> 4 Then Exit Sub
Cancel = True: r = Target.Row + 1: Rows(r).Insert Shift:=xlDown
Target.EntireRow.Copy: Cells(r, 1).PasteSpecial Paste:=xlPasteValues
Cells(r, 9).ClearContents: Cells(r, 22) = Date: Cells(r, 26).Select
End Sub

условие - добавить 2 ячейки, после столбик I = 694.
По всему листу.
Без копирования данных.
Спасибо.