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

[it0466]

Καλησπέρα,
Δουλεύω σε Microsoft Excel 2003 English Version. Σε ένα φύλλο του βιβλίου εργασίας μου τοποθετώ ένα checkbox το οποίο μέσω vba σε μια συγκεκριμένη περιοχή κελιών ψάχνει κελιά που έχουν συγκεκριμένη τιμή και αυτό που κάνει είναι να κρύβει τις τιμές των κελιών όταν είναι τσεκαρισμένο το checkbox και αντίστοιχα να τις εμφανίζει όταν είναι ξετσεκαρισμένο.
Σας παραθέτω και τον κώδικα vba στο συμβάν click του checkbox:

Private Sub chk1_Click()
Dim c As Range
If chk1.Value = True Then
For Each c In ActiveSheet.Range("A1:E1")
If c.Value = "Á" Then
c.NumberFormat = ";;;"
End If
Next c
Else
For Each c In ActiveSheet.Range("A1:E1")
If c.Value = "Á" Then
c.NumberFormat = "General"
End If
Next c
End If
End Sub

Το θέμα μου είναι το εξής:
Κάθε μήνα θα δημιουργώ ένα φύλλο το οποίο θα περιέχει στη συγκεκριμένη περιοχή κελιών κάποια Α όπως φαίνονται και στο αρχείο που σας επισυνάπτω. Θα πρέπει κάθε μήνα σε κάθε φύλλο να δημιουργώ καινούργιο checkbox με τον παραπάνω κώδικα που σας έστειλα για να αποκρύπτω αυτά τα Α; Δεν υπάρχει κάποιος τρόπος να τοποθετήσω το παραπάνω checkbox που δημιούργησα σε όλα τα φύλλα του excel με τον κώδικα που έχει και να δουλεύει εξίσου κανονικά και στα νέα φύλλα; Επισημαίνω ότι σε κάθε φύλλο που θα δημιουργώ η περιοχή κελιών Α1:Ε1 στην οποία ψάχνω να βρω τα Α παραμένει πάντα σταθερή.Στην ουσία θέλω να μάθω πως γίνεται και αν γίνεται να βάλω ένα checkbox με τον κωδικά του σε πολλαπλά φύλλα και να δουλεύει εξίσου καλά σε όλα τα φύλλα στην συγκεκριμένη σταθερή περιοχή κελιών.

Σας ευχαριστώ πολύ για την βοήθειά σας!

[Spirosgr]

Καλημέρα
Κατ' αρχάς φίλε Μπάμπη, δεν εξετάζω την αρτιότητα του κώδικα που μας δίνεις.

Πρόταση:
Αν κάνεις copy το φύλλο, (βλέπε εικόνες 1-2)
στο τέλος κάθε φορά και για κάθε μήνα που θέλεις,
τότε θα έχεις ένα πλήρες αντίγραφο του φύλλου σου (πρότυπο).
Μαζί, θα αντιγραφεί και ο κώδικας.
Για να μην έχεις όμως, πολλούς κώδικες ίδιους (στην ουσία χωρίς λόγο)
σε κάθε φύλλο, (αφού αναφέρονται στο ActiveSheet),
μπορείς να δημιουργήσεις έναν και μόνο κώδικα, στο ThisWorkbook,
που να «τρέχει» σε όποιο θα είναι κάθε φορά το ActiveSheet του βιβλίου.