Macro to compare colors in cell and type result

Hello sorry for bad english,

like u see in attachment i have products in cells wich are painted in different colors. I need to compare two numbers of different product, and write result to column "Type D,C,B". If one of two products is without color/white or they are not the same color then result is always "D", if both products/cells have same color and different number then results is "C", if the color and number is the same then result is "B"

Below cell B2 I will write numbers by hand, when I finish and start macro it will compare first cell B2 and B3 and write result to C3, then compare B3 and B4 and write result to C4 and do that until there is any number in column B:B.

Hope u can help me . :)

Tnx

Thank you, it's working perfect

hey its me again, now i change some sheets in my workbook and macro dont work, i try to read your vba code and fix it but i am to big amateur for this.. i hope so u will fix it for me, now i want to add macro to buton "Osveži" on "Začetna stran" sheet, which will run the macro, all others request are the same, macro needs to find number in sheet "base" C:C column and compare C3 with C2 , C4 with C3 and go on like this, results should write in column I:I sheet "base" , the "material" for macro is in "ciscenje" sheet in D:D column. all others its the same like first help post above this, i hope u understand me

This code it's working but just one time, then i erase results and run macro again but it's doesen't work do you maybe know what am I doing wrong? Please..

Hey again me, does anybody have some ideas why this macro run's only one time? I enter some values and then run macro, first time once is opened it's working and calculate values, but then i enter some different values which I want to operate with and run macro second time, then it's not working, nothing happen's Why?

Ok could you repair that vba code to do the same work like before.. Just now i have number wich I want to compare in "Baza pakiranj" sheet in B:B column and the base in "Tabela izdelkov" sheet in column D:D... Swp 2.xlsmSwp 2.xlsm