Forum

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

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

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 30-03-11, 17:31
Όνομα: Βασίλης
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 30-03-2011
Μηνύματα: 2
Προεπιλογή Δημιουργία κουμπιού και δημιουργία νέας λίστας

Καλησπέρα.

Είναι η πρώτη μου δημοσίευση και θα εκτιμούσα την βοήθειά σας σε ένα θέμα που αντιμετωπίζω,

Έχω ένα αρχείο με 5 στήλες (κωδικός προϊόντος, περιγραφή, ποσότητα, τιμή μονάδας, σύνολο) και αυτό που κάνω είναι να εισάγω τις ποσότητες των προϊόντων και να υπολογίζεται ένα σύνολο. Επίσης σε ένα άλλο κελί εισάγω ένα ποσοστό έκπτωσης επί του συνόλου και υπολογίζεται το τελικό ποσό.

Το πρόβλημά μου είναι το εξής. Επειδή θέλω αυτό να το εκτυπώνω σαν προσφορά και επειδή οι γραμμές είναι πολλές (πάνω από 1000), θέλω να δημιουργήσω σε πρώτη φάση ένα κουμπί στο φύλλο εργασίας. Πατώντας αυτό το κουμπί, να βλέπει σε ποιες γραμμές η στήλη σύνολο ΔΕΝ έχει τιμή 0,00 και να μου εμφανίζει τις μη μηδενικές γραμμές σε ένα νέο φύλλο εργασίας, ώστε εγώ μετά να έχω να τυπώσω πολύ λιγότερες γραμμές.

Επισυνάπτω και ένα δείγμα του αρχείου μου. Θα εκτιμούσα κάθε πιθανή ιδέα, και πολύ περισσότερο την λύση :P
Συνημμένα Αρχεία
Τύπος Αρχείου: xls sample.xls (20,0 KB, 91 εμφανίσεις)
Απάντηση με παράθεση
  #2  
Παλιά 30-03-11, 22:37
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.236
Προεπιλογή

Καλημέρα Βασίλη και καλωσόρισες στο φόρουμ!

Αντιστοίχισε τον παρακάτω κώδικα σε ένα κουμπί και δοκίμασε:

Κώδικας:
Option Explicit

Sub CopyNonZeros()
    Dim rng As Range, Calc As Long
    With Application
        Calc = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        With Range("A1:E" & Range("E" & Rows.Count).End(xlUp).Row)
            .AutoFilter Field:=5, Criteria1:="<>0", Operator:=xlAnd
        End With
        Set rng = Sheet1.AutoFilter.Range
        rng.Copy
        Sheet2.UsedRange.Delete    'Sheet2 = το κωδικό όνομα του φύλλου (όπως φαίνεται στον VBE)
        With Sheet2.Range("A1")    ' όπου γίνεται η επικόλληση. Ίσως χρειαστεί προσαρμογή
            .PasteSpecial xlPasteAll
            .PasteSpecial xlPasteColumnWidths
            .PasteSpecial xlPasteValues
        End With
        ActiveSheet.AutoFilterMode = False
        .CutCopyMode = False
        .Calculation = Calc
        Sheet2.Activate
        .ScreenUpdating = True
    End With
End Sub
Προσοχή! Το όνομα Sheet2 στον κώδικα ίσως χρειαστεί να προσαρμοστεί σύμφωνα με το
όνομα του νέου φύλλου που θα δημιουργήσεις (για μια και μοναδική φορά).

Το κωδικό όνομα του νέου φύλλου φαίνεται στην εικόνα παρακάτω:

Δημιουργία κουμπιού και δημιουργία νέας λίστας-vbe_codename.png

Καλή συνέχεια!

Φιλικά

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση
  #3  
Παλιά 30-03-11, 23:32
Όνομα: ΔΗΜΗΤΡΗΣ
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 10-11-2010
Περιοχή: Γιαννιτσά
Μηνύματα: 149
Προεπιλογή

Για δες και μια λυση στο ιδιο φυλλο

Φιλικα Δημητρης
Συνημμένα Αρχεία
Τύπος Αρχείου: xls sample.xls (42,0 KB, 203 εμφανίσεις)
Απάντηση με παράθεση
  #4  
Παλιά 31-03-11, 08:52
Όνομα: Βασίλης
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 30-03-2011
Μηνύματα: 2
Προεπιλογή

Καλημέρα!

Δοκίμασα και τους 2 τρόπους και δουλέψαν μια χαρούλα! Ευχαριστώ!
Απάντηση με παράθεση
Απάντηση στο θέμα

Ετικέτες
vba

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

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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Δημιουργία λίστας επιλογής ΧρύσαΚ Access - Ερωτήσεις / Απαντήσεις 20 16-04-16 14:57
Δημιουργία λίστας εγγραφών Επιλεκτικά parara Access - Ερωτήσεις / Απαντήσεις 4 24-04-13 22:53
[Γενικά] Βοήθεια για δημιουργία αναπτυσσόμενης λίστας labpanag Excel - Ερωτήσεις / Απαντήσεις 4 17-05-12 16:53
[VBA] Δημιουργία κουμπιού για εκτέλεση συνάρτησης choulio19 Excel - Ερωτήσεις / Απαντήσεις 9 09-05-12 19:37
[Γενικά] Δημιουργία λίστας φύλλων ενός βιβλίου Billy Excel - Ερωτήσεις / Απαντήσεις 3 14-06-10 09:01


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