[решено] Помогите, пожалуйста, отладить макрос

[St33l]

Помогите, пожалуйста, отладить макрос. Ни разу не программировал на VB.

пользователь вводит 2 числа. На листе 3 Есть 5 колонок вида:

Name|h1|h2|b1|b2

Задача: если число 1 находится в пределах h1-h2, а число 2 находится в пределах b1-b2, то на листе 4 (там находится кнопка, на которую назначен макрос) вывести Name.
Вот что набросал.

Sub Fill()
Dim i As Integer
Dim h As Double
Dim b As Double

h = Cells(4, 2).Value
b = Cells(4, 3).Value

For i = 3 To 113
If ((h >= Worksheets(3).Cells(i, 5).Value) And (h <= Worksheets(3).Cells(i, 6).Value)) Then
If ((b >= Worksheets(3).Cells(i, 7).Value) And (b <= Worksheets(3).Cells(i, 8).Value)) Then
Cells(i, 10).Value = Worksheets(3).Cells(i, 2).Value
End If
End If
Next i
End Sub


При нажатии кнопки ничего не происходит (

[azbest]

forFor 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 »

[St33l]

а еще подскажите, как проверить вхождение комбинации символов в строку? например ДСК в слово ПОДСКАЖИТЕ?

[azbest]

Это надо смотреть по формуле, а формулу выбрать из списка формул (там где строка формул проходит). нет сечас под рукой программы.

[alex77755]

вхождение комбинации символов в строку
Dim re
re = InStr("ПОДСКАЖИТЕ", "ДСК")

re=3