
Neskúmal som hlbšie, prvky poľa farba sú indexované 0 až 3, preto je cyklus i pre číslo 4 už mimo rozsahu
To isté nastane i v riadku .Columns(28).Replace What:=Pole(i), Replacement:=Pole(i)...
Takže je potrebné cyklus nastaviť od 0 do 3citovat
To isté nastane i v riadku .Columns(28).Replace What:=Pole(i), Replacement:=Pole(i)...
Takže je potrebné cyklus nastaviť od 0 do 3citovat