03-11-17, 20:15
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 22-11-2011 Περιοχή: Αθήνα
Μηνύματα: 2.321
| |
Αντικατέστησε στον κώδικα τις γραμμές: Κώδικας: DPath = Sh1.Range("cLastName").Value & " " & Sh1.Range("cFirstName").Value & _
" " & Sh1.Range("DescriptionRange").Value & ".pdf"
Με αυτό (Αποτέλεσμα: παραγγελία.xlsm.pdf) Κώδικας: DPath = ThisWorkbook.Name & ".pdf"
Ή με αυτό (Αποτέλεσμα: παραγγελία.pdf) Κώδικας: DPath = Replace(ThisWorkbook.Name, ".xlsm", "") & ".pdf"
Μετά διέγραψε τις γραμμές: Κώδικας: If Sh1.Range("cLastName").Value = vbNullString Or _
Sh1.Range("cFirstName").Value = vbNullString Or _
Sh1.Range("DescriptionRange") = vbNullString Then
MsgBox "Δεν Έχετε Συμπληρώσει, Όλα Τα Πεδία Του Τίτλου.", , "Σφάλμα!"
Exit Sub
End If
ωστε να μην λαμβάνονται υπ' όψιν τα πεδία στο φύλλο, τα οποία μπορείς και να καταργήσεις.
|