Koliko mogu da shvatim iz tvog prethodnog posta tvoj macro kopira boju metodom Copy. Izmeni tvoj macro tako da proveri koja je boja dodeljena nekoj celiji i tu istu boju dodeli drugoj.
Na primer sledecom naredbom dobijas brojcanu vrednost koja predstavlja kojom je bojom ispunjena celija A1
Code:
Boja = Range("A1").Interior.Color
A sledecom naredbom ispunjavas celiju A3 istom bojom kojom je ispunjena celija A1
Code:
Range("A3").Interior.Color = Boja
ili
Code:
Range("A3").Interior.Color = Range("A1").Interior.Color
Ako ne uspes okaci tvoj primer ovde pa da resimo problem.