Макрос: вычитание из самого себя

[0mega]

доброго времени суток
2007
Макрос вычитает сам  из себя и записывает результат в той же ячейке.
Пользователь  вручную вводит информацию в i11:К211
Инфоромация вводится в виде гиперссылки , именем которой выступает число
например пользователь вводит в К16 гиперссылку с именем  "499500"
После ввода макрос должен из L16 вычесть K16 и ответ поместить в L16 (1 665 000,00-499500,00=1 165 500,00 )

[zs]

Специальная вставка-вычесть

[0mega]

zs, очевидно я недостаточно внятно объяснил...
Таблица содержит 200 строк
Надо из каждой "L" вычесть СВОЁ "К"

[cheshiki1]

Макрос1, код в модуль листа

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

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Range("L11:N211")) Is Nothing Then
   If Cells(Target.Row, "L") = "" And Cells(Target.Row, "M") = "" And Cells(Target.Row, "N") = "" _
   Then Target = Cells(Target.Row, "C")
End If
End Sub

[0mega]

cheshiki1
спасибо

[zs]

Выделяем все 200 или 500 ячеек в К и копируем в L(специальная вставка-вычесть)- это не альтернатива макросу 2...

[0mega]

zs. Решение, как один из вариантов - имеет место быть .
Для простого бухгалтера - это не очень удобный вариант.
Но за "изюм" спасибо