Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [VBA] Ειδοποίηση για την εισαγωγή όνομα επικεφαλίδας (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/1516-eidopoiisi-gia-tin-eisagogi-onoma-epikefalidas.html)

devcon 24-11-11 18:18
Ειδοποίηση για την εισαγωγή όνομα επικεφαλίδας
 
Καλησπέρα,

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

Κώδικας:
ActiveSheet.PageSetup.CenterHeader.Filename = _      “prompt to insert header name”

And then

ActiveWorkbook.SaveAs Filename:="C:\Users\Exon\Documents\AAA PDF Files" _
& "\" & ActiveCell.Value & ".xls", _
FileFormat:=xlWorkbookNormal
ActiveWorkbook.Close
Σας ευχαριστώ.

gr8styl 25-11-11 21:23
Φίλε Θανάση,
δοκίμασε τον παρακάτω κώδικα στο κώδικα του βιβλίου

Κώδικας:
Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sht As Worksheet

On Error Resume Next
For Each sht In ActiveWorkbook.Sheets
    sht.PageSetup.CenterHeader = "&Z&F"
Next
ActiveWorkbook.SaveAs Filename:=InputBox("Give filename:", , ActiveWorkbook.FullName), _
    FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
    ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

devcon 26-11-11 06:23
Θανάση καλημέρα,

Όπως πάντα άψογες οι λύσεις σου.

Σε ευχαριστώ και σου εύχομαι καλό Σαββατοκύριακο.


Η ώρα είναι 08:49.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2