مشکل در حلقه for با دستور شرطی if

[ezraeilmilad]

سلام دو ستان من میخوام تو حلقه for تمام متغییر های a در دستور شرطی قرار بگیره در صورتی که هیچ کدوم از متغییر ها شرط رو ارضا نکرد دستور Esle اجرا بشه فایل دستوراتمو ضمینه میکنم لطفا راهنمایی کنید.

[iranweld]

با سلام

بهتر بود بجای تصویر ، خود کدها رو در سایت قرار میدادید.


Sub milad()

t = 0

x = 4

y = 17

For a = x To y

If Range("g2") = Cells(a, 14) Then

t = t + 1


End If

Next

If t = y - x + 1 Then

MsgBox "ok"

Else

MsgBox "not ok"

End If


End Sub