Καλημέρα Γιώργο!
Πέρασε στο κελί Α2 του φύλλου 'Φύλλο2' τον τύπο:
Κώδικας:
=IF(CELL("col")=COLUMN();IF(CELL("row")=ROW();Φύλλο1!A2;"");"")
Για να λειτουργήσει όμως αυτός ο τύπος αποτελεσματικά θα πρέπει
προκληθεί υπολογισμός τουλάχιστον στο φύλλο όπου περιέχεται κάθε φορά που επιλέγεται ένα κελί στο φύλλο 'Φύλλο2'.
Ο επανυπολογισμός δεν προκαλείται αυτόματα όταν απλά ο χρήστης επιλέξει ένα κελί.
Για να επιτύχεις τον υπολογισμό επιλέγοντας ένα κελί μπορείς να κάνεις τα εξής:
Να πατάς το πλήκτρο F9 κάθε φορά που επιλέγεις ένα κελί από τη στήλη Α (Ίσως να είναι πρακτικό - Ίσως όχι).
Να χρησιμοποιήσεις τη συνάρτηση =SELECTION() σε ένα ορισμένο όνομα (ξεπερασμένη μέθοδος...)
Να μετατρέψεις το βιβλίο σου σε
*.xlsm και να περάσεις τον παρακάτω κώδικα
VBA στη λειτουργική μονάδα του φύλλου 'Φύλλο2' :
Κώδικας:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
Me.Range("A1").Dirty
End Sub
Για να μεταβείς στη λειτουργική μονάδα του φύλλου 'Φύλλο2', κάνε δεξί κλικ στην καρτέλα του
και επίλεξε την εντολή:
Προβολή κώδικα.
Καλή συνέχεια!
Τάσος