[ darkos1 @ 18.02.2018. 15:53 ] @
Kako obojiti određene (unikate) po redosledu prioriteta.

Zbog lakšeg pojašnjenja dao sam primer iz kojeg je vidljivo šta želim.

Nešto sam pokušao ali bi me to odvelo u nedogled sa formulama.
[ snenad_82 @ 19.02.2018. 13:25 ] @
Koja je logika bojenja ćelija? Tj. koji je uslov da neka ćelija bude obojena?
[ darkos1 @ 19.02.2018. 17:31 ] @
U prikačenom primjeru ima 11 upražnjenih mjesta.
Radnici konkurišu na a mjesta po sopstvenim željama.
Najbolje rangirani po broju bodova dobija mjesto prvo koje je konkurisao.
Drugi po broju bodova dobija po svojoj želji osim ako je to mjesto već popunjeno dobija sledeće prazno i tako redom.
Ako se desi da je lice izrazilo samo dvije želje i da su ta dva mjesta ranije popunjena ostaje bez mjesta.

Nadam se da sam bio malo jasniji.
[ @ 19.02.2018. 20:34 ] @
Ovako nesto, samo kliknes na dugme OK
[ Dexxxl @ 19.02.2018. 20:37 ] @
JBG, nesto zeza upload
[ darkos1 @ 19.02.2018. 21:41 ] @
Zahvaljujem se na brzom odgovoru, to je rješenje koje sam tražio.

Ako može mala dopuna da prvo briše sve obojene ćelije pa da ponovo boji, jer kod ponovnog aktiviranja ostane prethodno obojeno

Hvala puno
[ Dexxxl @ 19.02.2018. 23:00 ] @
Na pocetku procedure ofarbaj dodaj

Range("D7:N25").Select
Selection.Interior.Pattern = xlNone