
12-05-23, 21:43
|
 | Διαχειριστής Όνομα: Χρήστος Ζώρζος Έκδοση λογισμικού Office: Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 20-09-2013 Περιοχή: Κοντά σε ηφαίστειο...
Μηνύματα: 1.046
| |
Καλησπέρα Κώστα,
Πιστεύω πως η χρήση της VBA είναι αναπόφευκτη στην περίπτωσή σου, οπότε το αρχείο-πρότυπο θα πρέπει να είναι .xlsm για χρήση μακροεντολών.
Δοκίμασε τον παρακάτω κώδικα να δεις αν σε καλύπτει: Κώδικας: Sub ANTIGRAFH()
Dim Shts() As Variant, I As Integer, Sht As Worksheet
ReDim Shts(ActiveWindow.SelectedSheets.Count - 1)
For Each Sht In ActiveWindow.SelectedSheets
Shts(I) = Sht.Name
I = I + 1
Next
Sheets(Shts).Copy
For Each Sht In ActiveWorkbook.Sheets
Sht.UsedRange.Value = Sht.UsedRange.Value
Next
End Sub
Όλα τα επιλεγμένα φύλλα θα αντιγράφονται σε νέο βιβλίο εργασίας μόνο με τις τιμές και τις μορφοποιήσεις των κελιών.
__________________ Your Curiosity Will Be The Death Of You!
Τελευταία επεξεργασία από το χρήστη ChrisGT7 : 13-05-23 στις 00:06.
|