For blN = 5 To 9 Step 1
If Sheets("Бл " & blN).[G15] <> "" Then
For j = 1 To 70 Step 1
For i = 1 To 350 Step 1
e = InStr(Sheets("Бл " & blN).Cells(i, j).Value, "вит")
a = InStr(Sheets("Бл " & blN).Cells(shapka1_bl5, j).Value, "Н")
b = InStr(Sheets("Бл " & blN).Cells(shapka1_bl5, j).Value, "В")
c = InStr(Sheets("Бл " & blN).Cells(shapka1_bl5, j).Value, "ш")
d = InStr(Sheets("Бл " & blN).Cells(shapka1_bl5, j).Value, "р")
If a > 0 And Sheets("Бл " & blN).Cells(i, j).NumberFormat = "0" Then
If kpp_nd_start = "" Then
kpp_nd_start = Sheets("Бл " & blN).Cells(i, j).address
kpp_nd_Cstart_bl5 = Split(Sheets("Бл " & blN).Cells(1, j).address, "$")(1)
kpp_nd_Rstart_bl5 = Sheets("Бл " & blN).Cells(i, j).Row
Else
kpp_nd_finish = Sheets("Бл " & blN).Cells(i, j).address
kpp_nd_Cfinish_bl5 = Split(Sheets("Бл " & blN).Cells(1, j).address, "$")(1)
kpp_nd_Rfinish_bl5 = Sheets("Бл " & blN).Cells(i, j).Row
End If
End If
If b > 0 And Sheets("Бл " & blN).Cells(i, j).NumberFormat = "0" Then
If kpp_vd_start = "" Then
kpp_vd_start = Sheets("Бл " & blN).Cells(i, j).address
kpp_vd_Cstart_bl5 = Split(Sheets("Бл " & blN).Cells(1, j).address, "$")(1)
kpp_vd_Rstart_bl5 = Sheets("Бл " & blN).Cells(i, j).Row
Else
kpp_vd_finish = Sheets("Блок " & blN).Cells(i, j).address
kpp_vd_Cfinish_bl5 = Split(Sheets("Бл " & blN).Cells(1, j).address, "$")(1)
kpp_vd_Rfinish_bl5 = Sheets("Блок " & blN).Cells(i, j).Row
End If
End If
If c > 0 And Sheets("Блок " & blN).Cells(i, j).NumberFormat = "0" Then
If shirm_start = "" Then
shirm_start = Sheets("Бл " & blN).Cells(i, j).address
shirm_Cstart_bl5 = Split(Sheets("Бл " & blN).Cells(1, j).address, "$")(1)
shirm_Rstart_bl5 = Sheets("Бл " & blN).Cells(i, j).Row
Else
shirm_finish = Sheets("Бл " & blN).Cells(i, j).address
shirm_Cfinish_bl5 = Split(Sheets("Бл " & blN).Cells(1, j).address, "$")(1)
shirm_Rfinish_bl5 = Sheets("Бл " & blN).Cells(i, j).Row
End If
End If
If d > 0 And Sheets("Бл " & blN).Cells(i, j).NumberFormat = "0" Then
If reg_st_start = "" Then
reg_st_start = Sheets("Бл " & blN).Cells(i, j).address
reg_st_Cstart_bl5 = Split(Sheets("Бл " & blN).Cells(1, j).address, "$")(1)
reg_st_Rstart_bl5 = Sheets("Бл " & blN).Cells(i, j).Row
Else
reg_st_finish = Sheets("Бл " & blN).Cells(i, j).address
reg_st_Cfinish_bl5 = Split(Sheets("Бл " & blN).Cells(1, j).address, "$")(1)
reg_st_Rfinish_bl5 = Sheets("Бл " & blN).Cells(i, j).Row
End If
End If
Next i
Next j
Else
MsgBox "Бл " & blN & " - Нет загруженной информации!"
End If
Next blN
|