Sub Find_n_Highlight nrow1 Worksheets Кто едет Cells CurrentRegion Row

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Sub Find_n_Highlight()
nrow1 = Worksheets("Кто едет").Cells(1, 1).CurrentRegion.Rows.Count
last1 = Worksheets("Коррекция").Cells(2, 5).CurrentRegion.Rows.Count
last2 = Worksheets("Список городов вне").Cells(1, 1).CurrentRegion.Rows.Count
Application.ScreenUpdating = False
nrow1 = Worksheets("Кто едет").Cells(2, 3).CurrentRegion.Rows.Count
''Выделение строки для переводчика в заграничной командировке
'таблица переводчиков с датами отъездов и приездов
nrow1 = 1700
k = 1
For i = 2 To nrow1
If Worksheets("Кто едет").Cells(i, 3) Like "*переводчик*" Then
Worksheets("Кто едет").Cells(k, 7) = Worksheets("Кто едет").Cells(i, 1)
Worksheets("Кто едет").Cells(k, 8) = Worksheets("Кто едет").Cells(i, 2)
Worksheets("Кто едет").Cells(k, 9) = Worksheets("Кто едет").Cells(i, 3)
k = k + 1
End If
Next i
For i = 1 To Worksheets("Кто едет").Cells(1, 7).CurrentRegion.Rows.Count
For j = 2 To last1
If Worksheets("Кто едет").Cells(i, 7) = Worksheets("Коррекция").Cells(j, 1) Then
Worksheets("Кто едет").Cells(i, 10) = Worksheets("Коррекция").Cells(j, 2)
Worksheets("Кто едет").Cells(i, 11) = Worksheets("Коррекция").Cells(j, 3)
Worksheets("Кто едет").Cells(i, 10).NumberFormat = "dd/mm/yy"
End If
Next j
Next i
nrow2 = Worksheets("Кто едет").Cells(1, 7).CurrentRegion.Rows.Count
date_trans = 1
For i = 1 To 1700
If Worksheets("Кто едет").Cells(i, 1) = "" Then
For j = 1 To Worksheets("Кто едет").Cells(1, 7).CurrentRegion.Rows.Count
For k = 2 To Worksheets("Коррекция").Cells(1, 1).CurrentRegion.Rows.Count
If Worksheets("Кто едет").Cells(i + 1, 7) = CStr(Worksheets("Коррекция").Cells(k, 1)) Then
If Date_End <> 1 Then
If CDate(Worksheets("Коррекция").Cells(k, 2)) < CDate(Date_End) Then
Next
Else
Worksheets("Кто едет").Cells(i, 1) = Worksheets("Кто едет").Cells(j, 7)
Worksheets("Кто едет").Cells(i, 2) = Worksheets("Кто едет").Cells(j, 8)
Worksheets("Кто едет").Cells(i, 3) = Worksheets("Кто едет").Cells(j, 9)
End If
Else
Date_End = Worksheets("Кто едет").Cells(j, 10) + Day(Worksheets("Кто едет").Cells(j, 11) + 1)
End If
End If
Next k
Next j
End If
Next i
End Sub