[GEORGE1]

Αρχική Δημοσίευση από gr8styl

Γιώργο,
στον κώδικα που σου έδωσα, βάζεις ακριβώς πριν από την End Select την παρακάτω If (7 γραμμές) για κενό γέμισμα "xlNone" και αυτόματο χρώμα γραμματοσειράς "0".

    If Rng.Cells(1, 2) = "Σύνολα Σελίδας" Or _
       Rng.Cells(1, 2) = "Σε Μεταφορά" Or _
       Rng.Cells(1, 2) = "Από Μεταφορά" Or _
       Rng.Cells(1, 2) = "Γενικά Σύνολα" Then
                       Rng.Interior.ColorIndex = xlNone
                       Rng.Font.ColorIndex = 0
     End If

ΥΓ. Αν μας ανέβαζες ένα αρχείο όπως το βγάζει το πρόγραμμα εμπορικής διαχείρισης που λες, αν είναι txt ή csv ή xls υπάρχουν καλύτεροι τρόποι κάνοντας εισαγωγή δεδομένων αντί αντιγραφή επικόλληση.

Θανάση Καλημέρα,

και πάλι ένα ΜΕΓΑΛΟ ΕΥΧΑΡΙΣΤΩ

Το αρχείο που ανέβασα είναι αυτό που έβγαλε η εμπορική διαχείριση απλά έχω σβήσει 22.000 γραμμές για να μην είναι τεράστιο ...

Φιλικά

Γιώργος