bu kodu aşağıdaki ile değiştirip dener misiniz aradaki And .Cells(UsrInd + 1, UsrTrh + 13).Interior.Color = 255 koşulu gereksiz artık
If Not IsError(UsrInd) And Not IsError(UsrTrh) Then .Cells(UsrInd + 1, UsrTrh + 13).Interior
Not : arka alan rengi .hücre.Interior.Color = 255 ile belirlenir 255 sayısı kırmızıyı , vbyellow sarıyı belirtir bu değerleri değiştirerek rengi ayarlayabilirsiniz