اشکال در حلقه

[پیام]

با درود به همه
فایل پیوست شده رو ایجاد کردم ولی وقتی یوزفرم رو اجرا می کنم فقط برای ردیف 1 عمل می کنه.
ممنون میشم راهنمایی بفرمایید.

[mokaram]

شما دقیقاً چیکار می خواید بکنید میشه بیشتر توضیح بدید؟

[پیام]

دوست گرامی
میوام با ورود شماره مزرعه، در ستون وضعیت کلمه ok درج بشه.

[mokaram]

دوست گرامی
میوام با ورود شماره مزرعه، در ستون وضعیت کلمه ok درج بشه.

اگه سوالتونا درست متوجه شده باشم

Private Sub CommandButton1_Click()
Dim a As Range
For Each a In Sheet1.Range("d2:d5")
    If a <> "" And a = TextBox1.Text Then
        a.Offset(0, 1).Value = "ok"
        Exit Sub
    End If
Next a
End Sub 

[پیام]

barrai عزیز سپاسگزارم. همین بود