Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Excel > Excel - Ερωτήσεις / Απαντήσεις > [VBA] Δημιουργία Φύλλου Εργασίας με κώδικα

Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 16-05-13, 20:15
Όνομα: ΟΘΩΝΑΣ
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 10-05-2013
Μηνύματα: 28
Προεπιλογή Δημιουργία Φύλλου Εργασίας με κώδικα

Καλησπέρα σε όλους!!! Σε προηγούμενο θέμα (Δημιουργία Μορφοποιημένου Φύλλου Εργασίας με κώδικα) .Έχετε δημιουργήσει 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  
Παλιά 16-05-13, 20:39
Όνομα: ΟΘΩΝΑΣ
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 10-05-2013
Μηνύματα: 28
Προεπιλογή

Ξεχασα το συνημμενο
Συνημμένα Αρχεία
Τύπος Αρχείου: xls Αντίγραφο του CreateOffer2.xls (137,0 KB, 14 εμφανίσεις)
Απάντηση με παράθεση
  #3  
Παλιά 17-05-13, 07:08
Όνομα: Θανάσης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-02-2012
Μηνύματα: 238
Προεπιλογή

Καλημέρα σε όλους
κοίτα το συνημμένο
Συνημμένα Αρχεία
Τύπος Αρχείου: xls Αντίγραφο του CreateOffer2.xls (138,0 KB, 56 εμφανίσεις)
Απάντηση με παράθεση
  #4  
Παλιά 17-05-13, 07:14
Όνομα: ΟΘΩΝΑΣ
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 10-05-2013
Μηνύματα: 28
Προεπιλογή

Kαλημερα σε ολους
Θαναση κουμπωσε κανονικα
Ευχαριστω
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Ενεργοποιηση φυλλου εργασιας απο τιμη σε κελι dimtsam Visual Basic for Applications (VBA) 1 25-03-16 13:04
[Excel07] ΑΠΟΘΗΚΕΥΣΗ ΜΕΡΟΥΣ ΦΥΛΛΟΥ ΕΡΓΑΣΙΑΣ ΣΕ CVS ΜΕ BUTTON smasak Excel - Ερωτήσεις / Απαντήσεις 8 01-12-15 12:13
[Συναρτήσεις] Ενημέρωση μιας λίστας από μια άλλη λίστα ενός άλλου φύλλου εργασίας labpanag Excel - Ερωτήσεις / Απαντήσεις 2 06-12-12 16:14
Διαδρομή βιβλίου / όνομα φύλλου εργασίας σε κελί. Tasos Κείμενο 0 21-09-11 13:34
[VBA] Δημιουργία Μορφοποιημένου Φύλλου Εργασίας με κώδικα ΤΖΙΜΗΣ Excel - Ερωτήσεις / Απαντήσεις 12 03-06-11 14:29


Η ώρα είναι 03:46.