If CDate date_start CDate Date_Real_Finish And Worksheets Кто едет Cel

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
If CDate(date_start) > CDate(Date_Real_Finish) And _
Worksheets("Кто едет").Cells(j, 12) <> "Уже ездил" Then
Worksheets("Кто едет").Cells(i, 1) = Worksheets("Кто едет").Cells(i + 1, 1)
Worksheets("Кто едет").Cells(i, 2) = Worksheets("Кто едет").Cells(j, 8)
Worksheets("Кто едет").Cells(i, 3) = Worksheets("Кто едет").Cells(j, 9)
Worksheets("Кто едет").Cells(j, 12) = "Уже ездил"
Worksheets("Кто едет").Range(Cells(i, 1), Cells(i, 3)).Interior.Color = RGB(102, 255, 102)
Else
If CDate(date_finish) < CDate(Date_Real_Start) And _
Worksheets("Кто едет").Cells(j, 12) <> "Уже ездил" Then
Worksheets("Кто едет").Cells(i, 1) = Worksheets("Кто едет").Cells(i + 1, 1)
Worksheets("Кто едет").Cells(i, 2) = Worksheets("Кто едет").Cells(j, 8)
Worksheets("Кто едет").Cells(i, 3) = Worksheets("Кто едет").Cells(j, 9)
Worksheets("Кто едет").Cells(j, 12) = "Уже ездил"
Worksheets("Кто едет").Range(Cells(i, 1), Cells(i, 3)).Interior.Color = RGB(102, 255, 102)
End If
End If