
06-02-21, 21:30
|
 | Διαχειριστής Όνομα: Χρήστος Ζώρζος Έκδοση λογισμικού Office: Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 20-09-2013 Περιοχή: Κοντά σε ηφαίστειο...
Μηνύματα: 1.046
| |
Χαίρομαι που σας άρεσε και ελπίζω να σας διευκολύνει στην καθημερινότητά σας! :)
Για τη λειτουργία των υπερσυνδέσμων στην ΚΑΡΤΕΛΑ, δοκίμασε τα εξής: 1. Αντικατέστησε το xlPasteValues με το xlPasteAllExceptBorders 2. Ακριβώς κάτω από το πρώτο End With πρόσθεσε το παρακάτω κομμάτι κώδικα: Κώδικας: With [B6:G105].Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Αν δεν τα καταφέρεις, μπορώ να ανεβάσω το τροποποιημένο αρχείο.
__________________ Your Curiosity Will Be The Death Of You! |