نقل صف من شيت لشيت اخر عبر الفورم

[أبو چيداء]

المطلوب بالمرفقات

شكرا

transfir.zip

[عبدالله باقشير]

السلام عليكم

 

شاهد المرفق 2010

transfir.rar

[محمود_الشريف]

أخى فى الله

الأستاذ العلامه القدير // عبد الله باقشير

بارك الله فيكم وزادكم الله من فضله ومن علمه

نسأل رب العالمين لكم أن يجعل جميع أعمالكم فى ميزان حسناتكم

وتقبل منى وافر الاحترام والتقدير

[أبو چيداء]

العلامة عبدالله اسعد دئما عندما اجد ردكم

[أبو چيداء]

If Not Rng Is Nothing Then
    Sheets("left").[A10000].End(xlUp).Offset(1, 0).Resize(1, 27).Value = Rng.Value
    Rng.Delete xlUp
    Me.TextBox1 = ""
End If
Set sh3 = Sheets("left")
irow = Application.Match(Val(TextBox1.Value), Sheets("left").Range("a1:a15000"), 0)
sh3.Cells(irow, 28) = ComboBox1.Value
sh3.Cells(irow, 29) = TextBox28.Value
End Sub

ما هو الخطأ فى هذا الكود