[Εκτύπωση] Εκτύπωση μερικών χρωμάτων

[manolis]

Καλησπέρα

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

Και μια ερώτηση έτσι για την ιστορία

Επιλέγω τα κελιά με αυτό τρόπο και αλλαζω το χρώμα τους

Range("B1:B3").Select
With Selection.Interior
.Pattern = xlNone
End With

Range("B9:B23").Select
With Selection.Interior
.Pattern = xlNone
End With

Range("B33:E46").Select
With Selection.Interior
.Pattern = xlNone
End With

Και αναρωτιέμαι ανα μπορεί η επιλογή να γίνει συνολικά

Δοκίμασα αυτόν τρόπο άλλα δεν πέτυχε

Range("B1:B3; B9:B23;B33:E46;").Select
With Selection.Interior
.Pattern = xlNone
End With

Δοκιμασα και αυτόν

Range("B1:B3").Select
Range("B9:B23").Select
Range("B33:E46").Select
With Selection.Interior
.Pattern = xlNone
End With

Αλλα τίποτα
Υπάρχει τρόπος να γίνει

Ευχαριστώ
Μανώλης