@georgecv
Γίνεται! Το κάνεις "trap" με vba στο sheet (1) ή workbook (2)
πάτα Alt+F11 (για VBA Editor)
(1) copy-paste το παρακάτω στο worksheet:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 15 And Target.Column = 3 Then
Cells(22, 6).formular1c1 = "="+Target.Value
End If
End Sub
---| δηλαδή αλλαγές στο κελί Cell(15,3) ή C15 μεταφέρονται στο cell(22,6) ή F22
(2) copy-paste το παρακάτω στο thisworkbook:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If LCase(Sh.Name) = "sheet1" And (Target.Row = 15 And Target.Column = 6) Then
Sh.Cells(22, 8 ).formular1c1 = "=" + Target.Value
End If
End Sub
---| Πρόσεξε ότι εδώ κάνουμε trap σε φύλλο και σε κελί!!! και συγκεκριμένα sheet1.F15 --> sheet1.H22
Ίσως σε Ελληνικό excel χρειαστεί "φύλλο1" αντί sheet1 αλλά δεν είμαι 100% σίγουρος. Αν δε δουλέψει κάνε παγίδευση με Sh.Index=1 ή 2 ... {αντί του LCase(Sh.Name) = "sheet1"}
Εννοείται ότι η παγίδευση μπορεί να αλλάξει κατά βούληση και η αντιστοίχηση να γίνεται σχετικά (relative)
sh και target είναι το φύλλο και κελί που προκάλεσαν την αλλαγή
Αυτονόητο είναι ότι παγίδευση σε πολλαπλά κελιά με αυτόματες αλλαγές αναμεταξύ τους (από VBA και Excel formulas) μπορεί να προκαλέσει σύγχηση και εξαιρετικά "βαρύ" πρόγραμμα...