[gr8styl]

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

... μήπως είναι εύκολο όταν στην στήλη b υπάρχει η καταχώρηση: «Σύνολα Σελίδας», «Σε Μεταφορά», «Από Μεταφορά», «Γενικά Σύνολα» να μην γίνεται μορφοποίηση αλλά να παραμένουν λευκά τα κελιά ?...

Γιώργο,
στον κώδικα που σου έδωσα, βάζεις ακριβώς πριν από την 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 υπάρχουν καλύτεροι τρόποι κάνοντας εισαγωγή δεδομένων αντί αντιγραφή επικόλληση.