Θέμα: Συναρτήσεις Σειρά TAB σε διάφορα φύλλα

Εμφάνιση ενός μόνο μηνύματος
  #2  
Παλιά 09-06-17, 17:04
Το avatar του χρήστη Spirosgr
Spirosgr Ο χρήστης Spirosgr δεν είναι συνδεδεμένος
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.321
Προεπιλογή

Η μετάβαση (navigate), στα φύλλα ενός βιβλίου, γίνεται με Ctrl + PageUp ή Ctrl + PageDown.

Αν βάλουμε στο Workbook, αυτό:
Κώδικας:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    ActiveSheet.Cells(3, 10).Select
End Sub 
με την είσοδο στο φύλλο, θα είναι πάντα επιλεγμένο, πχ το κελί J3

Αν δεν θέλουμε η επιλογή να είναι ίδια για όλα τα φύλλα,
ή θέλουμε να εξαιρεθούν κάποια φύλλα, τροποποιούμε τον κώδικα ανάλογα

ή βάζουμε σε κάθε φύλλο, στο Activate, την γραμμή:
Κώδικας:
Me.Cells(x, y).Select
Όπου x,y οι συντεταγμένες των κελιών...

*Ισχύει για .xlsm ή άλλες extensions, που δέχονται κώδικα