berner3
05.12.15,19:32
Ahojte
potreboval by som prepojit dve bunky tak ze ak zmenim hodnotu v lubovolnej z tychto dvoch buniek zmeni sa automaticky aj v druhej. teda napr. mam harok1 a bunku A1 a harok2 bunku B3 ak zmenim A1 zmeni sa mi rovnako aj B3 a naopak ak zmenim B3 zmeni sa A1
potreboval by som prepojit dve bunky tak ze ak zmenim hodnotu v lubovolnej z tychto dvoch buniek zmeni sa automaticky aj v druhej. teda napr. mam harok1 a bunku A1 a harok2 bunku B3 ak zmenim A1 zmeni sa mi rovnako aj B3 a naopak ak zmenim B3 zmeni sa A1
PaloPa
07.12.15,08:16
Dá sa, ale len s pomocou makra, napr. takéhoto:
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
P.
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
P.