الرســـــمي قام بنشر يناير 25, 2017 مشاركة قام بنشر يناير 25, 2017 السلام عليكم ارجو النظر الى المرفق اذا امكن عمل تعديل تهائي على الملف حيث اني في المرحلة الاخيرة السلام عليكم 1 اذا امكن عمل كود في حال تم ادخال اي بيانات في العامود 10A تظهر البيانات في الصف المقابل لة مثلا لو تم ادخال بيانات في الخلية A10 تظهر البيانات في B10 و C10 و D10 2 ازالة زر المايكرو وجعل البيانات تاتي بشكل اتوماتيكي بدون الظغط على الزر في حال وضع اي بيانات في خلية جلب المعلومات شكرا لكم يا اخوان ورزقكم الله من واسع فضلة test.rar رابط هذا التعليق شارك More sharing options...
الرســـــمي قام بنشر يناير 26, 2017 الكاتب مشاركة قام بنشر يناير 26, 2017 اي مساعدة ياشباب شكرا رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 26, 2017 مشاركة قام بنشر يناير 26, 2017 يرجى رفع الملف مرة أخرى .. رابط هذا التعليق شارك More sharing options...
الرســـــمي قام بنشر يناير 26, 2017 الكاتب مشاركة قام بنشر يناير 26, 2017 (معدل) تم الرفع شكرا test (1).rar تم تعديل يناير 26, 2017 بواسطه الرســـــمي رابط هذا التعليق شارك More sharing options...
على حسن قام بنشر يناير 26, 2017 مشاركة قام بنشر يناير 26, 2017 هل تريد نسخ للعمو a فى العمودين b ,c,d فقط ام طابك شئ اخر رابط هذا التعليق شارك More sharing options...
الرســـــمي قام بنشر يناير 26, 2017 الكاتب مشاركة قام بنشر يناير 26, 2017 (معدل) نعم اي بيايانات في اي خلية في كل العامود A تجلب البيانات في الاعمدة b ,c,d المقابلها و ايضا اذا امكن في حال ظغط رقم غير موجود تنمسح البيانات ايضا ازالة زر المايكرو وجعل البيانات تاتي بشكل مباشر بدون الظغط على اي زر شكرا لك وجزاك الله خيرا تم تعديل يناير 26, 2017 بواسطه الرســـــمي رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر يناير 26, 2017 مشاركة قام بنشر يناير 26, 2017 أخى الكريم لآن الملف لا يفتح معى ضع هذا الكود فى حدث الورقة وهو يعمل بالضغط مرتين كليك على الخلية Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Range("A3:A200").Copy Range("B3:D200").PasteSpecial Paste:=xlValues Application.CutCopyMode = False End Sub وتقبل منى وافر الاحترام والتقدير رابط هذا التعليق شارك More sharing options...
الرســـــمي قام بنشر يناير 26, 2017 الكاتب مشاركة قام بنشر يناير 26, 2017 لم يعمل الكود ارجو جزيت خيرا ان تنظر الى الملف مرة اخرى المرفق اسفل هذا الرد 1- عند اي كتابة اي بيايانات في اي خلية في كل العامود A تجلب البيانات في الاعمدة b ,c,d المقابلها و ايضا اذا امكن في حال ظغط رقم غير موجود تنمسح البيانات 2- ازالة زر المايكرو وجعل البيانات تاتي بشكل مباشر بدون الظغط على اي زر test (1).rar رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر يناير 26, 2017 مشاركة قام بنشر يناير 26, 2017 أخى الكريم الكود يعمل بشكل ممتاز وبالمرفقات الملف تم اضافة الكود وحذف الزر.rar رابط هذا التعليق شارك More sharing options...
الرســـــمي قام بنشر يناير 26, 2017 الكاتب مشاركة قام بنشر يناير 26, 2017 اعتذر اخي الكريم لكن ليس هذا ما اقصدة واعتقد اني ما وفقت بالشرح ,الذي اقصدة هو 1- عند اي كتابة اي بيانات في اي خلية في كل العامود A تجلب البيانات من الاعمدة b ,c,d من الصفحة DATA الى الصفحة الرئيسية b ,c,d مثال اذا وضعت اي رقم في الصفحة "الرئيسية" خلية "A10" يستورد البيانات من ورقة عمل "DATA" الى ورقة عمل"الرئيسية" B10,C10,D10 يوجد مثال واضح في المرفق جزاك الله خير وجعل علمك نافع للمسلمين Test (2).rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 26, 2017 مشاركة قام بنشر يناير 26, 2017 جرب الكود في حدث ورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Column = 1 Then Dim sh As Worksheet, Found Set sh = Sheets("DATA") Application.ScreenUpdating = False Application.EnableEvents = False On Error GoTo Skipper Found = Application.Match(Target.Value, sh.Columns(1), 0) Target.Resize(1, 4).Value = sh.Cells(Found, 1).Resize(1, 4).Value Skipper: Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub 1 رابط هذا التعليق شارك More sharing options...
الرســـــمي قام بنشر يناير 26, 2017 الكاتب مشاركة قام بنشر يناير 26, 2017 يا شيخ روح الله يوفقك ويسهل امرك انت ومحمود شكرالكم جميعا كذا تمام 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان