أبو چيداء قام بنشر يوليو 19, 2014 مشاركة قام بنشر يوليو 19, 2014 المطلوب بالمرفقات شكرا transfir.zip رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يوليو 19, 2014 مشاركة قام بنشر يوليو 19, 2014 السلام عليكم شاهد المرفق 2010 transfir.rar 1 رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر يوليو 19, 2014 مشاركة قام بنشر يوليو 19, 2014 أخى فى الله الأستاذ العلامه القدير // عبد الله باقشير بارك الله فيكم وزادكم الله من فضله ومن علمه نسأل رب العالمين لكم أن يجعل جميع أعمالكم فى ميزان حسناتكم وتقبل منى وافر الاحترام والتقدير 1 رابط هذا التعليق شارك More sharing options...
أبو چيداء قام بنشر يوليو 19, 2014 الكاتب مشاركة قام بنشر يوليو 19, 2014 العلامة عبدالله اسعد دئما عندما اجد ردكم رابط هذا التعليق شارك More sharing options...
أبو چيداء قام بنشر يوليو 20, 2014 الكاتب مشاركة قام بنشر يوليو 20, 2014 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 ما هو الخطأ فى هذا الكود رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.