If Income Cells Income Cells Then Income Cells Доход компании НИИ quot

1
2
3
4
5
6
7
8
9
If Income.Cells(2, 5) > Income.Cells(2, 6) Then
Income.Cells(3, 5) = "Доход компании НИИ " & quote & "Рассвет" & quote & " больше, чем доход компании ЗАО " & quote & "Строитель" & quote
Else
Income.Cells(3, 5) = "Доход компании ЗАО " & quote & "Строитель" & quote & " больше, чем доход компании НИИ " & quote & "Рассвет" & quote
End If
Income.Cells(3, 5).Interior.Color = RGB(255, 195, 237)
Income.Range(Cells(3, 5), Cells(3, 8)).Merge