Здравствуйте. Нашел код. Приспособил. Хочется в Application.Intersect в 2 аргументе в место диапазона (Target,Range("Z3:Z20000")) чтоб 2 аргумент ссылался на колонку(Площадь) в таблицы. Лист ПДД.
Если реально то как?
Мной переработанный код:
[vba]Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("Z3:Z20000")) Is Nothing Then
If Target = "" Then Range("E2") = ""
Range("E2") = Sqr(Target * 10000) * 3.5 * 5
If Target = "" Then Range("C2") = ""
Range("C2") = Target * 10000
End If
End Sub
[/vba]