الرجاء الحل فى هذا الفروم ضروري

**mostafaatiya** · يونيو 26, 2010

وشرح الخطأ وتوضيحة

**mostafaatiya** · يونيو 26, 2010

الرجاء المتابعه

**سالم شباني** · يونيو 26, 2010

السلام عليكم

أخي مصطفى حياك الله

بعد عدة محاولات تم التوصل إلى الحل وهو تعطيل السطر التالي من الكود والذي أعتقد أنه زائد ( والله أعلم )

Me.TextBox2.Text = .Cells(LastRow + 1, "C").Value2

يبقى أن نوجه الشكر إلى الأستاذ هشام الذي أنجز الكود وقد أفادني كثيرا

**الحسامي** · يونيو 26, 2010

السلام عليكم

اخي الكريم قم فقط بمسح السطر التالي من الكود

Me.TextBox2.Text = .Cells(LastRow + 1, "C").Value2

حيث ان هذا السطر يقوم بوضع قيمة فارغة داخل التكست قبل عملية الترحيل

وعند عملية الترحيل تكون قيمة التكست فارغة لذا لا يتم ترحيل شئ ال الشيت في هذه الجزئية

**الحسامي** · يونيو 26, 2010

السلام عليكم

بارك الله فيك اخي سالم

ولم ارى ردك ويبدو انه تم الرد في نفس الوقت فشكرا لك

**سالم شباني** · يونيو 26, 2010

السلام عليكم

الشكر لك أخي عماد على حسن التوضيح وهو الأهم

**mostafaatiya** · يونيو 26, 2010

شكرا لكم اساتذة واعضاء اوفيسنا

بالفعل تم عمل الكود واظهار الخطأ

الردود الموصى بها