[azbest]

for

For i = 3 To 113 zn1=worksheets(3).cells(i,5).Value zn2=worksheets(3).cells(i,6).Value zn3=worksheets(3).cells(i,7).Value zn4=worksheets(3).cells(i,8).Value If h>= zn1 And h <= zn2 Then If b >= zn3 And b <= zn4 Then Cells(i, 10).Value = Worksheets(3).Cells(i, 2).Value End If End If Next i »