Forum - Excel07 Άντληση στοιχείων απο φύλλα εργασίας σε συγκεντρωτικό φύλλο

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [Excel07] Άντληση στοιχείων απο φύλλα εργασίας σε συγκεντρωτικό φύλλο (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/2524-antlisi-stoixeion-apo-filla-ergasias-se-sygkentrotiko-fillo.html)

Σπυρο άψογο ευχαριστω παρα παρα πολυ . Μια διόρθωση αν γινεται , οι κωδικοι στην λιστα συστηματων να εμφανίζονται αναποδα πανω πανω ο μεγαλυτερος ,και οταν γινεται η εισαγωγη νεου πελατη να τοποθετητε στην κορυφη και να ακολουθουν οι αλλοι κωδικοι προς τα κατω και προς τον μικρότερο

Η ταξινόμηση γίνεται με βάση την στήλη Β
Εσύ θέλεις με βάση την στήλη Ν ?
Με αυτόν τον κωδικό ?
Αν ναι άλλαξε στο ίδιο σημείο του κώδικα που αλλάξαμε την λέξη πριν την αμέσως πιο πάνω σειρά σε

Key:=Range("Table1[ ΚΩΔΙΚΟΣ Κ.Λ.Σ.]"), SortOn:=xlSortOnValues, Order:= _

Σπυρο αψογο σε ευχαρστω παρα πολυ ,μονο μια διόρθωση αν γινεται.
Στην λιστα τοποθετημενων συστηματων οι κωδικοι να ταξινομούνται αναποδα ο μεγαλυτερος πανω πνω και προς τα κατω οι μικροτεροι , και ο νεος πελατης στην πρωτη σειρά της λιστας πανω πανω.
ευχαριστω

Γιώργο γράψε μου αναλυτικά με ποια σειρά θέλεις την ταξινόμηση και πως
πχ πρώτα κατά στήλη D από μεγαλύτερο σε μικρότερο
μετά κατά στήλη F από μικρότερο σε μεγαλύτερο
μετά κατά στήλη C από μεγαλύτερο σε μικρότερο κλπ

Καλημερα σε ολους ,Σπυρο καλη σου μερα, χθες χάθηκε η συνδεση μου στο ιντερνετ γι' αυτο και δεν σου απάντησα .
Επειδή ειμαι άσχετος με το excel θα ηθελα λιγο επιείκεια στις απαντήσεις μου ....ζητησω εκ νέου συγνώμη αν σας ταλαιπωρώ .
Επανέρχομαι και λεω το εξής : Εγω θα ηθελα ανοίγοντας το αρχείο ΒΑΣΗ ΤΟΠΟΘΕΤΗΜΕΝΩΝ ΣΥΣΤΗΜΑΤΩΝ να μου εχουν ταξινομηθεί τασυστηματα κατα την στήλη B (ΚΩΔΙΚΟΣ ΣΥΣΤΗΜΑΤΟΣ) απο τον μεγαλύτερο προς τον μικρότερο κατα τον ιδιο τροπο να ταξινομούνται μετα την καταχώριση νεου συστηματος, με το πατημα του κουμπιου INSERT DATA το νεο συστημα να εμφανίζεται στην πρώτη σειρα της λιστας και οχι στην τελευταια οπως τωρα .
Θα ηθελα να μαθω επισεις πως διαγραφουμε ενα συστημα απο το πελατολογιο και η στηλη Α (Α/Α) να ακολουθήσει την αλαγη αυτη δηλαδη να μην εχω κενο στο Α/Α
Ευχαριστω ,ελπιζω να εγινα κατανοητός

Καλημέρα
Διαγραφή
με δεξί κλικ επάνω στην σειρά του πίνακα που θέλεις να διαγράψεις και
διαγραφή "σειρών πίνακα"
Η Α αυτόματα αναδιαρθρώνεται γιατί έχει τύπο
Ταξινόμηση
Έτσι το είχαμε πριν μου πεις να ταξινομηθεί με κωδικό λίστας συστημάτων (κωδικό ΚΛΣ)
Λοιπόν Αυτό στο ThisWorkbook για να :
Ανοίγει το βιβλίο πάντα στο φύλλο data και πάντα ταξινομημένο ως προς Β στήλη ΚΩΔΙΚΟΣ ΣΥΣΤΗΜΑΤΟΣ

Κώδικας:

Private Sub Workbook_Open()

    Sheet1.Activate

    ActiveWorkbook.Worksheets("Data").ListObjects("Table1").Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("Data").ListObjects("Table1").Sort.SortFields.Add _

            Key:=Range("Table1[ΚΩΔΙΚΟΣ ΣΥΣΤΗΜΑΤΟΣ]"), SortOn:=xlSortOnValues, Order:= _

            xlDescending, DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("Data").ListObjects("Table1").Sort

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

End Sub

Και αυτό σε αντικατάσταση του κώδικα στην Module

Κώδικας:

Sub InsertNewData()

    Application.ScreenUpdating = False

    'αντιγραφή περιοχής

    Range("InputRange").Copy

    Range("B" & ActiveSheet.Range("B" & _

                                  Range("B:B").Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste: _

                                                              =xlPasteValues, Operation:=xlNone, SkipBlanks _

                                                             :=False, Transpose:=False

    Application.CutCopyMode = False

    'ταξινόμιση κατά κωδικό και κατόπιν όνομα

    ActiveWorkbook.Worksheets("Data").ListObjects("Table1").Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("Data").ListObjects("Table1").Sort.SortFields.Add _

            Key:=Range("Table1[ΚΩΔΙΚΟΣ ΣΥΣΤΗΜΑΤΟΣ]"), SortOn:=xlSortOnValues, Order:= _

            xlDescending, DataOption:=xlSortNormal

    ActiveWorkbook.Worksheets("Data").ListObjects("Table1").Sort.SortFields.Add _

            Key:=Range("Table1[ΟΝΟΜΑΤΕΠΩΝΥΜΟ]"), SortOn:=xlSortOnValues, Order:= _

            xlAscending, DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("Data").ListObjects("Table1").Sort

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

    Application.ScreenUpdating = True

    'καθαρισμός περιοχής InputRange

    Range("InputRange").ClearContents

    Range("A1").Select

    'Msg

    MsgBox ("Entry registered as New System"), vbInformation

End Sub

Σπύρο καλησπέρα,
Υπάρχει βλέπω μια δυσκολία στην συνεννόηση στα θεματάκια που συζητάμε και μόλις κατάλαβα που οφείλεται .Όταν λέμε κωδικός συστήματος εννοούμε την στηλη Β , δεν εννοούμε τη στήλη Ν γιατι το Κ Λ Σ εκει δεν σημαίνει κωδικος λιστας συστηματων αλλα κέντρο ληψεως σημάτων Τώρα ως αναφορά τους κωδικούς που μου έστειλες όπως σου είπα ειμαι άσχετος και μου φαίνονται κινέζικα.Θα σε παρακαλούσα να μου ανεβάσεις ένα συννημένο με τις τελευταίες ρυθμίσεις (αν γίνεται χωρίς να μου εμφανίζει το θαυμαστικό στο εικονιδιο και προστίθοντας μία στήλη μετα το C με το όνομα ενώ τη στηλη του C να την μετατρέψουμε μόνο επώνυμο.
Ευχαριστώ.