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