[Γενικά] Αντιστοίχιση κελιών

[Iceland]

Καλησπέρα στο forum,

είναι εντυπωσιακό αλλά αν έχεις μια απορία και κάνεις μια μικρή αναζήτηση σε προηγούμενα ερωτήματα διαπιστώνεις ότι λίγο πολύ στο παρελθόν έχει απαντηθεί. Το forum δίνει απαντήσεις καθώς και ιδέες για να απλουστεύσουμε τη δουλειά μας. Μπράβο λοιπόν σε όλους..

Ωστόσο έχω ένα θέμα που μάλλον η λύση του είναι γρηγορότερη από την αναζήτηση. Στο συνημμένο αρχείο θέλω στο φύλλο "φόρμα" μόλις βάζω μια ημερομηνία, στο πρώτο φύλλο "αναφορά" να ξεκινάει ο τύπος στα γαλάζια κελιά από τον αριθμό που αντιστοιχεί στην ορισμένη ημερομηνία στη πάνω σειρά. π.χ. 5/8 να ξεκινάει στο κοκκινισμένο κελί.

2ο Δε ξέρω κατά πόσο είναι δύσκολο, αλλά υπάρχει τρόπος με μακροεντολή και το πάτημα εικονιδίου στο excel να ξεκινάνε οι υπολογισμοί των τύπων; Το τρόπο για την απενεργοποίηση του αυτόματου υπολογισμού τον γνωρίζω. Επίσης με πάτημα άλλου πλήκτρου να καθαρίζουν ορισμένα πεδία (κελιά).
Φαντάζομαι για κάποιον χρήστη της VBA θα είναι εύκολο οπότε περιμένω άμεση απάντηση!!

Ευχαριστώ και είμαι στη διάθεση του forum.

Γιώργος

[Tasos]

Καλημέρα Γιώργο!

Για την πρώτη ερώτηση σου θα έλεγα:

=IF(DAY(φορμα!$C$3)>=B$2;"Ο τύπος σου";"")

Για την πρώτη ερώτηση σου:

Σε σχήμα ή σε κουμπί φόρμας μπορείς να αντιστοιχίσεις τις παρακάτω εντολές:

Option Explicit

Sub Clear_Cells()
    Range("B6:AF1000").ClearContents    '
    Range("B6:AF1000").ClearComments    '
    Range("B6:AF1000").ClearFormats    '
End Sub

Sub ChangeXLCalculationMode()
    Application.Calculation = xlCalculationManual        '-4135, Υπολογίζει μόνο αν πατηθεί το πλήκτρο F9
' και
    Application.Calculation = xlCalculationAutomatic        '-4105, Υπολογίζει αυτόματα, προεπιλεγμένη τιμή
End Sub

Καλή συνέχεια!

Φιλικά

Τάσος

[Iceland]

Καλησπέρα στο forum!

Τάσο οι προτάσεις σου δούλεψαν άψογα και σε ευχαριστώ πολύ για τις συμβουλές σου.

Αν δε καταχράζομαι το χρόνο σας θα ήθελα ένα σύντομο κώδικα για να εμφανίζεται σε συγκεκριμένο κελί του excel μια ορισμένη λέξη - "όρισμα" με το πάτημα εικονιδίου.

Προσπάθησα με το TypeName χωρίς αποτέλεσμα. Καμιά ιδέα

Ευχαριστώ εκ των προτέρων

Γιώργος

[Tasos]

Καλησπέρα Γιώργο!

Δοκίμασε:

Sub test()
         Range("A1") = "όρισμα"
End Sub

Καλή συνέχεια!

Τάσος

[Iceland]

Ευχαριστώ Τάσο! Ήταν ακριβώς αυτό. Προσθέτει σημαντικό εφέ στο αρχείο μου!!