[VBA] Αποθήκευση Φύλλου εργασίας με επιλογή θέσης

[kapetang]

Καλή συνέχεια Τάσο και να είσαι καλά.

[Spirosgr]

Ο τρόπος που είναι γραμμένος ο κώδικας,
μπορεί να τροποποιηθεί με μορφή «σκάλας»
και να έχει κανείς, όσους ένθετους φακέλους θέλει...(σχεδόν)

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

[agrbita]

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

Έβαλα λοιπόν στην γραμμή : Folders = Array("ΥΕΒ", "ΑΙΤΗΣΕΙΣ") και το Folders = Array("ΥΕΒ", "ΑΙΤΗΣΕΙΣ", myCell) και έτσι λοιπόν αποθηκεύω το αρχείο μέσα στον φάκελο.

Θα πειραματιστώ, αν γίνεται να αποθηκεύει μέρος του myCell, δηλαδή τις τρεις ( 3) πρώτες λέξεις.

[agrbita]

Είναι δυνατόν να ενοποιηθούν οι δύο κώδικες "Προεπισκόπισης Εκτύπωσης" και"Απόκρυψη Γραμμών" Φύλλου, σε ένα Κουμπί Ελέγχου;

παραθέτω τους δύο κώδικες :

α) Είναι γραμμένος στο Φύλλο4

Private Sub cmdHideUnHide_Click()

Dim rng As Range, C As Range

Set rng = Φύλλο4.Range("b201:b215,g268:g290") '<--Βάζουμε τη σωστή περιοχή
Application.ScreenUpdating = False
rng.Rows.AutoFit
If Me.cmdHideUnHide.Caption = "Να Κρύψω;" Then
rng.EntireRow.Hidden = False
For Each C In rng
If Trim(C.Value) = "" Then
C.EntireRow.Hidden = True
End If
Next
Me.cmdHideUnHide.Caption = "Να Αποκαλύψω;"
Else
rng.EntireRow.Hidden = False
Me.cmdHideUnHide.Caption = "Να Κρύψω;"
End If
Application.ScreenUpdating = True

End Sub

β) Είναι γραμμένος στο Module1

Sub PrintPreviewBOOK()

Φύλλο4.PageSetup.PrintArea = "Mytable1"
Φύλλο4.PrintPreview
'Φύλλο3.PageSetup.PrintArea = "Print_Area" < Δέν λειτουργεί η περιοχή αυτή (δεν ξέρω γιατί ?).
'Φύλλο3.PrintPreview
Φύλλο9.PageSetup.PrintArea = "Mytable3"
Φύλλο9.PrintPreview
Φύλλο10.PageSetup.PrintArea = "Mytable4"
Φύλλο10.PrintPreview

End Sub

[Spirosgr]

1
Όσον αφορά το Print_Area, με κάτω παύλα,
είναι περιοχή εκτύπωσης, ονομασμένη από το πρόγραμμα.
Δες το name manager, και σετάρισέ την ή
άλλαξε το όνομά της με πχ PrintRange.
2
Χωρίς να διαβάσω τους κώδικες (αν δεν λειτουργεί κάτι άλλο και γιατί),
βάλε τον τίτλο του κώδικα που είναι στη module (PrintPreviewBOOK),
πριν το End Sub, του κώδικα στο Click...

Αυτό κάνουμε «γενικά», για να τρέχει κάποια ρουτίνα,
μαζί με μια άλλη, είτε στο τέλος, είτε σε κάποιο επιλεγμένο σημείο της πρώτης ...

[agrbita]

Σπύρο καλησπέρα,

όρισα όνομα Mytable5 με περιοχή εκτύπωσης οριζόμενη από συνάρτηση δυναμικής εκτύπωσης
( Mytable5 =Sheets1$A$1:INDEX(Sheets1$K:$K;MAX((Sheets1$A$1:$ A$200<>"")*ROW(Sheets1$1:$200)));Sheets1$AS$1:INDE X(Sheets1$BN:$BN;MAX((Sheets1$AS$1:$AS$30<>0)*ROW( Sheets1$1:$30)))
όμως συνεχίζει να βγάζει σφάλμα.

στο κώδικα εφάρμοσα αυτό αλλά βγάζει το σφάλμα :

"Invalid use of Me keyword" στο σημείο If Me.cmdHideUnHide.Caption = "Να Κρύψω;" Then

[Spirosgr]

Καλησπέρα
Ο κώδικας του Click (Private Sub cmdHideUnHide_Click)
πρέπει να είναι στο φύλλο 4 (κωδικό όνομα) και όχι στο φύλλο 4 (τίτλος φύλλου)

Το δοκίμασα και δεν έχει σφάλμα...

Το me. αναφέρεται, είτε σε φύλλο, είτε σε φόρμα...
και καλό είναι να το χρησιμοποιούμε.

Μπορείς ακόμα, να αντικαταστήσεις το me., με το κωδικό όνομα του φύλλου...
πχ
If Φύλλο4.cmdHideUnHide.Caption = "Να Κρύψω;" Then

[agrbita]

Σπύρο, ευχαριστώ πολύ,

Ήσουν πολύ κατατοπιστικός

[Spirosgr]

Να 'σαι καλά, καλή συνέχεια.