Ανανέωση ιστοσελίδας

[ggatzos]

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

[Spirosgr]

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

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

[ggatzos]

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

[Spirosgr]

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

[ggatzos]

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

[Spirosgr]

Καλημέρα
Διαγραφή
με δεξί κλικ επάνω στην σειρά του πίνακα που θέλεις να διαγράψεις και
διαγραφή "σειρών πίνακα"
Η Α αυτόματα αναδιαρθρώνεται γιατί έχει τύπο
Ταξινόμηση
Έτσι το είχαμε πριν μου πεις να ταξινομηθεί με κωδικό λίστας συστημάτων (κωδικό ΚΛΣ)
Λοιπόν Αυτό στο 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

[ggatzos]

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