Ανανέωση ιστοσελίδας

[xristos]

Φίλοι του φόρουμ Καλημέρα.
Παλαιότερα ο Σπύρος με είχε βοηθήσει για την σειρά του TAB

Η λύση του ερωτήματος βρίσκετε στην ενότητα Excel-Tips & Tricks "Διαχείριση πλήκτρου Tab"
http://www.ms-office.gr/forum/excel-...ktroy-tab.html

Η ερώτησή μου σήμερα είναι πως γίνεται η μετακίνηση του TAB στα ίδια κελιά σε διαφορετικά φύλλα (π.χ στα επόμενα 30 φύλλα).
Σας ευχαριστώ για τον χρόνο σας.

[Spirosgr]

Η μετάβαση (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, που δέχονται κώδικα

[xristos]

Φίλε Σπύρο για άλλη μια φορά άμεση απάντηση και σε ευχαριστώ.
Επειδή μάλλον δεν έγινα αντιληπτός για δεν ανέβασα σχέδιο, το οποίο το ανεβάζω τώρα.
Στο πλαίσιο ονόματος έχω ονομάσει (όπως μου είπες

Η λύση του ερωτήματος βρίσκετε στην ενότητα Excel-Tips & Tricks "Διαχείριση πλήκτρου Tab"
http://www.ms-office.gr/forum/excel-...ktroy-tab.html

την σειρά του TAB στο φύλλο1 σε TAB και δουλεύει μια χαρά (C4,C5,C6,E4,E5,E6,C7,C8). Την ίδια ΑΚΡΙΒΩΣ σειρά θέλω σε όλα τα φύλλα (30) τα οποία μπορεί να γίνουν και 50,60.....
Στο κώδικα κατάλαβα ότι το 3 είναι η σειρά και 10 το κελί (J3), αλλά δεν κατάλαβα το

Αν βάλουμε στο Workbook, αυτό:

που το βρίσκω αυτό. Έκαναν μια αναζήτηση στο google αλλά δεν κατάλαβα και πολλά και θα ήθελα να μου εξηγήσεις για άλλη φορά.
Σε ευχαριστώ

[Spirosgr]

Αυτό:
«...Η ερώτησή μου σήμερα είναι πως γίνεται η μετακίνηση του TAB στα ίδια κελιά σε διαφορετικά φύλλα...»
είναι η απάντηση που σου έδωσα...

Αυτό:
-Βάλε όνομα σε κάθε φύλλο, σε κάθε περιοχή...
πχ Tab_1 - Tab_2 - ....κλπ
είναι η απάντηση σε αυτό το οποίο ρωτάς...τώρα...

[xristos]

Σπύρο σε ευχαριστώ.
Να σου πω την αλήθεια το είχα σκεφτεί αυτό αλλά έλεγα να αποφύγω την ταλαιπωρία, σκέψου να το κάτω αυτό σε 30,40,50 φύλλα..... και σκέφτηκα μήπως υπήρχε κάποιος κώδικα να με γλύτωνε, αλλά όπως μου λες δεν υπάρχει.
Δεν μου απάντησες στο ερώτημα

Στο κώδικα κατάλαβα ότι το 3 είναι η σειρά και 10 το κελί (J3), αλλά δεν κατάλαβα το

Παράθεση:

Αν βάλουμε στο Workbook, αυτό:
που το βρίσκω αυτό.

[Spirosgr]

Τι να απαντήσω Χρήστο...

Αυτό, σημαίνει αυτό που βλέπεις...
Ποιό google έψαξες...τι να το κάνεις...

Ok, νομίζω απάντησα σε όλα...

[xristos]

ok Σπύρο δικαίωμά σου είναι αν θέλεις να απαντήσεις ή να απαντήσεις όπως θέλεις.
Φυσικά και δεν ήσαστε (οι καπετάνιοι του Φόρουμ) ΥΠΟΧΡΕΩΜΕΝΟΙ να απαντάτε σε όλες τις ερωτήσεις μας, οι οποίες πολλές φορές θα είναι πολύ χαζές για σας τους γνώστες, αλλά όταν κάποιος σου ζητάει κάτι το οποίο δεν το ξέρει, γιατί απλά δεν το ξέρει, γιατί δεν είναι ενημερωμένος, γιατί......., γιατί....... χιλιάδες γιατί, θα υπάρχει πάντως κάποιο γιατί το οποίο θέλει απάντηση, καλό είναι αν πάρει μια απάντηση, για να το γνωρίζει την επόμενη φορά που θα του το γράψεις, εκτός αν μου το έχεις γράψει κάποια άλλη φορά και εγώ δεν το συγκράτησα.
Αυτά όχι σαν παρατήρηση, άλλωστε δεν έχω το δικαίωμα να σου κάνω παρατήρηση γιατί χωρίς εσένα και άλλους καπετάνιους εγώ τουλάχιστον θα ήμουν ακόμα "ναυαγός" και θα πάλευα με τα τεράστια κύματα της "απορίας" και της "άγνοιας".
Και πάλι ένα μεγάλο Ευχαριστώ για τις ατέλειωτες βοήθειές σου.

[Spirosgr]

Χρήστο άσε τα ποιητικά και μη μας την λές...
Τέρμα και τα «καπετανηλίκια»...
Δεν είμαστε καπεταναίοι...πουθενά..
Να βοηθήσουμε προσπαθούμε...
Αλλά πόσο και πώς...

Όταν σου λέω απάντησα, σημαίνει απάντησα και «αυτό» σημαίνει
αυτή η προτασούλα που βλέπεις γραμμένη στο κουτάκι...

Τέλος.