Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo xErr: If Not Intersect(Target, Range("obl_Sila")) Is Nothing Then Application.EnableEvents = False 'prepocet hmotnosti Target.Offset(0, 1).Value = Target.Value * 0.1 Application.EnableEvents = True ElseIf Not Intersect(Target, Range("obl_Hmotn")) Is Nothing Then Application.EnableEvents = False 'prepocet sily Target.Offset(0, -1).Value = Target.Value * 10 Application.EnableEvents = True End If Exit Sub xErr: Application.EnableEvents = True End Sub
Užitočné (2) | Chobot, sances |
krížové prepojenie dvoch buniek