Προς το περιεχόμενο

Τηλεφωνικός κατάλογος με excel


aekathens

Προτεινόμενες αναρτήσεις

Δημοσ.

Παιδιά καλημέρα. Έχω ένα τηλεφωνικό κατάλογο με τα ονόματα περασμένα σε excel. Θέλω αν ξέρει κάποιος τον κώδικα ώστε να βάλω κουμπιά με Α, Β, Γ... και κάνοντας κλικ να μου εμφανίζει ταξινομημένα τα ονόματα που ξεκινούν από Α, Β, Γ ανάλογα με το κουμπί. Τα ονόματα είναι με βάση το επώνυμο και έχουν ακόμη 4 στήλες δίπλα τους

Δημοσ.

χμμμ βασικά υπάρχει κάτι αντίστοιχο με το advanded filter του Excel που σου ταξινομεί όλα τα αποτελέσματα όμως. Δεν ξέρω αν αυτό βοηθά!

  • 2 εβδομάδες αργότερα...
Δημοσ.

Πολύ γρήγορα και πρόχειρα.. Έστησα μια μάκρο για να κάνεις αυτό που θέλεις...

 

Η λίστα που χρησιμοποίησα είναι στην περιοχή Α5:Β10 η περιοχή με τα κριτήρια η Α1:Β2 (εκεί που θα πηγαίνει το αρχικό γράμμα πατώντας το κουμπί.. με copy..στο κελί Α2) και τέλος μια περιοχή που θα εξάγονται και θα ταξινομούνται τα αποτελέσματα... D5:E5

 

Επειδή έγινε βιαστικά θα πρέπει να συμπεριλάβεις κι έναν μετρητή στην περιοχή εξαγωγής για να ξέρει μέχρι πού είναι η λίστα που θα ταξινομήσει...

 

 

Range("A5:B10").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _

"A1:B2"), CopyToRange:=Range("D5:E5"), Unique:=False

Range("D5").Select

Range("D5:E8").Sort Key1:=Range("D6"), Order1:=xlAscending, Header:= _

xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

DataOption1:=xlSortNormal

 

Ελπίζω να βοήθησα.. αλλιώς πάλι εδώ είμαστε...

Δημοσ.

sotospez

τι πινεις και δεν μας δινεις???????????.

 

To planetexcel εδωσε τον κωδικα ετοιμο και εσυ λες καθε φορα να αλλαζει τις macro !!!!!!!!!!!!

 

 

aekathens υπαρχει και ενας απλος τροπος χωρις macro

 

πηγαινε στην στηλη που θελεις να κανεις ταξινομηση και επελεξε ολα τα περιεχομενα της.

πατησε απο το menu την ταξινομηση Α-Ω και θα τα εχεις ολα ταξινομημενα

 

Οι στηλες με τα περιεχομενα δεν πρεπει να εχουν αναμεσα κενες στηλες

Πανω απο την πρωτη γραμμη των περιεχομενων να υπαρχει κενη γραμμη

Για επιλογη ολων των περιεχομενων της στηλης πατησε στο πρωτο κελι

και στη συνεχεια πατα μαζι Ctr+Shift και κατω βελος

 

εαν δεν εχεις στο επανω menu το εικονιδιο ταξινομησης Α-Ω κανε κλικ

στο δεξιο βελακι της μπαρας εργαλειων και ζητα προσθαφαιρεση κουμπιων

Δημοσ.
des ayto

 

 

 

..

 

 

Πολύ καλό. Μπράβο !!!

Μπορείς σε παρακαλώ να γράψεις με λίγα λόγια πως υλοποιήθηκε το xls ???

 

Ευχαριστώ,

Δημοσ.

opos eipa kai pio pano

ftiaxnis mia macro poy na kanei kati poy thes esy oti thes

oti fantazese mesa sto excel meta tin apothikeyis perneis copy oti grafei mesa

kai to bazis na ektelite apo ena command kai ayto einai

an ksereis ligo vb einai eykolo an den ksereis tpt

tha se pedepsi ligo alla einai sxetika eykolo

Αρχειοθετημένο

Αυτό το θέμα έχει αρχειοθετηθεί και είναι κλειστό για περαιτέρω απαντήσεις.

  • Δημιουργία νέου...