[xristos]

Γιώργο χίλια ευχαριστώ είναι πολύ λίγα, για την άμεση και σωστή βοήθειά σου.
Ξέρεις τι λέει μια παροιμία;;;;
Αφού βρήκαμε παππά να θάψουμε 5-6
αυτό κάνω και εγώ, αλλά επειδή στην υπηρεσία μου αλλάξαμε τα Office αντί για μπροστά πάμε πίσω, τέλος πάντων είναι άλλο θέμα αυτό, βρισκω όλο λάθη.
Πάλι το Φόρουμ με βοήθησε για ταξινόμηση και μου έκανε τον παρακάτω κώδικα

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 8 Then
Range("A:H").Sort Key1:=Range("b2"), Order1:=xlAscending, _
Header:=xlNo, MatchCase:=xlNo
End If
End Sub

Εγώ έχω στοιχεία στις στήλες από Α-Η δηλ. η Α είναι 1η και η Η 8η και πήγαινα στην στήλη Ι=9η και βάζοντας το "Χ" μου ταξινομούσε αυτόματα όλα τα προηγούμενα στοιχεία
Πιστεύω να έγινα κατανοητός.
Ευχαριστώ Γιώργο για τον χρόνο σου, όπως και όλο το Φόρουμ