پرسش مشکل در حلقه for each

[majidartoor]

سلام ، دوستان مشکل حلقه من چیه که فقط ردیف اول کد رو اجرا میکنه

For Each d In Sheets("sakht").Range("tablesakht[[#Data],[شناسه]]")
If d.Value = Me.ListBox1.List(ListBox1.ListIndex, 0) Then
    d.Offset(0, 14) = Me.TextBox1.Text
    d.Offset(0, 15) = Me.TextBox2.Text
    d.Offset(0, 16) = Me.TextBox3.Text
    d.Offset(0, 17) = Me.TextBox4.Text
    d.Offset(0, 18) = Me.TextBox5.Text
    d.Offset(0, 19) = Me.TextBox6.Text
    d.Offset(0, 20) = Me.TextBox7.Text
    d.Offset(0, 21) = Me.TextBox8.Text
    d.Offset(0, 22) = Me.TextBox9.Text
    d.Offset(0, 23) = Me.TextBox10.Text
    d.Offset(0, 24) = Me.TextBox11.Text
    d.Offset(0, 25) = Me.TextBox12.Text


Exit For
End If
Next

فقط d.Offset(0, 14) = Me.TextBox1.Text رو اجرا میکنه دیگه خط بعدی نمیره
ممنون میشم اگه سریع جواب بدین

[iranweld]

سلام
نمونه فایل بصورت زیپ شده ضمیمه سایت کنید ( از قسمت تنظیمات اضافی)