vzorcem to bohuzel nepujde, takze makro.
tento kod vlozte do modulu prislusneho listu:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Range("a2:a3") = Target
End If
If Target.Address = "$A$2" Then
Range("a1,a3") = Target
End If
If Target.Address = "$A$3" Then
Range("a1:a2") = Target
End If
End Sub
citovat
tento kod vlozte do modulu prislusneho listu:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Range("a2:a3") = Target
End If
If Target.Address = "$A$2" Then
Range("a1,a3") = Target
End If
If Target.Address = "$A$3" Then
Range("a1:a2") = Target
End If
End Sub
citovat