[VBA] Ημερομηνίες - Αντιγραφή - Φίλτρο - Hide Unhide γραμμών

[christakos]

Καλήσπέρα,

Μετά από προσπάθειες η λύσεις ήταν μάταιες.

Φύλλο ΗΜΕΡΟΜΗΝΙΕΣ
Να εμφανίζει τις ημέρες του επιλεγμένου Μήνα,
χρησιμοποίησα στην μορφοποίηση υπό όρους πχ το =$A38>EOMONTH($P$1;0) και το έκανα λευκό, εν μέρη ναι καλό, άλλα δεν βολεύει επειδή θέλω να τραβάω τις ημερομηνίες από αναπτυσσόμενη λίστα και δυστυχώς εκεί θα φαίνονται και οι μέρες του επόμενου Μήνα.

Φύλλα data1 - data2
ο data2 θα τραβάει τα δεδομένα από τον data1, επειδή θα είναι πάνω από 150 γραμμές, και θα αφήνω κάποια κενά,
στον data2 προσάρμοσα χρήση κώδικα εμφάνισης απόκρυψης, θα κρύβει μόνο αυτά που θα έχουν μηδενική τιμή, επειδή θα είναι μεγάλος πίνακας, αν γίνετε αντί για εμφάνιση απόκρυψη, να είναι της μορφής ανανέωσης, δηλαδή με ένα κουμπί να εμφανίζονται μόνο αυτά που θα έχουν δεδομένα, και θα κρύβει εκείνα που θα είναι κενά.
έβαλα και ένα κουμπί για διευκόλυνση.

Φύλλα copy1 - copy2
Έβαλα κουμπί για διευκόλυνση.

Με χρήση κώδικα απο το copy1 να αντιγράφονται στο copy2
οι πίνακες θα είναι σταθεροί,
και οι δυο θα έχουν αναπτυσσόμενη λίστα, πιστεύω να μην είναι πρόβλημα αυτό?

Φύλλο ΦΙΛΤΡΑ
Λόγο επειδή θα είναι μεγάλος πίνακας και σίγουρα θα με ξεφύγει κάτι,

να φιλτράρει τους αριθμούς από το μικρότερο προς το μεγαλύτερο,
αλλά!!
θα προηγούνται 4-5 γράμματα, αυτά θα είναι σταθερά, δλδ μια φορά θα τα κάνω,
πχ όπως είναι στην στήλη Ι