Поиск субсчетов в общей ОСВ 01,02,68,69

Sub sdsdsd()
ii = 0
s01 = 0
s02 = 0
For i = 47 To 100
   
   If Range("B" & i).Value = 1 And s01 = 0 Then
      s01 = Range("G" & i).Value
      ii = i
   End If

If Range("B" & i).Value = 2 And s02 = 0 Then s02 = Range("H" & i).Value
   
   
   '68----------------
If Range("B" & i).Value = 68 Then
    i68 = i
End If

If Range("B" & i).Value = "68.01" Or _
   Range("B" & i).Value = "68.02" Or _
   Range("B" & i).Value = "68.03" Or _
   Range("B" & i).Value = "68.04" Or _
   Range("B" & i).Value = "68.05" Or _
   Range("B" & i).Value = "68.06" Or _
   Range("B" & i).Value = "68.07" Or _
   Range("B" & i).Value = "68.08" Or _
   Range("B" & i).Value = "68.09" Or _
   Range("B" & i).Value = "68.10" Or _
   Range("B" & i).Value = "68.11" Then
       v68G = v68G + Range("G" & i)
       v68H = v68H + Range("H" & i)
End If





   '69----------------
If Range("B" & i).Value = 69 Then
    i69 = i
End If

If Range("B" & i).Value = "69.01" Or _
   Range("B" & i).Value = "69.02" Or _
   Range("B" & i).Value = "69.03" Or _
   Range("B" & i).Value = "69.04" Or _
   Range("B" & i).Value = "69.05" Or _
   Range("B" & i).Value = "69.06" Or _
   Range("B" & i).Value = "69.07" Or _
   Range("B" & i).Value = "69.08" Or _
   Range("B" & i).Value = "69.09" Or _
   Range("B" & i).Value = "69.10" Or _
   Range("B" & i).Value = "69.11" Then
       v69G = v69G + Range("G" & i)
       v69H = v69H + Range("H" & i)
End If


Next i

Range("I" & ii) = s01 - s02
Range("I" & i68) = v68G
Range("J" & i68) = v68H
Range("K" & i68) = v68G - v68H

Range("I" & i69) = v69G
Range("J" & i69) = v69H
Range("K" & i69) = v69G - v69H
End Sub

Добавить комментарий

Ваш адрес email не будет опубликован.