Εμφάνιση ενός μόνο μηνύματος
  #2  
Παλιά 12-05-23, 21:43
Το avatar του χρήστη ChrisGT7
ChrisGT7 Ο χρήστης ChrisGT7 δεν είναι συνδεδεμένος
Διαχειριστής
Όνομα: Χρήστος Ζώρζος
Έκδοση λογισμικού 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.
Απάντηση με παράθεση