Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ. |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| |||
| |||
Δημιουργία Φύλλου Εργασίας με κώδικα
Καλησπέρα σε όλους!!! Σε προηγούμενο θέμα (Δημιουργία Μορφοποιημένου Φύλλου Εργασίας με κώδικα) .Έχετε δημιουργήσει module για Δημιουργία Μορφοποιημένου Φύλλου Εργασίας με κώδικα ως συνημμένο . Θα ήθελα να ρωτήσω αν γίνεται να μην κάνει αντικατάσταση του υπάρχοντος φύλλου αλλά να μας ειδοποιεί ότι το φύλλο που πάμε να δημιουργήσουμε υπάρχει ήδη και να έχει σαν αποτέλεσμα την μη δημιουργία ή αντικατασταση.Παραθέτω το module παρακάτω . [code] Option Explicit Const ilegalChars = ":\/?*[]" Sub NewOffer() Dim rng As Range, Wks As Worksheet, NewWks As Worksheet, _ xPos As Integer, OfferName As String, SheetName As String Application.ScreenUpdating = False OfferName = VBA.InputBox("Δώσε Eπωνυμία", "Νέα προσφορά...") If StrPtr(OfferName) = 0 Then Exit Sub SheetName = CleanName(OfferName) xPos = NewSheetPosition(NewName:=SheetName) Set Wks = ActiveSheet Wks.Range("A:E").AutoFilter Field:=3, Criteria1:=">0", _ Operator:=xlAnd With ThisWorkbook.Worksheets("OfferTemplate") .Visible = xlSheetVisible .Copy After:=Sheets(xPos) .Visible = xlSheetHidden End With Set NewWks = ActiveSheet Set rng = Wks.AutoFilter.Range.Offset(1) rng.Copy With NewWks .Name = SheetName .Range("B1") = OfferName .Range("A5").PasteSpecial xlPasteValues .Range("A5").Select End With Wks.AutoFilterMode = False Application.CutCopyMode = False End Sub Function NewSheetPosition(NewName As String) As Integer Dim sh As Object, i As Integer For Each sh In ThisWorkbook.Sheets If sh.Name = NewName Then Application.DisplayAlerts = False sh.Delete Application.DisplayAlerts = True Else If sh.Visible Then i = i + 1 End If Next NewSheetPosition = i End Function Function CleanName(strName As String) As String Dim i As Integer, tmpName As String tmpName = strName For i = 1 To Len(ilegalChars) tmpName = Replace(tmpName, Mid(ilegalChars, i, 1), "_") Next CleanName = tmpName End Function [\code] Ευχαριστώ όλους όσους απαντήσουν |
#2
| |||
| |||
Ξεχασα το συνημμενο |
#3
| |||
| |||
Καλημέρα σε όλους κοίτα το συνημμένο |
#4
| |||
| |||
Kαλημερα σε ολους Θαναση κουμπωσε κανονικα Ευχαριστω |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
| |
Παρόμοια Θέματα | ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
[Excel07] ΑΠΟΘΗΚΕΥΣΗ ΜΕΡΟΥΣ ΦΥΛΛΟΥ ΕΡΓΑΣΙΑΣ ΣΕ CVS ΜΕ BUTTON | smasak | Excel - Ερωτήσεις / Απαντήσεις | 8 | 01-12-15 13:13 |
[Συναρτήσεις] Ενημέρωση μιας λίστας από μια άλλη λίστα ενός άλλου φύλλου εργασίας | labpanag | Excel - Ερωτήσεις / Απαντήσεις | 2 | 06-12-12 17:14 |
Διαδρομή βιβλίου / όνομα φύλλου εργασίας σε κελί. | Tasos | Κείμενο | 0 | 21-09-11 14:34 |
[VBA] Δημιουργία Μορφοποιημένου Φύλλου Εργασίας με κώδικα | ΤΖΙΜΗΣ | Excel - Ερωτήσεις / Απαντήσεις | 12 | 03-06-11 15:29 |
Η ώρα είναι 20:25.